Ciao a tutti
questo script ricava i dati della propria registrazione!

Premetto che il tutto funziona, quando invio email,
ma il problema è ad alcuni arriva e ad altri no, un amico ha fatto una prova
e gli è arrivata come posta indesiderata "msn.it", mentre "yahoo.it" non gli arriva prorpio!

qualcuno mi sa spiegare come mai,
può essere considerata spam??
se si come posso Fare per non passare com spam,?


<%

email = Replace(Request.Form("email"), "'", "''")


IF email <> "" then


' PERCORSO DEL DATABASE
url_DB = "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/db/mail.mdb")

Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open url_DB

Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM mail_list where email = '" & email &"' "
RecSet.Open SQL, Conn, adOpenStatic, adLockOptimistic

' CONTROLLA SE l'email esiste
IF Not RecSet.Eof Then
'ok allora prelevo quello che mi serve

nome= RecSet("nome")
cognome= RecSet("cognome")


Presente = True

Else
' non è presente

Presente = False
End IF



RecSet.Close
Set RecSet = Nothing

Conn.Close
Set Conn = Nothing

' FA LA CONDIZIONE PER VERIFICARE SE L'UTENTE E' ESISTENTE O MENO

IF Presente = True then

' UTENTE PRESENTE:

mittente = "ciao"

testo = "Ciao," & chr(13) & " " & chr(13) & vbcrlf & ""
testo = testo & "ecco i dati della tua registrazione: " & chr(13) & chr(13) & chr(13) & chr(13) & chr(13) & chr(13) & vbcrlf & ""
testo = testo & "nome: " & nome& " " & chr(13) & vbcrlf & ""
testo = testo & "cognome: " & cognome& " " & chr(13) & chr(13) & vbcrlf & ""
testo = testo & "Ciao! " & chr(13) & vbcrlf & ""
testo = testo & "Non rispondere a questa email! " & chr(13) & vbcrlf & ""
testo = testo & ""


Dim MiaMail
Set MiaMail = Server.CreateObject("CDO.Message")
MiaMail.From = mittente
MiaMail.To = email
MiaMail.Subject = "[ciao] INVIO DATI !"
MiaMail.TextBody = testo
MiaMail.Fields("urn:schemas:httpmail:importance"). Value = 2
MiaMail.Fields.Update()
MiaMail.Send()
Set MiaMail = Nothing


%>

<p align="center"><font face="Verdana" size="2">Ti è stata inviata una email con tutti i dati !</font></p>

<%
Else

' utente non esiste
%>

<p align="center"><font face="Verdana" size="2">Email non presente !</font></p>

<%
End IF

Else

%>

<p align="center"><font face="Verdana" size="2">Campo "email" vuoto!</font></p>

<%
End IF
%>