Glemt password?

Hej
Hvad vil du sende med? asp? aspx? php? cgi?

Du bliver nødt til at give lidt mere information :-).

Forresten, kan du ikke bare lave en af de kendte \"huskespørgsmål\" som folk så skal indtaste svaret på - og derefter får oplyst password\'et?
(du kender sikkert princippet fra hotmail)
MVH
Rasmus

http://www.asp.dk/sources.asp?mode=view_source&tech_id=1&id=700

ASP + Jmail ... nej det virker mere rafineret det andet og desuden er det også mere sikkert.. for hvis folk bare skriver noget skrammel er det nemt at gætte!

bacardil > Kan jeg ikke bruge :(

Så kan du selv skrive det ;o)

http://www.activeserverpages.dk/aspdigital/kapitel5/jmail.asp

Hvis du ikke gider det, kan du prøve med noget a la..:

<%Response.Expires = -1
Response.AddHeader \"pragma\", \"no-cache\"

    if request.form(\"what\") = \"senddata\" then
    inp_email = replace(request.form(\"email\"),\"\'\",\"\'\'\")
        if inp_email = \"\" then
        fejl = \"Du skal angive en email adresse\"
        else
        sql = \"select * from users where useremail = \'\" & inp_email & \"\'\"
        set rs = conn.execute(sql)
        if not (rs.BOF or rs.EOF) then
        sendt = true
        body = \"Brugerdata til forummet.\" & vbcrlf & vbcrlf & \"Dine brugerdata er følgende:\" & vbcrlf & vbcrlf & \"Brugernavn: \" & rs(\"username\") & vbcrlf & \"Adgangskode: \" & rs(\"userpassword\") & vbcrlf & \"Email: \" & rs(\"useremail\") & vbcrlf & vbcrlf & \"Med venlig hilsen\" & vbcrlf & vbcrlf & \"Admin\"
        Set JMail = Server.CreateObject (\"JMail.SMTPMail\")
        JMail.ServerAddress = \"mail.netsite.dk\"
        JMail.Sendername = \"Kundeservice\"
        JMail.Sender = \"support@web-sale.dk\"
        JMail.AddRecipient rs(\"UserEmail\")
        JMail.Subject = \"Hej \" & rs(\"username\") & \", her er dine brugerdata\"
        JMail.Body = Body
        JMail.Execute
        set JMail = nothing
        else
        fejl = \"Der findes ingen brugere med den angivne email adresse\"
        end if
        end if
    end if

    if fejl <> \"\" then
    fejl = \"<center><b><font color=\'#FF0000\'>\" & fejl & \"</font></b></center>\"
    end if

    if sendt = true then
%>
Dine brugerdata er blevet sendt til din email adresse: <% = inp_email %><br><br><a href=\"index.html\" target=\"_top\">Login</a><br>
<%
    else
%>

Afsendelse af mail med brugerdata:<br><br><% = fejl %>

<form action=\"senddata.asp\" method=\"post\" name=\"form\">
<input type=\"hidden\" name=\"what\" value=\"senddata\">

<div align=\"center\">
  <center>
  <table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"50%\">
    <tr>
      <td width=\"50%\" align=\"center\">Din email adresse:</td>
      <td width=\"50%\" align=\"center\"><input type=\"text\" value=\"<% = request.form(\"email\") %>\" name=\"email\"></td>
    </tr>
    <tr>
      <td width=\"50%\" align=\"center\"></td>
      <td width=\"50%\" align=\"center\"><input type=\"submit\" name=\"submit\" value=\" Send \">&nbsp;&nbsp;<input type=\"reset\" name=\"reset\" value=\" Slet alt \"></td>
    </tr>
  </table>
  </center>
</div>
</form>
<script language=\"JavaScript\">
document.form.email.focus();
</script>

<%
    end if
conn.close
%>

ASPmail


<html>

<head>
<title>Password</title>
</head>

<body>
<% If Request.Form(\"e_mail\")=\"\" Then %>


Indtast din email adresse så vi kan sende dig dine Login Oplysninger <BR><BR>


<form method=\"post\" action=\"fejl.asp\">
        email adresse
    <input type=\"text\" name=\"e_mail\" size=\"40\" autocomplete=\"false\">
        <br>
    <input type=\"submit\" value=\"request password\" size=\"20\">
   
</form>

<% Else

Set myConn = Server.CreateObject(\"ADODB.Connection\")
        myConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"data.mdb\")

strMail = Replace(Request.Form(\"e_mail\"), \"\'\", \"\'\'\")
strSQL = \"SELECT * FROM brugere WHERE email=\'\" & strMail & \"\'\"

Set rs = myConn.Execute(strSQL)

If Rs.BOF Then
  Response.Write \"Ingen bruger med følgende email adresse : \" & Request.Form(\"e_mail\")
Else

Set Mailer = Server.CreateObject(\"SMTPsvg.Mailer\")
Mailer.FromName  = \"TjaZ\"
Mailer.FromAddress= \"tjaz@sol.dk\"
Mailer.RemoteHost = \"mail.get2net.dk\"
Mailer.AddRecipient rs(\"email\") , rs(\"email\")
Mailer.Subject    = \"Login Oplysninger\"
Mailer.BodyText  = \"Her er så dit brugernavn og adgangskode:\" & vbCrLf & vbCrLf & \"Brugernavn: \" & rs(\"login\") & vbCrlf & \"Adgangskode: \" & rs(\"password\") & vbCrlf & \"Husk nu at du kan ændre din adgangskode ved at logge ind, hvis du skulle have svært ved at huske den som du har fået tildelt.\" & vbCrlf & \"Med venlig hilsen\" & vbCrlf & \"TjaZ\"
if Mailer.SendMail then
  Response.Write \"Dine login informationer er nu sendt til\" & rs(\"email\")
else
  Response.Write \"Mail send failure. Error was \" & Mailer.Response
end if
end If
end.if
  myConn.Close
Set myConn = Nothing

%>
</body>
</html>



Jmail


<html>

<head>
<title>Password</title>
</head>

<body>
<% If Request.Form(\"e_mail\")=\"\" Then %>


Indtast din email adresse så vi kan sende dig dine Login Oplysninger <BR><BR>


<form method=\"post\" action=\"fejl.asp\">
        email adresse
    <input type=\"text\" name=\"e_mail\" size=\"40\" autocomplete=\"false\">
        <br>
    <input type=\"submit\" value=\"request password\" size=\"20\">
   
</form>

<% Else

Set myConn = Server.CreateObject(\"ADODB.Connection\")
        myConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"data.mdb\")

strMail = Replace(Request.Form(\"e_mail\"), \"\'\", \"\'\'\")
strSQL = \"SELECT * FROM brugere WHERE email=\'\" & strMail & \"\'\"

Set rs = myConn.Execute(strSQL)

If Rs.BOF Then
  Response.Write \"Ingen bruger med følgende email adresse : \" & Request.Form(\"e_mail\")
Else

set msg = Server.CreateOBject( \"JMail.Message\" )
msg.From = \"tjaz@sol.dk\"
msg.FromName = \"TjaZ\"
msg.AddRecipient rs(\"email\") , rs(\"email\")
msg.Subject = \"Login Oplysninger\"
msg.Body = \"Her er så dit brugernavn og adgangskode:\" & vbCrLf & vbCrLf & \"Brugernavn: \" & rs(\"login\") & vbCrlf & \"Adgangskode: \" & rs(\"password\")
msg.Body+ msg.Body = \"Husk nu at du kan ændre din adgangskode ved at logge ind, hvis du skulle have svært ved at huske den som du har fået tildelt.\"
msg.Body+ msg.Body = \"Med venlig hilsen\" & vbCrlf & \"TjaZ\"

if not msg.Send(\"mail.get2net.dk\" ) then
    Response.write \"<pre>\" & msg.log & \"</pre>\"
else
    Response.write \"Dine login informationer er nu sendt til\" & rs(\"email\")
end if
end If
end.if
  myConn.Close
Set myConn = Nothing

%>
</body>
</html>


Begge skulle gerne virke, vi ved ASPmailen gør...og Jmailen  tror jeg heller ikke der er noget
galt med....det er nok mere reg. af komponentet
på din server