<%
if Request.Form("isSubmitted") = "yes" then
Dim Name, Email, DayPhone, EvePhone, Subject, Comments
Dim objCDO
Name = Request.Form("Name")
Email = Request.Form("Email1")
Dayphone = Request.Form("Dayphone")
EvePhone = Request.Form("Evephone")
Subject = Request.Form("Subject")
Comments = Request.Form("Comments")
IF Name <> "" AND Dayphone <> "" AND Evephone <> "" AND Subject <> "" AND Email <> "" AND inStr(Email,"@") <> 0 AND inStr(Email,".") <> 0 THEN
Set objCDO = Server.CreateObject("CDO.Message")
objCDO.From = Request.Form("Email1")
objCDO.To = "accurateab@msn.com"
objCDO.Subject = Request.Form("Subject")
objCDO.TextBody = "Name: " & Name & vbcrlf & "Day Phone: " & Dayphone & vbcrlf & "Evening Phone: " & Evephone & vbcrlf & "Comments: " & Comments& " "
objCDO.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") =2
objCDO.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="relay-hosting.secureserver.net"
objCDO.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") =25
objCDO.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") =1
objCDO.Configuration.Fields.Update
objCDO.Send
set objCDO=nothing
Response.Redirect("http://accurateautobodyrepair.com/contactreply.html")
ELSE
Response.Write "Please click back on your browser and complete the following fields:
"
IF Name <> "" THEN
ELSE
Response.Write "• Name
"
END IF
IF IsNumeric(Dayphone) THEN
ELSE
Response.Write "• Daytime Phone Number
"
END IF
IF IsNumeric(Evephone) THEN
ELSE
Response.Write "• Evening Phone Number
"
END IF
IF Email <> "" THEN
ELSE
Response.Write "• Email Address
"
END IF
IF (inStr(Email,"@") <> 0 or inStr(Email,".") <> 0) THEN
ELSE
Response.Write "• Please enter a valid Email Address
"
END IF
End IF
end if
%>