%@ Language=VBScript %> <%Response.Expires = -1 %> <% ' ----- do not change anything below this line, unless it prompts you ----- dim u u=Request.QueryString("u") if len(u)>0 then dim message, subject, email, thankyou ' ----- the following lines can be altered according to the fields in the form ----- message="Name: " & Request.Form("Name") & vbcrlf & _ "Company: " & Request.Form("Company") & vbcrlf & _ "Title: " & Request.Form("Title") & vbcrlf & _ "Address: " & Request.Form("Address") & vbcrlf & _ "City: " & Request.Form("City") & vbcrlf & _ "State: " & Request.Form("State") & vbcrlf & _ "Zip: " & Request.Form("Zip") & vbcrlf & _ "Country: " & Request.Form("Country") & vbcrlf & _ "Phone: " & Request.Form("Phone") & vbcrlf & _ "Fax: " & Request.Form("Fax") & vbcrlf & _ "Email: " & Request.Form("email") & vbcrlf & _ "Comments: " & Request.Form("textfield") ' ----- do not change anything below this line ----- subject=Request.Form("subject") ' --- read from "subject" hidden form field email=Request.Form("recipient") ' --- read from "recipient" hidden form field thankyou=Request.Form("redirect") ' --- read from "redirect" hidden form field sendMail message,subject,email,email Response.Redirect(thankyou) end if %>
|
|
|||||||||
![]() |
|||||||||
|
|
|
||||||||
|
Boston Office: 301 Edgewater Place, Suite 220 Wakefield, MA 01880 Phone: 781.245.2036 Fax: 781.245.8706
|
|||||||||