%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% If Request.Form("submit") <> "" Then Dim objCDO Set objCDO = Server.CreateObject("CDONTS.NewMail") objCDO.From = cStr(Request("Email")) objCDO.To = "sthomas@CRISaz.com; rthomas@eye2iproductions.com" objCDO.Subject = "Colorado River Inspection Service - Inspection Request" objCDO.Body = Chr(13) & Chr(10) &_ "First Name: " & cStr(Request("FirstName")) & Chr(13) & Chr(10) &_ Chr(13) & Chr(10) & "Last Name: " & cStr(Request("LastName")) & Chr(13) & Chr(10) &_ Chr(13) & Chr(10) & "Phone Number: " & cStr(Request("Phone")) & Chr(13) & Chr(10) &_ Chr(13) & Chr(10) & "E-mail Address: " & cStr(Request("Email")) & Chr(13) & Chr(10) &_ Chr(13) & Chr(10) & "Preferred Period: " & cStr(Request("PreferredPeriod")) & Chr(13) & Chr(10) &_ Chr(13) & Chr(10) & "Preferred Month: " & cStr(Request("PreferredMonth")) & Chr(13) & Chr(10) &_ Chr(13) & Chr(10) & "Preferred Day: " & cStr(Request("PreferredDay")) & Chr(13) & Chr(10) &_ Chr(13) & Chr(10) & "Preferred Time: " & cStr(Request("PreferredTime")) & Chr(13) & Chr(10) &_ Chr(13) & Chr(10) & "Inspection Address 1: " & cStr(Request("InspectionAddress1")) & Chr(13) & Chr(10) &_ Chr(13) & Chr(10) & "Inspection Address 2: " & cStr(Request("InspectionAddress2")) & Chr(13) & Chr(10) &_ Chr(13) & Chr(10) & "Inspection City: " & cStr(Request("InspectionCity")) & Chr(13) & Chr(10) &_ Chr(13) & Chr(10) & "Inspection State: " & cStr(Request("InspectionState")) & Chr(13) & Chr(10) &_ Chr(13) & Chr(10) & "Inspection Zip: " & cStr(Request("InspectionZip")) & Chr(13) & Chr(10) &_ Chr(13) & Chr(10) & "How Referred To Us: " & cStr(Request("HowReferredToUs")) & Chr(13) & Chr(10) &_ Chr(13) & Chr(10) & "Inspection Zip: " & cStr(Request("CommentsQuestions")) objCDO.Send Set objCDO = Nothing Response.Redirect("thankyou.asp") End If %>
|
|||||||||||||||