<% Dim Mail Dim mailhost Dim mailfrom Dim mailfromname Dim mailaddaddress Dim mailaddreplyto Dim mailsubject '*************** Change this stuff, but leave the ""s **************** mailhost = "mail.instrumentationworld.com" ' What's your email server you go through? mailfrom = "enquiry@instrumentationworld.com" ' Enter in a valid email address to send from mailfromname = "Visitor Book" ' Who is the email from mailaddaddress = "enquiry@instrumentationworld.com" ' Who do you want the contact form to go to? if request.Form("Email") = "" then mailaddreplyto = "enquiry@instrumentationworld.com" ' When they hit the reply button, who's it going to? else mailaddreplyto = Request.form("Email") end if 'mailsubject = "Visitors Message" ' What is the subject of the email being sent? mailsubject = request.form("Subject") '*************** Don't touch anything below this line **************** Set Mail = Server.CreateObject("Persits.MailSender") Mail.IsHTML = True Mail.Host = mailhost Mail.From = mailfrom 'Mail.FromName = mailfromname if request.form("Name") = "" then mail.FromName = "Visitor" else Mail.FromName = request.form("Name") end if Mail.AddAddress mailaddaddress Mail.AddReplyTo mailaddreplyto Mail.Subject = mailsubject Mail.Body = "" & Chr(13) & Chr(10) & _ "" & Chr(13) & Chr(10) & _ "" & Chr(13) & Chr(10) & _ "
Message
Name:" & Chr(13) & Chr(10) & _ Request.Form("Name") & Chr(13) & Chr(10) & _ "
Organisation:" & Chr(13) & Chr(10) & _ Request.Form("Org") & Chr(13) & Chr(10) & _ "
Address:" & Chr(13) & Chr(10) & _ Request.Form("addr1") & Chr(13) & Chr(10) & _ "
" & Chr(13) & Chr(10) & _ Request.Form("addr2") & Chr(13) & Chr(10) & _ "
City:" & Chr(13) & Chr(10) & _ Request.Form("City") & Chr(13) & Chr(10) & _ "
Phone:" & Chr(13) & Chr(10) & _ Request.Form("Phone") & Chr(13) & Chr(10) & _ "
Email:" & Chr(13) & Chr(10) & _ request.form("Email") & Chr(13) & Chr(10) & _ "
Message:" & Chr(13) & Chr(10) & _ request.form("Msg") & Chr(13) & Chr(10) & _ "
" On Error Resume Next Mail.Send If Err <> 0 Then Response.Write "Error encountered: " & Err.Description End If %> Instrumentation World - Message

Thank you for your Message.
Your Message has been sent successfully.

Home