%@ 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 mailGrmm Dim mailMm Dim mailMt Dim mailIntdia Dim mailExtdia Dim mailColors Dim mailConsu Dim mailMd Dim mailCd 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") if Request.Form("cc1") = "si" then mailGrmm = Request.Form("grm") else mailGrmm = Request.Form("select1") End if mailMm = Request.Form("mm") mailMt = Request.Form("mt") mailIntdia = Request.Form("intdia") if Request.Form("cc2") = "si" then mailExtdia = Request.Form("extdia") else mailExtdia = Request.Form("select2") End if mailPhyfea = Request.Form("phy_fea") MailColors = Request.Form("colors") mailConsu = Request.Form("cons") mailMd = Request.Form("md") mailCd = Request.Form("cd") mailPartreq = Request.Form("textfield") mailIp = Request.ServerVariables("REMOTE_ADDR") mailBody = "
REQUEST INFORMATION ABOUT ULTRATEX
" 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 & " |
| G/mē: | " mailBody = mailBody & "" & mailGrmm & " |
| Widhts Mm: | " mailBody = mailBody & "" & mailMm & " |
| Lenght of roll Mt: | " mailBody = mailBody & "" & mailMt & " |
| Int. dia. mm: | " mailBody = mailBody & "" & mailIntdia & " |
| Ext. dia. mm: | " mailBody = mailBody & "" & mailExtdia & " |
| Roll max Kg: | " mailBody = mailBody & "" & mailMax & " |
| Colors: | " mailBody = mailBody & "" & mailColors & " |
| Consumption mē: | " mailBody = mailBody & "" & mailConsu & " |
| Technical specs: | " mailBody = mailBody & "MD: " & mailMd & " CD: "& mailCD &" |
| Particular request: | " mailBody = mailBody & "" & mailPartreq & " |
| IP address: | " mailBody = mailBody & "" & mailIp & " |