Glemt Password..

Jeg har lavet dette til et forum jeg har lavet en gang, her er formen hvor man angiver sig email adresse, jeg har lavet det så formen er på en side for sig selv og siden som sender passwordet er i enn side for sig selv, siden som sender password redirecter til login siden efter 5 sekuner, du må tilpasse det dit behov, som du kan se sender den i øjeblikket kun passwordet og ikke brugernavn:


<table border="1">
<form method="post" action="sendpassword.asp" name="sendpassword">
  <tr><td colspan="2" align="center">Jeg har glemt mit password, send det til mig.</td></tr>
  <tr><td>E-mail:</td><td><input name="email"></td></tr>
  <tr><td colspan="2" align="center"><input type="submit" value="Send" name="Action"></td></tr>
</form>
</table>


----------

Her er koden som sender mailen, der benyttes JMail kompunent:


<HTML>
<head>
<META HTTP-EQUIV=Refresh CONTENT="5; URL=login.asp">
</head>
<body>
<center>
<%
function fixSring(strInput)
  if len(strInput) > 0 then
    outString = replace(outString,"'","''")
    fixSring = outString
  else
    fixSring = strInput
  end if
end function


if Request.ServerVariables("REQUEST_METHOD") = "POST" then
  %>
  <!--#include file="dsn.asp"-->
  <%

  Set rs = Server.CreateObject("ADODB.RecordSet")

  email = fixSring(Request.Form("email"))
 
  strSQL= "SELECT * FROM dp_members WHERE email = '" & email & "';"

  Set rs = Conn.Execute (strSQL)

  if not rs.EOF then
    'send password til brugeren
    Set JMail= Server.CreateObject("JMail.SMTPMail")
    JMail.ServerAddress = "mail.xxxxxxxx.dk"
    JMail.Sender        = "admin@xxxxx.dk"
    JMail.SenderName    = "Mit Forum"
    JMail.Subject      = "Password til Mit forum"
    JMail.AddRecipient  rs("email")
 
    BodyText = "Du har bedt om at få tilsendt dit password til Mit Forum." & vbCrLf
    BodyText = BodyText & "Dit password er: " & rs("userpassword")
   
    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>

ehm..  hvad står der i dsn.asp `???  har det noget med databasen at gøre ???

Mvh Morten

Jeps det er der hvor jeg har min Connection til databasen.

<!--#include file="dsn.asp"-->

kan jeg ikke os få hvad der står i den fil ellers kan jeg ikke komme vidre...

Jo da der står:

Set Conn = Server.CreateObject("ADODB.Connection")
DataBase = "Data Source="& server.mappath("db5.mdb") & ";Provider=Microsoft.Jet.OLEDB.4.0;"
Conn.Open (DataBase)


Men den skal jo rettes til at passe med din Database.

hvordan retter jeg så scriptet os sender username ????

retter :

BodyText = "Du har bedt om at få tilsendt dit password til Mit Forum." & vbCrLf
BodyText = BodyText & "Dit password er: " & rs("userpassword")
til
BodyText = "Du har bedt om at få tilsendt dit password til Mit Forum." & vbCrLf
BodyText = BodyText & "Dit password er: " & rs("userpassword")
BodyText = BodyText & "Dit brugernavn er: " & rs("username")

ville lige hjælpe eagle *s*

Jeps som no_doubt skriver, må jeg lige tilføje et return (vbCrLf) efter passwordet, så brugernavnet rykker en linie ned.

BodyText = "Du har bedt om at få tilsendt dit brugernavn og password til Mit Forum." & vbCrLf
BodyText = BodyText & "Dit password er: " & rs("userpassword") & vbCrLf
BodyText = BodyText & "Dit brugernavn er: " & rs("username")

Fik du username med ?

ehm,...  er slet ikke med, kan jeg få en til at skrive det færdige script her ? plz

Du spurgt hvordan du fil username med i emailen..

Du udskifter disse linier:

    BodyText = "Du har bedt om at få tilsendt dit password til Mit Forum." & vbCrLf
    BodyText = BodyText & "Dit password er: " & rs("userpassword")


Med disse linier:

BodyText = "Du har bedt om at få tilsendt dit brugernavn og password til Mit Forum." & vbCrLf
BodyText = BodyText & "Dit password er: " & rs("userpassword") & vbCrLf
BodyText = BodyText & "Dit brugernavn er: " & rs("username")