Glemt Password Funktion
hej...Jeg sidder og er ved at lavet et script til at sende password til brugeren, fra en access database...
Den måde det skal fungere på er at brugeren skriver sin mail i en input box... og derefter findes hans mail addresse i databasen og derved sender password som brugeren nu har....
Databasen hedder Ungjob.mdb og tablet det ligger i hedder Ung.
feltet med mail hedder ungMail og feltet med password hedder ungPassword.....
Har prøvet med følgende script som jeg fandt her....
http://eksperten.dk/spm/266063
Dog uden held, får en fejl siden uden fejl :-(
nogen der kan hjælpe ?
<HTML>
<head>
<META NAME="Generator" CONTENT="Stone's WebWriter 3.5">
<META HTTP-EQUIV=Refresh CONTENT="5; URL=login.asp">
</head>
<body><center>
<%
function fixString(strInput)
if len(strInput) > 0 then
outString = replace(strInput,"'","''")
fixString = outString
else
fixString = strInput
end if
end function
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
%>
<%
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("Ung_Job.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open strDSN
Set rs = Server.CreateObject("ADODB.RecordSet")
email = fixString(Request.Form("email"))
strSQL= "SELECT * FROM Ung WHERE ungMail = '" & email & "';"
Response.write strSQL
Response.write strSQL Set rs = Conn.Execute (strSQL)
if not rs.EOF then
'send password til brugeren
Set JMail= Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "mail.ung-job.dk"
JMail.Sender = "admin@ung-job.dk"
JMail.SenderName = "ung-job.dk"
JMail.Subject = "Password til ung-job.dk"
JMail.AddRecipient rs("ungMail")
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
BodyText = "Du har bedt om at få tilsendt dit password til ung-job.dk" & vbCrLf
BodyText = BodyText & "Dit password er: " & rs("brugerKode")
JMail.Body = BodyText
JMail.Silent = true
JMail.Execute
Set JMail = Nothing
Response.Write "En mail med dit password er send til dig."
else
Response.Write "kunne ikke finde bruger oplysninger."
end if
Conn.Close
else
Response.Redirect("login.asp")
end if
%>
<br><br>
Du vil automatisk bliver stillet om til login siden inden for 5 sekuner.
</center>
</body>
</HTML>
