Send glemt password til bruger

Jeg bruger disse 2 filer og anvender CDONTS...du kan sagtens bruge jmail hvis du frotrækker denne.

Her er filerne....jeg har ikke fjernet


password_glemt.asp:

<h3>Glemt Password</h3>

<p>Indtast dit brugernavn og tryk på &quot;Forespørg Password&quot; </p>

<form action="send_password.asp" method="post">
<table width="300" cellpadding=4 cellspacing=1 border=0 bgcolor="#437658" >
<tr bgcolor="#C7D0C1">
  <td colspan=2 align="center">
      <font class="forumfarveblaa"><b>Indtast brugernavn</b></font></td>
</tr>
<tr bgcolor="#f7f7f7">
  <td>
      <font face="arial,helvetica" size="2">Brugernavn</font></td>
  <td>
      <input type="text" size="30" name="navn"></td>
</tr>
<tr bgcolor="#f7f7f7">
  <td colspan=2 align="center">
      <input type="submit" value="Forespørg Password"></td>
</tr>
</table>

<table width="100%" cellpadding=0 cellspacing=0>
<tr>
  <td colspan=2></td>
</tr>
<tr>
  <td align="left" valign="top">
      <font size=1 face="arial,helvetica">&nbsp;</font>
  </td>
</tr>
</table>
</form>
</font>


send_password.asp:

<%
fromemail = "dimmail@ditdomæne.dk"

bnavn = Request.Form("navn")

if InStr(bnavn, "'") or InStr(bnavn, """") or InStr(bnavn, "=") then
    sqlflag = True
end if
%>



<%
sql = "SELECT password, email FROM brugere WHERE bnavn = '" & bnavn & "' AND aktiv = True"
Set rsUser = Server.CreateObject("ADODB.Recordset")
rsUser.Open sql, conn, 3, 3

If (not rsUser.BOF) and (not rsUser.EOF) and sqlflag <> True then
 
  set objMail = Server.CreateObject("CDONTS.NewMail")
 
  if err.number <> 0 then
    noObj = True
  else
    mailbody = "Hej " & bnavn & vbcrlf & vbcrlf
    mailbody = mailbody & "Du bad om en password reminder, dit password er:" & vbcrlf & vbcrlf
    mailbody = mailbody & "    " & rsUser("password") & vbcrlf & vbcrlf
    mailbody = mailbody & "----------------------------------------------------" & vbcrlf
    objMail.Body = mailbody
    objMail.to = rsUser("email")
    objMail.from = fromemail
    objMail.subject = "Glemt password"
    objMail.send
    set objMail = nothing
    sentok = true
  end if
end if

rsUser.close
set rsUser = nothing
conn.close
set conn = nothing
%>


Håber du kan bruge det:)

virkede det?

kunne du bruge det?

synes da godt lige du kunne sige om det var noget du kunne ruge til noget?

Er du ikke flink at lukke spørgsmålet:):)

Hej Maximus25. Undskyld jeg havde glemt at acceptere dit svar. Det virker meget fint. 1000 tak for hjælpen.

Undskyld havde glemt at acceptere. Det virker fint, mange tak...

perfekt det virkede:)

Men lukker du så ikke spørgsmålet og afgiver point?