cdosys arriva ad alcuni Si altri No

[dodema]

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

[Roby_72]

Prova ad usare l'autenticazione del tuo server di posta:
http://www.weppos.com/asp/script/scr....asp?script=17

Roby

[dodema]

scuasate dormivo, cmq ho risolto, il problema era
il mittente, non inserendo nessuna email, il server ricevente ha creduto fosse spam, posta indesiderata, quindi ho la eliminava automatiucamente oppure conservava l'email in cartelle apposite

cmq grazie roby_72. a buon rendere.