forgot password ?

denne script virker ik, den skriver bare \"Siden kan ik vises, når jeg indtaster en mail i email feltet\"

<%@Language=VBScript%>
<%Response.Buffer=True%>

<html>
<body>

<%
email = Trim(Request.Form(\"email\"))
If Len(email) < 1 Then
%>

<center><font color=\"blue\">Forget your password?</font><p>
<table>
<form method=\"post\">
<tr><td><center>Please Enter Your <b>Email Address</b></center></td></tr>
<tr><td><center><input type=\"text\" name=\"email\"></center></td></tr>
<tr><td><center><input type=\"submit\" value=\"Submit\"></center></td></tr>
</table>
</form>
</center>

<%
Else
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Connect.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"database.mdb\")

sql = \"SELECT email, Password FROM bruger WHERE email = \'\"&email&\"\'\"
Set RS = Conn.Execute(sql)

If RS.EOF Then
Response.write \"<p><br><br><br><center>Invalid Email Address!</center>\"
Else
password = RS(\"password\")
Call SendPW(email, password)
Response.Write \"<p><br><br><br><center>Your Password has been sent!</center>\"

RS.Close
Conn.Close
Set RS = Nothing
Set Conn = Nothing
End If
End If

Sub SendPW(email, password)
Set cdoMail = Server.CreateObject(\"CDONTS.NewMail\")
cdoMail.From = \"webmaster@web-zone.dk\"
cdoMail.To = email
cdoMail.Subject = \"Your requested password.\"
cdoMail.Body = password & vbcrlf & vbcrlf & vbcrlf _
& \"*** THIS MESSAGE HAS BEEN AUTOMATICALLY GENERATED ***\"

cdoMail.Send
Set cdoMail = Nothing
End Sub
%>

</body>
</html>