allora questo è il file che sto cercando di usare io:


<%
'============Linkbruttocane su specifiche MSDN================
'* il corpo finale del messaggio contiene tutti i campi *
'* inseriti nella pagina html, in pratica puoi mettere *
'* tutti i campi che ti servono nel modulo di invio senza *
'* fare altre configurazioni aggiuntive. *
'================================================= ============

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

'* voce da modificare con il proprio indirizzo email

invioA = "Altruder@aruba.it"

'* 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 = "Altruder@technet.it"

'------------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

stremail = Request.Form("email")
'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

sql= "SELECT username, email, password FROM utenti WHERE email ='" & stremail & "'"
set objRs = Server.CreateObject("ADODB.recordset")
objRs.CursorLocation = 3
objRs.Open sql,Conn,0,1
If objRs.EOF Then
Response.Write "<CENTER>"
Response.Write "<FONT>EMAIL NON TROVATA</FONT>

"
Response.Write "Torna"
Response.Write "</CENTER>"
Else
username = objRs.Fields("username")
password = objRs.Fields("password")
email = objRs.Fields("email")
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

With iMsg
Set .Configuration = iConf
.To = invioA
.From = Request.Form("email")
.Sender = invioDa
.Subject = "Contatto dal dominio " & nomeDominio
.TextBody = "Questi i dati inseriti nel modulo presente alla pagina " & modulo & " da utente con indirizzo IP " & indirizzoIp & " browser e sistema operativo " & browserSistemaOperativo & vbCrLf & corpoMessaggio & ""
.Send
End With
%>
lo metto online mi da errore e piu precisam,ente questo errore:
Microsoft VBScript compilation error '800a03f6'

Expected 'End'

/password.asp, line 74
dove la linea 74 è
End With