%@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 Contact Response" usxCDO.Body = Chr(13) & Chr(10) &_ "Name: " & cStr(Request("Name")) & Chr(13) & Chr(10) &_ "Company: " & cStr(Request("Company")) & Chr(13) & Chr(10) &_ "Address: " & cStr(Request("Address")) & Chr(13) & Chr(10) &_ "City: " & cStr(Request("City")) & Chr(13) & Chr(10) &_ "states: " & cStr(Request("states")) & Chr(13) & Chr(10) &_ "E-mail: " & cStr(Request("Email")) & Chr(13) & Chr(10) &_ "Phone: " & cStr(Request("Phone")) & Chr(13) & Chr(10) &_ "Fax: " & cStr(Request("Fax")) & Chr(13) & Chr(10) &_ "How he/she heard of Digipost: " & cStr(Request("How_Heard")) & Chr(13) & Chr(10) &_ "Description of needs: " & cStr(Request("Comments")) If (cStr(Request("Submit")) <> "") Then usxCDO.Send Set usxCDO = Nothing Response.Redirect "thanks.asp" End If %>
|
|||||||||||
![]() |
|||||||||||
|
|||||||||||
| |
|
|
|||||||||