Prev: Change images on reload
Next: CSS - Eliminate underline and blue color in hyperlinks
From: AbiTheWhiteRoom on 7 Apr 2008 06:23
I've created a Jmail form ( http://www.rbc-furniture.co.uk/contact.asp )
everything is working perfectly although when the message is sent it delivers
to the recipient twice - i have probably got a field in the code somewhere, one
that doesn't need to be there but i can't work out which / where it is?!

<%
Name = Request.Form("name")
SenderEmail = Request.Form("email")
Subject = "Enquiry from RBC website " & Request.Form("subject")
Recipient = Request.Form("recipient")
Body = Request.Form("body")
Dim Jmail

set Jmail = Server.CreateOBject( "JMail.Message" )

JMail.From = Senderemail

JMail.Subject = Subject

JMail.AddRecipient Recipient

JMail.Body = Body & vbcrlf
JMail.Body = JMail.Body & "Enquiry from Restall Brown & Clennell website:" &
vbcrlf & vbcrlf
JMail.Body = JMail.Body & Request.Form ("enquiry") & vbcrlf & vbcrlf
JMail.Body = JMail.Body & "Contact information:" & vbcrlf & vbcrlf
JMail.Body = JMail.Body & "Name:" & vbcrlf
JMail.Body = JMail.Body & Request.Form ("name-field") & vbcrlf & vbcrlf
JMail.Body = JMail.Body & "Telephone:" & vbcrlf
JMail.Body = JMail.Body & Request.Form ("telephone") & vbcrlf & vbcrlf
JMail.Body = JMail.Body & "Email:" & vbcrlf
JMail.Body = JMail.Body & Request.Form ("email-address") & vbcrlf & vbcrlf
JMail.Body = JMail.Body & "Profession:" & vbcrlf
JMail.Body = JMail.Body & Request.Form ("profession")

JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")

JMail.Logging = True

Jmail.Send "localhost" 'localhost sends thru your SMTP server
if not Jmail.Send( "localhost" ) then
Response.write "<pre>" & msg.log & "</pre>"
else
Response.write "Message sent succesfully!"
end if

%>

[b]Any help much appreciated.[/b]:confused;

 | 
Pages: 1
Prev: Change images on reload
Next: CSS - Eliminate underline and blue color in hyperlinks