<%
If Action = "SendEmail" Then
' Here we quickly check/validate the information entered
' These checks could easily be improved to look for more things
If Name = "" Then
IsError = "Yes"
Response.Write("Please Enter a Name
")
End If
If IsValidEmail(Email) = "False" Then
IsError = "Yes"
Response.Write("Please Enter a Valid Email Address
")
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 & "Submission Entered At " & Now() & vbCrLf & "
"
strBody = strBody & "From http://" & Request.ServerVariables("HTTP_HOST") & vbCrLf & "
"
strBody = strBody & "IP " & Request.ServerVariables("REMOTE_ADDR") & vbCrLf & "
"
strBody = strBody & "Name" & " : " & " " & Replace(Name,vbCr,"
") & "
"
strBody = strBody & "Job Title" & " : " & " " & Replace(Job_Title,vbCr,"
") & "
"
strBody = strBody & "Company" & " : " & " " & Replace(Company,vbCr,"
") & "
"
strBody = strBody & "Address" & " : " & " " & Replace(Address,vbCr,"
") & "
"
strBody = strBody & "City" & " : " & " " & Replace(City,vbCr,"
") & "
"
strBody = strBody & "State-Province" & " : " & " " & Replace(State_Prov,vbCr,"
") & "
"
strBody = strBody & "Country" & " : " & " " & Replace(Country,vbCr,"
") & "
"
strBody = strBody & "Phone" & " : " & " " & Replace(Phone,vbCr,"
") & "
"
strBody = strBody & "Fax" & " : " & " " & Replace(Fax,vbCr,"
") & "
"
strBody = strBody & "Email" & " : " & " " & Replace(Email,vbCr,"
") & "
"
strBody = strBody & "How Did You Hear About Alvin" & " : " & " " & Replace(How_Hear,vbCr,"
") & "
"
strBody = strBody & "Event Date" & " : " & " " & Replace(Event_Date,vbCr,"
") & "
"
strBody = strBody & "Event Time" & " : " & " " & Replace(Event_Time,vbCr,"
") & "
"
strBody = strBody & "Event Location" & " : " & " " & Replace(Event_Location,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
' If your server requires outgoing authentication uncomment the lines bleow and use a valid email address and password.
'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 = "Booking Submission"
ObjSendMail.From = Email
' we are sending a html email.. simply switch the comments around to send a text email instead
ObjSendMail.HTMLBody = strBody
'ObjSendMail.TextBody = strBody
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
%>
Submission Successful...
Thank You !!
<% =Replace(ContactUs_Body,vbCr,"
") %><% Else %>
<% End If %>
|
