U.S.A.
16, Lisa Way
Wayne, PA, USA 19087.
Tel: 610-203-1328
Email: perry@mainlineinteractive.com

<% If Action = "SendEmail" Then ' Here we quickly check/validate the information entered ' These checks could easily be improved to look for more things If IsValidEmail(C_Email) = "False" Then IsError = "Yes" Response.Write("You did not enter a valid email address.
") End If If C_name = "" Then IsError = "Yes" Response.Write("You did not enter a Name.
") End If End If ' If there were no input errors and the action of the form is "SendEMail" we send the email off If Action = "SendEmail" And IsError <> "Yes" Then Dim strBody ' Here we create a nice looking html body for the email strBody = strBody & "Contact Us Form submitted at " & Now() & vbCrLf & "

" strBody = strBody & "From http://" & Request.ServerVariables("HTTP_HOST") & vbCrLf & "
" strBody = strBody & "IP " & Request.ServerVariables("REMOTE_ADDR") & vbCrLf & "
" strBody = strBody & "Name" & " : " & " " & Replace(C_name,vbCr,"
") & "
" strBody = strBody & "Email" & " : " & " " & Replace(C_email,vbCr,"
") & "
" strBody = strBody & "Subject" & " : " & " " & Replace(C_interest,vbCr,"
") & "
" strBody = strBody & "
" & Replace(C_message,vbCr,"
") & "
" strBody = strBody & "" Dim ObjSendMail Set ObjSendMail = CreateObject("CDO.Message") 'This section provides the configuration information for the remote SMTP server. ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send the message using the network (SMTP over the network). ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpserver ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Use SSL for the connection (True or False) ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = youremail ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = yourpassword ObjSendMail.Configuration.Fields.Update 'End remote SMTP server configuration section== ObjSendMail.To = youremail ObjSendMail.Subject = C_Interest ObjSendMail.From = C_Email ' we are sending a html email.. simply switch the comments around to send a text email instead ObjSendMail.TextBody = "Name:" ObjSendMail.HTMLBody = C_Name ObjSendMail.TextBody = "Interested Trek:" ObjSendMail.HTMLBody = C_Interest ObjSendMail.TextBody = "Message:" ObjSendMail.HTMLBody = C_Message 'ObjSendMail.TextBody = strMessage ObjSendMail.Send Set ObjSendMail = Nothing ' change the success messages below to say or do whatever you like ' you could do a response.redirect or offer a hyperlink somewhere.. etc etc %> Your message has been received.
A Main Line Interactive representative will get in touch with you in 12 hours!!
<% Else %>

REQUEST INFO

• Your Name:
• Your E-Mail:
• Interested in:
• Message:
  <% =C_Message %>

<% End If %>