%@ LANGUAGE="VBSCRIPT" %> <% If Request.Form("action") = "submit" Then Dim myCDO, sendto msgSubject = "SERVICE INQUIRY FORM" Message = "Name: " & vbCrLf & " " & Request.Form("YourName") & vbCrLf & _ "Title: " & vbCrLf & " " & Request.Form("Title") & vbCrLf & _ "Company Name: " & vbCrLf & " " & Request.Form("CompanyName") & vbCrLf & _ "Address: " & vbCrLf & " " & Request.Form("StreetAddress") & vbCrLf & _ " " & Request.Form("YourCity") & ", " & Request.Form("YourState") & " " & Request.Form("YourZip") & vbCrLf & _ "Telephone: " & vbCrLf & " " & Request.Form("YourPhone") & vbCrLf & _ "Type Of Business: " & vbCrLf & " " & Request.Form("BusType") & vbCrLf & _ "Email: " & vbCrLf & " " & Request.Form("YourEmail") & vbCrLf & _ "Type of Transaction: " & vbCrLf & " " & Request.Form("TypeTrans") & vbCrLf & _ "Type of Space: " & vbCrLf & " " & Request.Form("TypeSpace") & vbCrLf & _ "Type of Location: " & vbCrLf & " " & Request.Form("LocType") & vbCrLf & _ "Timing of Transaction: " & vbCrLf & " " & Request.Form("TransTiming") & vbCrLf & _ "Special on-site needs: " & vbCrLf & " " & Request.Form("SpecialNeeds") & vbCrLf & _ "Square Footage Needed: " & vbCrLf & " " & Request.Form("SqFt") & vbCrLf & _ "How They Heard About Us: " & vbCrLf & " " & Request.Form("how_hear") & vbCrLf Set myCDO=Server.CreateObject("CDONTS.NewMail") sendto = "Info@ForTheTenant.com" myCDO.send "Info@ForTheTenant.com", sendto, msgSubject, Message Set myCDO=nothing Response.Redirect "thanks.asp" End If %>
|
|||||||||