<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Option Explicit
Response.Expires = 0
'you need to set up a variable (declare variables) for each filed fron your form page
' what I like to do is use the exact same name and add str for string to the beginning of it.
Dim strFname
Dim strEmail
Dim strTelephone
Dim strComments
Dim strLname
Dim strAddress1
Dim strAddress2
Dim strCity
Dim strState
Dim strZip
Dim strCounty
' After you declare the variables you need to assign a value to each one.
' each variable will be assign the corresponding value being sent from the form
'If you need other form fields, declare them above and assign a value here, Just
'follow the same format.
strFname = Trim(Request.Form("Fname"))
strEmail = Trim(Request.Form("Email"))
strTelephone = Trim(Request.Form("Telephone"))
strComments = Trim(Request.Form("Comments"))
strLname = Trim(Request.Form("Lname"))
strAddress1 = Trim(Request.Form("Address1"))
strAddress2 = Trim(Request.Form("Address2"))
strCity = Trim(Request.Form("City"))
strState = Trim(Request.Form("State"))
strZip = Trim(Request.Form("Zip"))
strCounty = Trim(Request.Form("County"))
'this section sends the information to your email in an html format
Dim objMyMail1, msgBody, msgSubject
Set objMyMail1 = Server.CreateObject("CDO.Message")
Dim strResponse
'Replace Response from my site with the text that you want to be read in the subject line in the emai that you recieve.
'DO NOT REMOVE THE QUOTES
strResponse = "Response from my site"
msgSubject = strResponse
'this creates and prepares the html formatted email
msgBody =""
msgBody = msgBody & ""
msgBody = msgBody & "Site Response"
msgBody = msgBody & ""
msgBody = msgBody & ""
msgBody = msgBody & ""
msgBody = msgBody & "This is a response from Hastings Auto Web Site
"
'First Name
msgBody = msgBody & "Fname: "
msgBody = msgBody & strFname
msgBody = msgBody & "
"
'Last Name
msgBody = msgBody & "Lname: "
msgBody = msgBody & strLname
msgBody = msgBody & "
"
'Email
msgBody = msgBody & "Email: "
msgBody = msgBody & strEmail
msgBody = msgBody & "
"
'Telephone
msgBody = msgBody & "Telephone: "
msgBody = msgBody & strTelephone
msgBody = msgBody & "
"
'Address 1
msgBody = msgBody & "Address 1: "
msgBody = msgBody & strAddress1
msgBody = msgBody & "
"
'Address2
msgBody = msgBody & "Address 2: "
msgBody = msgBody & strAddress2
msgBody = msgBody & "
"
'City
msgBody = msgBody & "City: "
msgBody = msgBody & strCity
msgBody = msgBody & "
"
'State
msgBody = msgBody & "State:
"
msgBody = msgBody & strState
msgBody = msgBody & "
"
'Zip
msgBody = msgBody & "Zip Code:
"
msgBody = msgBody & strZip
msgBody = msgBody & "
"
'Comments
msgBody = msgBody & "Comments:
"
msgBody = msgBody & strComments
msgBody = msgBody & "
"
msgBody = msgBody & ""
'End of html format
objMyMail1.From = strEmail
'use the email address that you desire the message to be sent to..
objMyMail1.To = "hastingsauto@excite.com"
objMyMail1.Subject = msgSubject
'objMyMail1.BodyFormat = 0
'objMymail1.MailFormat = 0
objMyMail1.HTMLBody = msgBody
objMyMail1.Send
Set objMyMail1 = Nothing
Response.Redirect("success.html")
%>
Thanks for your comments!
They will be responded to in a timely
manner.
