forgot password برای اعضا سایت

[hassan1365]

سلام
یه forgot password نوشتم.error میده.

اگه دوستان کمک کنن ممنون میشم.
این سورسشه:(forgotpass.asp)



<form action="forgpass.asp" method="post">
<table align="center" cols="2" rows="2" cellpadding="0" cellspacing="0" border="0">
<tr>
<td align="right">لطفا نام کاربری خود را وارد نمائید:</td>
<td align="right"><input type="text" size="20" name="nameforpass"></td>
</tr>
<tr>
<td align="right">لطفا آدرس ایمیل خود را وارد نمائید:</td>
<td align="right"><input type="text" size="20" name="mailforpass"></td>
</tr>
<tr>
<td colspan="2" align="center"><input type="submit" value="دریافت رمز عبور">&nbsp;<input type="reset" value="از نو"></td>
</tr>
</table>
</form>



اینم سورس forgpass.asp



<%
Dim adoCon 'Holds the Database Connection Object
Dim rst 'Holds the recordset for the record to be deleted
Dim strSQL 'Holds the SQL query to query the database
Dim lngRecordNo 'Holds the record number to be deleted
dim comm
comm=request.Form("mailforpass")
lngRecordNo = Request.form("nameforpass")

Set adoCon = Server.CreateObject("ADODB.Connection")
adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("members.mdb")
Set rst = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT tblmember.* FROM tblmember WHERE name=" & lngRecordNo
rst.LockType = 3
rst.Open strSQL, adoCon


dim email,alt,error2
if lngRecordNo = "" or comm="" then
error2 = "You have not entered a complete fields."
Response.Write error2
Response.End
end if

response.Write(rst("name"))
response.Write(rst("email"))
response.Write(rst("pass"))

rst.Close
Set rst = Nothing
Set adocon = Nothing

'------------------------------------------------
'if alt=addr and comm=email then
'response.Write("your password is:")
'response.Write(rst("pass"))
'else
'response.Write("user name or email address is not correct.please try again")
%>


نظر دوستان چیه؟
موفق باشید.

[shahroozj]

strSQL = "SELECT tblmember.* FROM tblmember WHERE name=" & lngRecordNo

این قسمت را به اصورت زیر تغییر بده :


strSQL = "SELECT tblmember.* FROM tblmember WHERE name='" & lngRecordNo & "'"

[shahroozj]

در ضمن کدوم خط error میده ؟

[hassan1365]

سلام
این پیغامشه:




Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.
/scripts/forgpass.asp, line 349




خط 349 اینه:



rst.Open strSQL, adoCon


موفق باشید.