Come utlizzo questa pagina asp

[peppe79]

Ciao ho questa pagina asp per l invio di mail ke funziona...

<%

' Dichiara l'oggetto email e la configurazione
Dim objMail, objConfig

' Dimensiona l'oggetto email
Set objMail = CreateObject("CDO.Message")


' ====================================

'Dimensiona l'oggetto configurazione
Set objConfig = Server.CreateObject("CDO.Configuration")

' Imposta le configurazioni
With objConfig

' Server SMTP di uscita
'Esempio mail.dominio.it
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.media.it"

' Porta SMTP
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

' Porta CDO
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

' Timeout
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

.Fields.Update
End With

' Assegna le configurazioni
Set objMail.Configuration = objConfig

' ====================================


' Assegna all'oggetto le proprietà necessarie

' Mittente dell'email (indirizzo)
objMail.From = "xxx@xxx.it"

' Destinatario dell'email (indirizzo)
objMail.To = "xxx@xxx.it"

' Cc e Bcc (opzionale)
'objMail.Cc = "altroindirizzo@dominio.xx; ancora@dominio.xx"
'objMail.Bcc = "altroindirizzo@dominio.xx; ancora@dominio.xx"

' Oggetto dell'email
objMail.Subject = "Oggetto della mail"

' Valore di priorità
'objMail.Fields("urn:schemas:httpmail:importance").Value = 2
'objMail.Fields.Update()

' Allegare un file
'objMail.AddAttachment("d:\inetpub\webs\tuodominiocom\file.zip")

' Corpo del messaggio
objMail.TextBody = "Testo della mail" 'Formato Testo
'objMail.HTMLBody = "Testo della mail" 'Formato HTML

' Invia l'email
objMail.Send()

' Distruggi l'oggetto
Set objMail = Nothing

%>

come faccio ad integrare questo codice nella mia pagina asp?
questa è il pezzo di codice dove vorrei integrare

if(azione == "OK"){
  var Nome          = new String(Request.Form("Nome"));
  var Cognome       = new String(Request.Form("Cognome"));
  var Nato          = new String(Request.Form("Nato"));
  var DataNascita   = new String(Request.Form("DataNascita"));
  var Residente     = new String(Request.Form("Residente"));
  var Provincia     = new String(Request.Form("Provincia"));
  var Cap           = new String(Request.Form("Cap"));
  var Indirizzo     = new String(Request.Form("Indirizzo"));
  var NrCivico      = new String(Request.Form("NrCivico"));
  var TelCell       = new String(Request.Form("TelCell"));
  var CodiceFiscale = new String(Request.Form("CodiceFiscale"));
  var Professione   = new String(Request.Form("Professione"));
  var Email         = new String(Request.Form("Email"));
  var Accetto       = new String(Request.Form("Accetto"));

  if(Nome == "" || Cognome == "" || Nato == "" || DataNascita == "" || Residente == "" || Provincia == "" || Cap == "" || Indirizzo == "" || NrCivico == "" || TelCell == "" || CodiceFiscale == "" || Professione == "" || Email == ""){
   Response.Write("[img]x.gif[/img]

");
   Response.Write("<font color='#FF0000'>ERRORE! Tutti i campi sono obbligatori.</font>
");
   Response.Write("Torna indietro per correggere");
  }
  else if(Accetto != "Accettato"){
   Response.Write("[img]x.gif[/img]

");
   Response.Write("<font color='#FF0000'>ERRORE! Attenzione non hai accettato le condizioni!</font>
");
   Response.Write("Torna indietro per correggere");
  }
  else{
    // QUI IL CODICE COME?!
    Response.Write("Email inviata con successo!");
  }
 }

[Sypher]

mmm...ti serve tradurlo in vbscript?

[peppe79]

praticamente si....

[Sypher]

if azione = "OK" Then
  Nome          = Request.Form("Nome")
  Cognome       = Request.Form("Cognome")
  'e via discorrendo per gli altri
end if


if Nome=="" or Cognome = "" or Nato="" or ... then

   Response.Write("[img]x.gif[/img]

")
   Response.Write("<font color='#FF0000'>ERRORE! Tutti i campi sono obbligatori.</font>
")
   Response.Write("Torna indietro per correggere")
elseif accetto <> "Accettato" then
   Response.Write("[img]x.gif[/img]

")
   Response.Write("<font color='#FF0000'>ERRORE! Attenzione non hai accettato le condizioni!</font>
")
   Response.Write("Torna indietro per correggere")

else
     Response.Write("Email inviata con successo!")
end if

[peppe79]

grazie 1000 provo e ti faccio sapere