%@ 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 mailMax Dim mailMm Dim mailMt Dim mailIntdia Dim mailHead Dim mailTear Dim mailVapour Dim mailChemicals Dim mailGas Dim mailPartreq 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") mailMax = Request.Form("max") mailMm = Request.Form("mm") mailMt = Request.Form("mt") mailIntdia = Request.Form("intdia") mailHead = Request.Form("ead") mailTear = Request.Form("tear") mailVapour = Request.Form("vapour") mailChemicals = Request.Form("chemicals") mailGas = Request.Form("gas") mailPartreq = Request.Form("textfield") mailIp = Request.ServerVariables("REMOTE_ADDR") mailBody = "
REQUEST INFORMATION ABOUT LAMINATES
" 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 & " |
| Widhts Mm: | " mailBody = mailBody & "" & mailMm & " |
| Lenght of roll Mt: | " mailBody = mailBody & "" & mailMt & " |
| Int. dia. mm: | " mailBody = mailBody & "" & mailIntdia & " |
| Roll max Kg: | " mailBody = mailBody & "" & mailMax & " |
| Design your product: | " mailBody = mailBody & "Water head: " & mailHead & " Tear resistance: "& mailTear &" Water vapour trans. rate: "& mailVapour &" Chemicals resistance: "& mailChemicals &" Gas resistance: "& mailGas &" |
| Particular request: | " mailBody = mailBody & "" & mailPartreq & " |
| IP address: | " mailBody = mailBody & "" & mailIp & " |