Problemi con script recupero password

**Luis_Cypher** · 18-11-2008, 18:27

buona sera dopo tanto tribolare riesco a compilare uno script per la registrazione utenti....

ma (ovviamente non puo' andare tutto bene) quando faccio la richesta di psw persa mi dice mail inviata correttamente invece non invia nulla
di segutio allego lo scipt

<html>

<head>
<title>SEZIONI RISERVATE</title>
</head>

<body link="#00FFFF" text="#FFFFFF" bgcolor="#000099">


Password Persa

<%
' PRELEVA L'USERNAME INSERITO

Username = Replace(Request.Form("username"), "'", "''")

' CONTROLLA INNANZITUTTO SE E' STATO PASSATO UN VALORE, CIOE' VERIFICA
' CHE IL CAMPO USERNAME NON SIA VUOTO

IF Username <> "" then

' TUTTO OK...

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

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

Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM Utenti where username = '" & username &"' and attivo = 1"
RecSet.Open SQL, Conn, adOpenStatic, adLockOptimistic

' CONTROLLA SE L'UTENTE ESISTE REALMENTE

IF Not RecSet.Eof Then

' UTENTE ESISTENTE
' PRELEVA I SUOI DATI (USERNAME, EMAIL E PASSWORD)
' E IMPOSTA LA VARIAIBILE "Presente" SU TRUE

Password = RecSet("password")
Email = RecSet("email")

Presente = True

Else
' ALTRIMENTI ... UTENTE NON ESISTENTE
' IMPOSTA LA VARIAIBILE "Presente" SU FALSE

Presente = False
End IF

' Chiude la connessione al DB

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:
' PROVVEDE ALL'INVIO DELL'EMAIL CON I DATI PERSI
' UTILIZZANDO L'OGGETTO CDONTS

mittente = "mia mail"

testo = "Caro utente," & chr(13)
testo = testo & "ecco i dati della tua registrazione a ............:" & chr(13) & chr(13)
testo = testo & "Username: " & username & "" & chr(13)
testo = testo & "Password: " & password & "" & chr(13) & chr(13)
testo = testo & "Lo staff di ......." & chr(13)
testo = testo & "http://www.sito.it"

Set email = CreateObject("CDONTS.NewMail")
email.From = mittente
email.To = emaila
email.Subject = "[mio sito] RE-INVIO PASSWORD PERSA!"
email.Body = testo
email.Send

Set email = nothing
%>
<hr>
Ti è stata inviata una email con la password persa!
<hr>
<%
Else

' UTENTE NON ESISTENTE
%>
<hr>
Utente non esistente!
<hr>
<%
End IF

Else

' CAMPO "USERNAME" VUOTO (NON COMPILATO CORRETTAMENTE)
%>
<hr>
Campo "username" vuoto!
<hr>
<%
End IF
%>
</body>
</html>

che devo fare???

**cavicchiandrea** · 18-11-2008, 18:53

Sicuro che sul server sia presente l'oggetto Set email = CreateObject("CDONTS.NewMail")?
Se non sei sicuro verifica nelle caratteristiche del hosting, o dal servizio clienti dello stesso.

**Luis_Cypher** · 18-11-2008, 18:55

e se nn dovesse funzionare?

**cavicchiandrea** · 18-11-2008, 19:25

Originariamente inviato da Luis_Cypher
e se nn dovesse funzionare?

Normalmente quando uno fa una domanda si attende una risposta non altra domanda, se non dovesse funzionare potrebbe non essere istallato quell'oggetto per l'invio delle mail ma un altro oggetto (tipo: CDO.Message), oppure non istallato correttamente.

P.S. Ho letto l'altra post, ricordati che non ci si inventa programmatori dal oggi al domani un minimo si deve leggere studiare e capire come funziona il linguaggio, a prescindere che uno abbia o meno fretta (o frettina) è solo un consiglio, poi tu puoi proseguire come meglio credi.

**Luis_Cypher** · 19-11-2008, 13:50

ti ringrazio del consiglio.... studiare...e' cio' che sto facendo....
ma visto che non ho molto tempo a disposizione e non mi reputo un programmatore per me e' un hobbie
speravo di trovare un'anima pia....

cmq risposta

devo trasformar eil cdont in cdosys ( cosa che tra l'altro ho gia' fatto per il form di invio solo che non riesco a capire come posso modificare questo script di recupero password)

**Luis_Cypher** · 20-11-2008, 17:23

RISOLTO :-)
il probblema no era il cdonts ma dimenticavo una riga

emaila = email "questa"

Set email = CreateObject("CDONTS.NewMail")
email.From = mittente
email.To = emaila
email.Subject = "[La Pubblicit@.IT] RE-INVIO PASSWORD PERSA!"
email.Body = testo
email.Send

Set email = nothing
%>

non si sa mai qualkuno che incappi nel mio stesos errore:-)

Discussione: Problemi con script recupero password

Strumenti discussione

Ricerca discussione

Visualizza

Problemi con script recupero password

Permessi di invio