<% Dim t1name,t1,t2name,t2,t3name,t3 t1name = "Name" t1 = Request.Form("t1") t2name = "Age" t2 = Request.Form("t2") t3name = "Email" t3 = Request.Form("t3") Dim stname,st stname = "Comments" st = Request.Form("st") Dim ObjMail Set ObjMail = Server.CreateObject("CDONTS.NewMail") ObjMail.To = "Holds55@hotmail.com" 'in the next line you can change that email address to something else 'like "myform@myurl.com", just be sure and put it between quotes " " ObjMail.From = "Holds55@hotmail.com" 'you can also change "Form Submission" to something else like "form results" etc. ObjMail.Subject = "Form Submission" ObjMail.Body = t1name & vbcrlf&_ t1 & vbcrlf&_ t2name & vbcrlf&_ t2 & vbcrlf&_ t3name & vbcrlf&_ t3 & vbcrlf&_ stname & vbcrlf&_ st ObjMail.Send Set ObjMail = Nothing 'HERE you make a choice. You can redirect the user to any page in your site Response.Redirect "http://pacosdrivers.com" 'Or just say thanks. Delete the line you dont want. Either above or below Response.Write"Thank You" %>
Site hosted by Angelfire.com: Build your free website today!