%@LANGUAGE="VBSCRIPT"%> <% if (cStr(Request("Submit")) <> "") Then Dim objCDO, strBody, strEmail strEmail = "rfs@redstonemedia.com" strBody = "The following Company has responded from the Brickwork Direct web site: " & vbCrLF strBody = strBody & "==================================" & vbCrLF strBody = strBody & "Name: " & Request.Form("name") & vbCrLF strBody = strBody & "Position: " & Request.Form("position") & vbCrLF strBody = strBody & "Company: " & Request.Form("company") & vbCrLF strBody = strBody & "Address: " & Request.Form("address") & vbCrLF strBody = strBody & "E-mail: " & Request.Form("email") & vbCrLF strBody = strBody & "Telephone: " & Request.Form("telephone") & vbCrLF & vbCrLF strBody = strBody & "Enquiry Details: " & Request.Form("enquiry") & vbCrLF strBody = strBody & "==================================" & vbCrLF Set objCDO = Server.CreateObject("CDONTS.NewMail") objCDO.From = Request.Form("email") objCDO.To = strEmail objCDO.CC = Request.Form("") objCDO.Subject = "Response from Brickwork Direct web site" objCDO.Body = strBody objCDO.Send() Set objCDO = Nothing Response.Redirect("thanks.htm") End If %>
|
||||||||||||||||||||||||||