Code: |
Dim objCDO Set objCDO = Server.CreateObject("CDONTS.NewMail") objCDO.From = cStr(Request("textFrom")) objCDO.To = "address@to-appear-from.com" objCDO.Subject = "Feedback from Website" objCDO.Body = Chr(13) & Chr(10) & "Name: " & cStr(Request("textName")) & Chr(13) & Chr(10)_ & "Phone: " & cStr(Request("textPhone")) & Chr(13) & Chr(10)_ & "IP Address: " & cStr(Request("ipaddress")) & Chr(13) & Chr(10)_ & "Feedback: " & cStr(Request("textBody")) IF (CStr(Request("Submit")) <> "") THEN objCDO.Send Set objCDO = Nothing Response.Redirect("submit_success.asp") End If |
output generated using printer-friendly topic mod, All times are GMT + 2 Hours