% option explicit if Request.Form("action") = "submit" then dim objCDO, strBody set objCDO = Server.CreateObject("cdonts.newmail") objCDO.To = "sales@rams-tickets.com" objCDO.From = "webmaster@rams-tickets.com" objCDO.Subject = "Data posted to form 1 of http://" & Request.ServerVariables("http_host") & Request.ServerVariables("script_name") strBody = "" strBody = strBody & "Name: " & Request.Form("Name") & VbCrLf strBody = strBody & "Address: " & Request.Form("Address") & VbCrLf strBody = strBody & "City: " & Request.Form("City") & VbCrLf strBody = strBody & "State: " & Request.Form("State") & VbCrLf strBody = strBody & "Zip: " & Request.Form("Zip") & VbCrLf strBody = strBody & "Home Phone: " & Request.Form("Home Phone") & VbCrLf strBody = strBody & "Work Phone: " & Request.Form("Work Phone") & VbCrLf strBody = strBody & "Email: " & Request.Form("Email") & vbcrlf strBody = strBody & "Date: " & Request.Form("Date") & VbCrLf strBody = strBody & "Opponent: " & Request.Form("Opponent") & VbCrLf strBody = strBody & "Qty_tickets: " & Request.Form("Qty_tickets") & VbCrLf strBody = strBody & "Price range: " & Request.Form("Price range") & VbCrLf strBody = strBody & "Comments: " & Request.Form("Comments") & VbCrLf objCDO.Body = strBody objCDO.Send set objCDO = nothing Response.Redirect "/confirm.htm" end if %>
|
|||||||||||||||
|
|
||||||||||||||
|
|||||||||||||||