email attivazione utenti non arriva su @libero @tiscali

[tanuccio1]

Salve a tutti! Ho preso uno script per la registrazione degli utenti e l'ho implementato nel mio sito. Lo script funziona parzialmente in quanto non arrivano i link di attivazione degli utenti sui domini tipo @libero @tiscali. Posto il codice aiutatemi per favore
<%
Else

Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM Utenti Order By ID Desc"
RecSet.Open SQL, Conn, adOpenStatic, adLockOptimistic

RecSet.Addnew

RecSet("username") = username
RecSet("password") = password
RecSet("email") = email


RecSet("attivo") = 0

RecSet.Update
RecSet.Close
Set RecSet = Nothing


Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT ID FROM Utenti Where username = '" & username & "' and password = '" & password &"'"
RecSet.Open SQL, Conn, adOpenStatic, adLockOptimistic

ID = RecSet("ID")

RecSet.Close
Set RecSet = Nothing

Conn.Close
Set Conn = Nothing


mittente = "info@nomedominio.it"

testo = "Caro utente," & chr(13)
testo = testo & "per attivare la registrazione al nostro sito, fai click sul link qui sotto" & chr(13)
testo = testo & "http://www.nomesito/area_riservata/attiva.asp?ID=" & id &"" & chr(13) & chr(13)
testo = testo & "Lo staff di nomesito!" & chr(13)
testo = testo & "http://www.nomesito.it"

emaila = email

Set email = Server.CreateObject("CDO.Message")

email.From = mittente
email.To = emaila
email.Subject = "ATTIVA LA REGISTRAZIONE!"
email.textBody = testo
email.Send()


Set email = nothing
%>
Aiutatemi per favore!!!

[wallrider]

E' un problema di autenticazione
cerca
libero
in questo forum e guarda come hanno risolto

[tanuccio1]

Ho cercato nel forum ma non riesco a trovare la soluzione al mio problema... puoi darmi una mano per favore?

[EmTmE]

Originariamente inviato da tanuccio1
Ho cercato nel forum ma non riesco a trovare la soluzione al mio problema... puoi darmi una mano per favore?

QUI
Guarda ultimo esempio magari inviando come SMTP ossia come una "vera" mail arrivano.

[tanuccio1]

Originariamente inviato da EmTmE
QUI
Guarda ultimo esempio magari inviando come SMTP ossia come una "vera" mail arrivano.

EmTmE ho modificato lo script postato sopra così come mi hai indicato nell'esempio... dove sbaglio?
<%
Else

Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM Utenti Order By ID Desc"
RecSet.Open SQL, Conn, adOpenStatic, adLockOptimistic

RecSet.Addnew

RecSet("username") = username
RecSet("password") = password
RecSet("email") = email

RecSet("attivo") = 0

RecSet.Update
RecSet.Close
Set RecSet = Nothing

Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT ID FROM Utenti Where username = '" & username & "' and password = '" & password &"'"
RecSet.Open SQL, Conn, adOpenStatic, adLockOptimistic

ID = RecSet("ID")

RecSet.Close
Set RecSet = Nothing

Conn.Close
Set Conn = Nothing


mittente = "info@nomesito.it"

testo = "Caro utente," & chr(13)
testo = testo & "per attivare la registrazione al nostro sito, fai click sul link qui sotto" & chr(13)
testo = testo & "http://www.nomesito.it/area_riservata/attiva.asp?ID=" & id &"" & chr(13) & chr(13)
testo = testo & "Lo staff di nomesito!" & chr(13)
testo = testo & "http://www.nomesito.it"

emaila = email
Set email = Server.CreateObject("CDO.Message")

email.From = mittente
email.To = emaila
email.Subject = "[nomesito] ATTIVA LA REGISTRAZIONE!"
email.textBody = testo
email.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
email.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.aruba.it"
email.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25
email.Send()


Set email = nothing
%>

[EmTmE]

il codice a guardalo sembra ok
ma arrivano le mail ?
fra l'altro non sono nemmeno sicuro che aruba supporti cdo.message

[EmTmE]

trovato questo post ...
allora lascia perdere il problema httpref .. che tanto a te non frega guarda la parte di codice dove mette utente e pass che ti danno autenticazione certa e precisa su server smtp
penso dovrebbe essere risolutivo per te
QUI

[tanuccio1]

Originariamente inviato da
trovato questo post ...
allora lascia perdere il problema httpref .. che tanto a te non frega guarda la parte di codice dove mette utente e pass che ti danno autenticazione certa e precisa su server smtp
penso dovrebbe essere risolutivo per te
QUI

tutto ok EmTmE, problema risolto grazie.... l'errore che commettevo era quello di mettere una mail che non esisteva sul server che ospita il sito web Grazie infinite per il tuo contributo e a tutto lo staff di Html.it, sempre pronti ad aiutarmi!!!

[EmTmE]

Originariamente inviato da tanuccio1
tutto ok EmTmE, problema risolto grazie.... l'errore che commettevo era quello di mettere una mail che non esisteva sul server che ospita il sito web Grazie infinite per il tuo contributo e a tutto lo staff di Html.it, sempre pronti ad aiutarmi!!!

ah ah ah capita...
che ne pensi di postare il codice funzionante che hai fatto ovviamente celando la tua mail
così facciamo qualcosa di veramente utile per tutti

[tanuccio1]

Originariamente inviato da EmTmE
ah ah ah capita...
che ne pensi di postare il codice funzionante che hai fatto ovviamente celando la tua mail
così facciamo qualcosa di veramente utile per tutti

Ok EmTmE ecco il codice funzionante...

<%
Else

Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM Utenti Order By ID Desc"
RecSet.Open SQL, Conn, adOpenStatic, adLockOptimistic

RecSet.Addnew

RecSet("username") = username
RecSet("password") = password
RecSet("email") = email

RecSet("attivo") = 0

' CHIUDE LA CONNESSIONE AL DB
RecSet.Update
RecSet.Close
Set RecSet = Nothing


Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT ID FROM Utenti Where username = '" & username & "' and password = '" & password &"'"
RecSet.Open SQL, Conn, adOpenStatic, adLockOptimistic

ID = RecSet("ID")

RecSet.Close
Set RecSet = Nothing

Conn.Close
Set Conn = Nothing


mittente = "nome@server.ext" 'qui l'errore... ci vuole una mail esistente sul server dove risiede il sito

testo = "Caro utente," & chr(13)
testo = testo & "per attivare la registrazione al nostro sito, fai click sul link qui sotto" & chr(13)
testo = testo & "http://www.nomesito.ext/area_riservata/attiva.asp?ID=" & id &"" & chr(13) & chr(13)
testo = testo & "Lo staff di nomesito!" & chr(13)
testo = testo & "http://www.nomesito.ext"

emaila = email
Set Config = Server.CreateObject("CDO.Configuration")
Set email = Server.CreateObject("CDO.Message")

email.From = mittente
email.To = emaila
email.Subject = "[nomesito] ATTIVA LA REGISTRAZIONE!"
email.textBody = testo
email.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
email.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver")="localhost"
email.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25
email.Send()


Set email = nothing
Set Fields = Nothing
%>
ancora grazie emtme...