Mr. & Mrs. Detective

<%@language="VBSCRIPT"%> <% Option Explicit Response.CacheControl = "no-cache" Response.AddHeader "Pragma", "no-cache" Response.Expires = -1 If Request.ServerVariables("REQUEST_METHOD") = "POST" Then Dim EmailObj,bodytext Set EmailObj = Server.CreateObject("CDO.Message") With EmailObj .From = Request.Form("Email") .To = Request.Form("recipient") .Subject = Request.Form("subject") bodytext = "The following inquiry was just submitted: " & vbCRLF bodytext = bodytext & "Name: " & Request.Form("Name") & vbCRLF bodytext = bodytext & "Address: " & Request.Form("Address") & vbCRLF bodytext = bodytext & "City: " & Request.Form("City") & vbCRLF bodytext = bodytext & "State: " & Request.Form("State") & vbCRLF bodytext = bodytext & "Zip: " & Request.Form("Zip") & vbCRLF bodytext = bodytext & "Phone: " & Request.Form("Phone") & vbCRLF bodytext = bodytext & "Fax: " & Request.Form("Fax") & vbCRLF bodytext = bodytext & "Email: " & Request.Form("Email") & vbCRLF & vbCRLF bodytext = bodytext & "Comments: " & Request.Form("Comments") & vbCRLF .TextBody = bodytext .Send End With Set EmailObj = Nothing Response.Redirect("thankyou.htm") End if %> Mr. & Mrs. Detective

Inquiry Form
For Immediate Assistance, Please Call 1-401-615-0968.

Name:	*
Address:
City:
State:
Zip:
Phone:	*
Fax:
Email:	*
Comments:

(* denotes required fields)