%@LANGUAGE="VBSCRIPT"%> <% ' *** Send Form Values From Same Page to Webmaster - CDO NewMail ' *** UltraSuite Server Behavior - CDONewMail_111 - version 1.0 ' *** Created by Jag S. Sidhu - www.ultrasuite.com Dim usxCDO Set usxCDO = Server.CreateObject("CDONTS.NewMail") usxCDO.From = cStr(Request("Email")) usxCDO.To = "nora@digipostmail.com" usxCDO.Subject = "Digipostmail.com Feedback Response" usxCDO.Body = Chr(13) & Chr(10) &_ "Name: " & cStr(Request("Name")) & Chr(13) & Chr(10) &_ "E-mail: " & cStr(Request("Email")) & Chr(13) & Chr(10) &_ "Comments: " & cStr(Request("Comments")) If (cStr(Request("Submit")) <> "") Then usxCDO.Send Set usxCDO = Nothing Response.Redirect "thanks.asp" End If %>