forgotten password application

Από {usmart}

Έχω δημιουργήσει μια εφαρμογή για να στέλνει (με το asp email) το password από κάποια βάση Access σε κάποιον που το έχει ξεχάσει όταν αυτός δώσει το username. Παρόλαυτά, αρνείται να λειτουργήσει.
Αν θέλει κάποιος να ρίξει μια ματιά στον κώδικα, τον ευχαριστώ

---------------------------------------------



<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>


<% if Trim(Request.Form("submit")) <> " " Then %>

<%
Dim rsGetUsers__MMColParam
rsGetUsers__MMColParam = "x"
If (Request.form("username") <> "") Then
rsGetUsers__MMColParam = Request.form("username")
End If
%>


<%
Dim rsGetUsers
Dim rsGetUsers_numRows

Set rsGetUsers = Server.CreateObject("ADODB.Recordset")
rsGetUsers.ActiveConnection = MM_conn_webprodmx_STRING
rsGetUsers.Source = "SELECT user_pwd, email, first_name FROM users WHERE username = '" + Replace(rsGetUsers__MMColParam, "'", "''") + "'"
rsGetUsers.CursorType = 0
rsGetUsers.CursorLocation = 2
rsGetUsers.LockType = 1
rsGetUsers.Open()

rsGetUsers_numRows = 0
%>






<%

response.buffer=true

mbody="Automatic Form Submission from Dynamic Emailer" & vbcrlf
for each tt in request.form
mbody=mbody & vbcrlf & tt & ": " & request.form(tt)
next
set mailer=server.createobject("SMTPsvg.Mailer")
Mailer.CustomCharSet="windows-1253"
mailer.fromname="Dynamic Emailer"
mailer.fromaddress="root@χχχχ.gr"
mailer.remotehost="mail.χχχχ.gr:25"
mailer.subject="Your Password is: " & rsGetUser.Fields.Item("user_pwd").Value

mailer.addrecipient "This is your password", rsGetUser.Fields.Item("email").Value
mailer.bodytext=mbody


response.redirect "forgotten_pwd?email=true"



%>



<% end if %>

Did you forget your pwd? Enter the username