%@LANGUAGE="VBSCRIPT"%> <% status = Request.Form("email") IF status <> "" THEN Dim miaMail Set miaMail = Server.CreateObject("CDO.Message") miaMail.From = Request.Form("email") miaMail.To = "marketing@mauimedia.it" miaMail.Subject = "Lead Ripetizioni di Inglese: Adesione Lezione Gratis" miaMail.TextBody = "Nome: " & Request.Form("nome") & vbNewLine & vbNewLine & "Indirizzo: " & Request.Form("indirizzo") & vbNewLine & vbNewLine & "Cittą: " & Request.Form("citta") & vbNewLine & vbNewLine & "Indirizzo Email: " & Request.Form("email")& vbNewLine & vbNewLine & "Telefono: " & Request.Form("telefono") MiaMail.Fields.Update() MiaMail.Send() Set MiaMail = Nothing END IF %>