.html<%@LANGUAGE="VBSCRIPT"%> <% ' *** Send Feedback From A Web Page - CDOMail ' *** UltraSuite Server Behavior - 4503 - version 1.0 ' *** Created by Jag S. Sidhu - www.ultrasuite.com Dim objCDO Set objCDO = Server.CreateObject("CDONTS.NewMail") objCDO.From = cStr(Request("te.htmltFrom")) objCDO.To = "mike.lewis@hpmsystems.co.uk" objCDO.Subject = "Feedback From Website" objCDO.Body = Chr(13) & Chr(10) & "Name: " & cStr(Request("te.htmltName")) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "Telephone: " & cStr(Request("phone")) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "Feedback: " & cStr(Request("te.htmltBody")) IF (CStr(Request("te.htmltFrom")) <> "") THEN objCDO.Send Set objCDO = Nothing Response.Redirect("thankyou.asp") End If %>
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
Please Enter Your Details Below. |
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||