glemt password

bruker du JMail eller ASPMail ?

Hvis du bruger Jmail så set mit svar her :

http://www.eksperten.dk/spm/55919

jeg kan kun bruge ASPmail

/Dark Angel

kik evt. http://www.trab.dk/komponenter.html#aspemail

/dark angel

Dette skulle kunne gøre det:



<% response.buffer = true %>

<B>Glemt Brugernavn / Password</B><BR>
<% if request.querystring(\"action\") = \"submit\" then

if request.form(\"bruger\") = \"\" then
for each item in request.form
session(item) = request.form(item)
next
session(\"fejl\") = \"Udfyld venligst bruger feltet.\"
response.redirect(\"glemtpw.asp\")
end if

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"db.mdb\") & \";UID=admin;PWD=;\"
Set rs = Conn.execute(\"SELECT * FROM email WHERE username = \'\" & request.form(\"bruger\") & \"\'\")
if rs.eof then
for each item in request.form
session(item) = request.form(item)
next
session(\"fejl\") = \"Der er ingen brugere med det angivne brugernavn.\"
response.redirect(\"glemtpw.asp\")
else
brugernavn = rs(\"username\")
password = rs(\"password\")
email = rs(\"email\")



on error resume next
Set Mailer = Server.CreateObject(\"SMTPsvg.Mailer\")
Mailer.FromName  = \"Dit navn\"
Mailer.FromAddress= \"din@mail.dk\"
Mailer.Host = \"mail.trab.dk\"
Mailer.AddRecipient \"Bruger\", email
Mailer.Subject    = \"Dine oplysninger\"
Mailer.BodyText  = \"dit password er\" & vbcrlf & password
if Mailer.SendMail then
response.write (\"Dine oplysninger er sendt til din email adresse.<BR><BR>\")
else
  Response.Write \"Mail send failure. Error was \" & Mailer.Response
end if


end if
set rs = nothing
conn.close
set conn = nothing
else %>
Hvis du har glemt dit brugernavn / password kan du få tilsendt dine oplysninger ved at bruge denne side.<P>
<% if session(\"fejl\") <> \"\" then
response.write \"<B>\" & session(\"fejl\") & \"</B><BR>\"
end if %>
<FORM ACTION=\"glemtpw.asp?action=submit\" METHOD=\"POST\">
Indtast Email:<BR>
<INPUT TYPE=\"text\" name=\"bruger\" value=\"<% =session(\"bruger\") %>\" size=\"20\"><BR>
<INPUT TYPE=\"submit\" VALUE=\"Send mine oplysninger\">
</FORM>
<%
session(\"bruger\") = \"\"
session(\"fejl\") = \"\"
end if %>
</font>

der har du jo oppsette på hvordan man sender en mail. du ber brukeren om å taste inn sin email adresse og utfører en sjekk for å sende mail:

<%
email = \"test@test.com\"

SEt conn = [connection]
Set RS  = [recordSet]

Rs.Open \"SELECT password FROM [usertable] WHERE email LIKE \'\" & email & \"\'\"

if( NOT RS.EOF ) then
  \'send din mail som specifisert i din egen link
else
  response.redirect(\"no_password_for_email_my_friend.asp\")
end if
%>

/nute

nute >> He...der er altså også tjek med i min..

netsrac >> yup...men du var litt for rask ;)

nute >> Ja det gælder jo om at være hurtig på trickeren her :-)

hmm.. kan ik få det til at virke, serveren siger at siden ik kan findes ?? http://ncsr.trab.dk/asp/brugersys/glemtpw.asp

/Dark Angel

Der skal også laves lidt små tilrettelser, hvad hedder dine felter i tabellen osv ?