% if (cStr(Request("Submit")) <> "") Then Dim objCDO Set objCDO = Server.CreateObject("CDONTS.NewMail") objCDO.From = "comments@webfurs.com" objCDO.To = "hallidayny@earthlink.net" objCDO.CC = "" objCDO.Subject = "Webfurs Online Contact Form" Dim strBody strBody = strBody & "First Name: " & Trim(Request.Form("name_first")) & chr(10) strBody = strBody & "Last Name: " & Trim(Request.Form("name_last")) & chr(10) strBody = strBody & "Telephone: " & Trim(Request.Form("telephone")) & chr(10) strBody = strBody & "Email: " & Trim(Request.Form("email")) & chr(10) strBody = strBody & "Comments: " & Trim(Request.Form("comments")) & chr(10) objCDO.Body = strBody objCDO.Send() Set objCDO = Nothing Response.Redirect("index_eh.htm") End If %>
|
|