%@ Language="VBScript" %> <% if Request.QueryString("azione") = "vai" then Dim mail Dim mailBody Dim mailName Dim mailSurname Dim mailPhone Dim mailFax Dim mailMail Dim mailCity Dim mailCompany Dim mailPosition Dim mailAddress Dim mailZip Dim mailState Dim mailAbout Dim mailGrmm Dim mailMm Dim mailMt Dim mailIntdia Dim mailExtdia Dim mailStrike Dim mailRewet Dim mailConsu Dim mailCd Dim mailMd Dim mailPartreq Dim mailAltro Dim mailIp Set mail = server.CreateObject("CDONTS.NewMail") mailName = Request.Form("nome") mailSurname = Request.Form("surname") mailPhone = Request.Form("phone") mailFax = Request.Form("fax") mailMail = Request.Form("mail") mailCity = Request.Form("city") mailCompany = Request.Form("company") mailPosition = Request.Form("position") mailAddress = Request.Form("address") mailZip = Request.Form("zip") mailState = Request.Form("state") mailAbout = Request.Form("radiobutton") if Request.Form("select") = 0 then mailGrmm = Request.Form("select2") else mailGrmm = Request.Form("select") End if mailMm = Request.Form("mm") mailMt = Request.Form("mt") mailIntdia = Request.Form("int_dia") mailExtdia = Request.Form("ext_dia") mailStrike = Request.Form("strike") mailRewet = Request.Form("rewet") mailConsu = Request.Form("cons") mailMd = Request.Form("md") mailCd = Request.Form("cd") mailAltro = Request.Form("altro") mailPartreq = Request.Form("textfield") mailIp = Request.ServerVariables("REMOTE_ADDR") mailBody = "
REQUEST INFORMATION ABOUT HYBOND
" mailBody = mailBody & "| Name: | " mailBody = mailBody & "" & mailName & " |
| Surname: | " mailBody = mailBody & "" & mailSurname & " |
| Company: | " mailBody = mailBody & "" & mailCompany & " |
| Position: | " mailBody = mailBody & "" & mailPosition & " |
| Address: | " mailBody = mailBody & "" & mailAddress & " |
| ZIP code: | " mailBody = mailBody & "" & mailZip & " |
| City: | " mailBody = mailBody & "" & mailCity & " |
| State: | " mailBody = mailBody & "" & mailState & " |
| Phone: | " mailBody = mailBody & "" & mailPhone & " |
| Fax: | " mailBody = mailBody & "" & mailFax & " |
| E-mail: | " mailBody = mailBody & "" & mailMail & " |
| Request about: | " mailBody = mailBody & "" & mailAbout & " |
| G/mē: | " mailBody = mailBody & "" & mailGrmm & " |
| Mm: | " mailBody = mailBody & "" & mailMm & " |
| Mt: | " mailBody = mailBody & "" & mailMt & " |
| Int. dia. mm: | " mailBody = mailBody & "" & mailIntdia & " |
| Ext. dia. mm: | " mailBody = mailBody & "" & mailExtdia & " |
| Physil. features: | " mailBody = mailBody & "Strike through :" & mailStrike & " Rewet: "& mailRewet &" |
| Consumption: | " mailBody = mailBody & "" & mailConsu & " |
| Technical specs: | " mailBody = mailBody & "MD: " & mailMd & " CD: "& mailCd & " Other: "& mailAltro &" |
| Particular request: | " mailBody = mailBody & "" & mailPartreq & " |
| IP address: | " mailBody = mailBody & "" & mailIp & " |