<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% If (CStr(Request("MM_email")) = "Guestbook") Then If (Not MM_abortEdit) Then ' execute the Mail Dim mailbody mailbody = "Online Guestbook" + vbLf + vbLF mailbody = mailbody + "First Name : " & Request.Form("First_Name") + vbLf + vbLF mailbody = mailbody + "Last Name : " & Request.Form("Last_Name") + vbLf + vbLF mailbody = mailbody + "Email : " & Request.Form("email_address") + vbLf + vbLF mailbody = mailbody + "Message : " & Request.Form("Message") + vbLF + vbLF set imsg = createobject("cdo.message") set iconf = createobject("cdo.configuration") Set Flds = iConf.Fields With Flds .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.autopage.biz" .Update End With With iMsg Set .Configuration = iConf .To = "customercare@autopage.biz" .From = """autopage.biz"" " .CC = "" .Subject = "Online guestbook" .TextBody = mailbody .fields.update .Send End With set imsg = nothing set iconf = nothing Response.Redirect("http://www.autopage.biz/guestbook-thankyou.htm") end if End If %> Autopage Cellular
contact form | e-mail customer care | disclaimer | download company profile (pdf) | guestbook | technical support form | support

Fields marked with * are compulsary

 

  

First Name *

Last Name

e-Mail address *

Message *