% ' *** Send Form Values From Same Page to Webmaster - CDO NewMail ' *** UltraSuite Server Behavior - CDOMail_111 - version 1.0 ' *** Created by Jag S. Sidhu - www.ultrasuite.com Dim usxCDO Set usxCDO = Server.CreateObject("CDONTS.NewMail") usxCDO.From = "aseward@epicintl.net" usxCDO.To = "aseward@epicintl.net" usxCDO.cc = "aseward@epicintl.net" usxCDO.bcc = "postmaster@epicintl.net" usxCDO.Subject = "EPIC WEBSITE LEAD" usxCDO.Body = Chr(13) & Chr(10) &_ "Name: " & cStr(Request("fullname")) & Chr(13) & Chr(10) &_ "E-mail: " & cStr(Request("email")) & 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) &_ "State: " & cStr(Request("state")) & Chr(13) & Chr(10) &_ "Zip: " & cStr(Request("zip")) & Chr(13) & Chr(10) &_ "Phone: " & cStr(Request("phone")) & Chr(13) & Chr(10) &_ "Time Frame: " & cStr(Request("timeframe")) & Chr(13) & Chr(10) &_ "Contact Preference: " & cStr(Request("contact")) If (cStr(Request("Submit")) <> "") Then usxCDO.Send Set usxCDO = Nothing Response.Redirect "thankyou.php" End If %>
© 2003 - 2008 EPIC INTERNATIONAL, Inc. |