Forum / password reminder.

Jeg fundet er fedt forum, det virker fint indtil det skal sende password til en bruger der har glemt det, men jeg kan ikke den til at sende password til mig, jeg har prøvet at rette det til selv, men det virker ikke, her er den originale kode: (lidt længere nede har jeg en anbefal side script som kører fint, håber i kan bruge de info til noget)

<!--#INCLUDE FILE=\"config.inc\" -->
<!--#INCLUDE FILE=\"top.inc\" -->
<%
if Request.QueryString(\"mode\") = \"doit\" then

    Set smtp = Server.CreateObject(\"SmtpMail.SmtpMail.1\")
    set my_conn= Server.CreateObject(\"ADODB.Connection\")
    my_Conn.Open ConnString
   
    MailServer = \"mail1.stoneplanet.com\"
    Recipients = request.form(\"email\")
    Sender = \"asp@asp-dev.ml.org\"
    Subject = \"ASP Forum Password\"
    mssg = \"You have received this mail because you have asked to be reminded of you password\"
    mssg = mssg & \"For the ASP Forum at http://www.asp-dev.ml.org\" & vbCrLf & vbCrLf
   
   
    strSql = \"Select M_name, M_Password, M_Email from members where M_Name = \'\"
    strSql = strSql & Request.Form(\"Name\") & \"\' and M_Email =\'\"
    strSql = strSql & Request.Form(\"email\") & \"\'\"
   
    set rs = my_conn.Execute (StrSql)
   
    if rs.EOF or rs.BOF then
        mssg = mssg & \"Sorry The details you passed were unknown.\" & vbCrLf & vbCrLf
        mssg = mssg & \"Please register again at http://www.asp-dev.ml.org/forum/register.asp\" & vbCrLf
    Else
        mssg = mssg & \" Your Password id :- \" & rs(\"M_Password\") & vbCrLf
    End if
   
    mssg = mssg & \"Thank you for using the ASP Forum\"
   
   
    smtp.MailServer = MailServer
    smtp.Recipients = Recipients
    smtp.Sender = Sender
    smtp.Subject = Subject
    smtp.Message = mssg
    smtp.SendMail2
    Set smtp = Nothing
    on error resume next
    rs.close
    set rs=nothing
    my_conn.Close
    set my_conn = nothing
%>
<p align=center><font face=\"<% =DefaultFontFace %>\" size=4>Password Reminder</p>
<p align=center><font face=\"<% =DefaultFontFace %>\" size=2>You should receive an email any moment now!</p>

<%   
Else
%>

<p align=center><font face=\"<% =DefaultFontFace %>\" size=4>Password Reminder</p>
<form action=\"pword_copy(1).asp?mode=doit\" method=\"post\">
<div align=\"center\">
<TABLE background=\"\" bgColor=#b0c4de border=1 borderColor=#000000 cellPadding=0
cellSpacing=0 width=70%>
<TBODY>
<TR>
<TD width=50%><FONT face=\"<% =DefaultFontFace %>\" size=2>User Name </TD>
<TD width=50%><FONT face=\"<% =DefaultFontFace %>\" size=3>
<INPUT name=Name size=30> </FONT></TD>
<TR>
<TD><FONT face=\"<% =DefaultFontFace %>\" size=2>Email</TD>
<TD><FONT face=\"<% =DefaultFontFace %>\" size=3>
<INPUT name=email size=30 type=password value=\"\"></FONT></TD>
</TR>

<TD align=middle colSpan=2><INPUT name=submit1 type=submit value=Submit></TD></TR></TBODY></TABLE></FONT></TD></TR></TBODY></TABLE>
<P> </P>

<%
End if
%>

</body>
</html>


Og her er koden fra et andet script jeg bruger på siden, og det virker fint, hvordan får jeg den anden til at sende mig L/P ?


%
Set Mailer = Server.CreateObject(\"SMTPsvg.Mailer\")
Mailer.CharSet = 2
Mailer.RemoteHost = \"www.pk-data.dk\"
Mailer.FromName = \"Mor-Far\"
Mailer.FromAddress = \"mette@mor-far.dk\"
Mailer.AddRecipient Request.QueryString(\"nameto\"), Request.QueryString(\"addressto\")
Mailer.Subject = \"Denne mail blev sendt fra www.mor-far.dk\"
Mailer.BodyText = Request.QueryString(\"txtmsg\")
Mailer.BodyText = \" \"
Mailer.BodyText = \"Venlig hilsen\"
Mailer.BodyText = Request.QueryString(\"afsender\")
if not Mailer.SendMail then
  Response.Write \" Mailen blev ikke sendt... Fejlen er: <br>\"
  Response.Write Mailer.Response
else
  Response.Write \" Mailen blev sendt<p>\"
end if
%>

Jeg vil allerhelst have den komplette kode tilbage, så jeg ikke selv skal til at sete en linie ind her og der :)