%@LANGUAGE="VBSCRIPT"%> <% ' *** Send Form Values From Same Page to Webmaster - ASPMail ' *** UltraSuite Server Behavior - ASPMail_111 - version 1.0 ' *** Created by Jag S. Sidhu - www.ultrasuite.com Set Mailer = Server.CreateObject("SMTPsvg.Mailer") 'note: grab cStr(Request("Email")) from the email address in green below and replace it with what the FromAddress that Ultrasuite placed here originally Mailer.FromAddress= cStr(Request("email")) Mailer.RemoteHost = "mail2.chicagowebs.com" Mailer.AddRecipient "", "steve@bigtimekc.com" Mailer.Subject = "Contact Me" Mailer.BodyText = Chr(13) & Chr(10) &_ "Name: " & cStr(Request("name")) & Chr(13) & Chr(10) &_ "Phone Number: " & cStr(Request("phone")) & Chr(13) & Chr(10) &_ "Email Address: " & cStr(Request("email")) & Chr(13) & Chr(10) &_ "Body: " & cStr(Request("body")) & Chr(13) & Chr(10) &_ ": " & cStr(Request("")) If (cStr(Request("Submit")) <> "") Then Mailer.SendMail Response.Redirect "ContactUsSuccessfull.html" End If %>
|