Jag försöker skriva en funktion som skickar tillbaka det lösenord som tillhör den mailadress användaren har angett. Får det inte att funka och nu får jag 'Type mismatch Retrieve'
Lösenordet är krypterat med md5 så jag måste omvandla det till läsbar text igen när det skickas
<form action="lostPass.asp?send=pw" method="post">
<input type="text" name="txtUser">
</form>
<%If request("send")="pw" Then
Dim sTo
Dim sTextBody
Dim objMail
Dim email
email = Request.Form("txtUser")
pass = md5(retrieve("password"))
Set retrieve=objConn.Execute("Select password, email From tblUsers where email = "&email)
sTo = email
sFrom = "info@webbisen.com"
sSubject = "Förlorat lösenord"
sTextBody = comments
'Create the mail object and set key properties
Set objMail = Server.CreateObject("CDO.Message")
objMail.From = sFrom
objMail.To = sTo
objMail.TextBody = "Ditt lösenord är"&retrieve("password")
'Send the email and clean up
objMail.Send
Set objMail = Nothing
End If%>
Lösenordet är krypterat med md5 så jag måste omvandla det till läsbar text igen när det skickas
MD5 är ingen kryptering. Det är en "kontrollsiffra", dock ganska lång sådan. Du kan inte omvandla det till läsbar text igen. Det är det som är poängen med att använda MD5. Du får slumpa fram ett nytt lösenord åt användaren som du skickar ut och lägger in i databasen.
Lösenordet är krypterat med md5 så jag måste omvandla det till läsbar text igen när det skickas
MD5 är ingen kryptering. Det är en "kontrollsiffra", dock ganska lång sådan. Du kan inte omvandla det till läsbar text igen. Det är det som är poängen med att använda MD5. Du får slumpa fram ett nytt lösenord åt användaren som du skickar ut och lägger in i databasen.
Nåt förslag på hur man slumpar fram lösenordet och lägger in i accessdatabasen och vad som fortfarande är fel i koden
Nån som kan se vaför jag får Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
/sendPass.asp, line 15
med denna kod
<%
email=request.form("txtUser")
Set test=objConn.Execute("Select * From tblUsers where email='"&email&"'")
If not test.eof Then
response.redirect "/lostPass.asp?error=noMail"
Else
Dim sTo
Dim sTextBody
Dim objMail
Dim email
password=test("password")
sTo = email
sFrom = "info@webbisen.com"
sSubject = "Förlorat lösenord"
sTextBody = comments
'Create the mail object and set key properties
Set objMail = Server.CreateObject("CDO.Message")
objMail.From = sFrom
objMail.To = sTo
objMail.Subject = sSubject
objMail.TextBody = "Ditt lösenord är " &password
'Send the email and clean up
objMail.Send
Set objMail = Nothing
response.redirect "/lostPass.asp?success=sent"
End If%>
Felmeddelandet betyder normalt att ingen post i tabellen motsvarar dina villkor du ställer i SQL-frågan.
Om det är raden password=test("password") som det hänvisas till så förstår jag inte varför det blir fel, eftersom den ligger på rätt ställe, och du kontrollerar ju att recordsetet inte är tomt. Har du någon annan kod högre upp? Vilken är rad 15?
Felmeddelandet betyder normalt att ingen post i tabellen motsvarar dina villkor du ställer i SQL-frågan.
Om det är raden password=test("password") som det hänvisas till så förstår jag inte varför det blir fel, eftersom den ligger på rätt ställe, och du kontrollerar ju att recordsetet inte är tomt. Har du någon annan kod högre upp? Vilken är rad 15?
Rad 15 är just den raden och den kod jag postade är all kod på den sidan
Stämmer, hade så från början men då hade jag blandat ihop mailadresserna som är sparat i db så ja trodde att det var till fel adress så jag bytte i koden :-)
135 ms totalt · 3 externa anrop · v20260731065814-full.25f56b17
