%@LANGUAGE="VBSCRIPT"%><% if (cStr(Request("Submit")) <> "") Then Dim objCDO Set objCDO = Server.CreateObject("CDONTS.NewMail") objCDO.From = Request.Form("Email") objCDO.To = "picotti@picotti.it" objCDO.CC = "" objCDO.Subject = "My Message to Picotti S.r.l." objCDO.Body = "I miei dati:" & vbcrlf & vbcrlf&_ "Nome: " & Request.Form("Name") & vbcrlf&_ "Cognome: " & Request.Form("Surname") & vbcrlf&_ "Società: " & Request.Form("Company") & vbcrlf&_ "Indirizzo: " & Request.Form("Street") & vbcrlf&_ "CAP/Località: " & Request.Form("Zip") & vbcrlf&_ "Paese: " & Request.Form("Country") & vbcrlf&_ "Telefono: " & Request.Form("Telefono") & vbcrlf&_ "Fax: " & Request.Form("Fax") & vbcrlf & vbcrlf&_ "Messaggio: " & Request.Form("RichiestaInfo") Request.Form("form1") objCDO.Send() Set objCDO = Nothing Response.Redirect("Informazioni_Inviate.asp") End If %>