Email FUNZIONA

<%
'***************************************
' richiamato da NEW.asp
'***************************************

'____________________SCRITTURA EMAIL

DIM corpoMessaggio, numeroCampi,  invioDa, nomeDominio, indirizzoIp, modulo, browserSistemaOperativo

'* voce da modificare l'indirizzo email del destinatario
' Response.Write( "emai spedita a  = " &  Request.form("email"))	
'  invioA = "vb6access@hotmail.com"

'* voce da modificare con un indirizzo email che funga da mittente: 
	'* in caso di errore riceverete notifica a questo indirizzo un MAILER-DAEMON
	'* dato che cdosys supporta questa notifica
		
invioDa =  "vb6access@hotmail.com"

'------------fine modifiche necessarie------------------

nomeDominio 				= Request.ServerVariables("HTTP_HOST")
indirizzoIp					= Request.ServerVariables("REMOTE_ADDR") 
modulo						= Request.ServerVariables("HTTP_REFERER")
browserSistemaOperativo		= Request.ServerVariables("HTTP_USER_AGENT")

'*rilevo i campi del form
	
FOR numeroCampi = 1 TO (Request.Form.Count() - 1)
   IF NOT Request.Form(numeroCampi) = "" THEN
      corpoMessaggio = corpoMessaggio & vbCrLf & Request.Form.Key(numeroCampi) & " = " & Trim(Request.Form(numeroCampi))
   END IF
NEXT

'* creo gli oggetti cdosys sul server e li gestisco
	
DIM iMsg, Flds, iConf

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.aruba.it" 
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update

'Response.Write( "Messaggio  = " & corpoMessaggio)

With iMsg
   Set .Configuration = iConf
   .To =   Request.Form("email")  
   .From = invioDa 
   .Sender = invioDa
   .Subject = "Contatto dal dominio " & nomeDominio & "\Condominio Via Conca d'oro - Roma"
   .TextBody = "La tua iscrizione è avvenuta con successo"  & vbCrLf & "Nelle prossime ore riceverai l'email di conferma con le tue credenziali registrate."  & vbCrLf & corpoMessaggio & ""
   .Send
End With

'' FINE SCRITTURA EMAIL ____________________

 
           <!--METADATA TYPE="typelib" UUID="CD000000-8B95-11D1-82DB-00C04FB1625D" NAME="CDO for Windows 2000 Type Library" -->  
 
           <!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4" NAME="ADODB Type Library" -->  
 
           <%  
 
  ="commento"> '*************************************** 

  ="commento"> ' richiamato da NEW.asp 

  ="commento"> '*************************************** 

  ="commento"> '____________________SCRITTURA EMAIL 

           DIM corpoMessaggio, numeroCampi,  invioDa, nomeDominio, indirizzoIp, modulo, browserSistemaOperativo  
 
           	'* voce da modificare l'indirizzo email del destinatario  
 
  ="commento"> ' Response.Write( "emai spedita a  = " &  Request.form("email"))	 

  ="commento"> '  invioA = "vb6access@hotmail.com" 

           	'* voce da modificare con un indirizzo email che funga da mittente:   
 
           	'* in caso di errore riceverete notifica a questo indirizzo un MAILER-DAEMON  
 
           	'* dato che cdosys supporta questa notifica  
 
           invioDa =  "vb6access@hotmail.com"  
 
  ="commento"> '------------fine modifiche necessarie------------------ 

           nomeDominio 				= Request.ServerVariables("HTTP_HOST")  
 
           indirizzoIp					= Request.ServerVariables("REMOTE_ADDR")   
 
           modulo						= Request.ServerVariables("HTTP_REFERER")  
 
           browserSistemaOperativo		= Request.ServerVariables("HTTP_USER_AGENT")  
 
           	'*rilevo i campi del form  
 
           FOR numeroCampi = 1 TO (Request.Form.Count() - 1)  
 
              IF NOT Request.Form(numeroCampi) = "" THEN  
 
                 corpoMessaggio = corpoMessaggio & vbCrLf & Request.Form.Key(numeroCampi) & " = " & Trim(Request.Form(numeroCampi))  
 
              END IF  
 
           NEXT  
 
           	'* creo gli oggetti cdosys sul server e li gestisco  
 
           DIM iMsg, Flds, iConf  
 
           Set iMsg = CreateObject("CDO.Message")  
 
           Set iConf = CreateObject("CDO.Configuration")  
 
           Set Flds = iConf.Fields  
 
           Flds(cdoSendUsingMethod) = cdoSendUsingPort  
 
           Flds(cdoSMTPServer) = "smtp.aruba.it"   
 
           Flds(cdoSMTPServerPort) = 25  
 
           Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0  
 
           Flds.Update  
 
  ="commento">  'Response.Write( "Messaggio  = " & corpoMessaggio)	 

           With iMsg  
 
              Set .Configuration = iConf  
 
              .To =   Request.Form("email")    
 
              .From = invioDa   
 
              .Sender = invioDa  
 
              .Subject = "Contatto dal dominio " & nomeDominio & "\Condominio Via Conca d'oro - Roma"  
 
              .TextBody = "La tua iscrizione è avvenuta con successo"  & vbCrLf & "Nelle prossime ore riceverai l'email di conferma con le tue credenziali registrate."  & vbCrLf & corpoMessaggio & ""  
 
              .Send  
 
           End With  
 
  ="commento"> '' FINE SCRITTURA EMAIL ____________________