السلام عليكم
ارجو الاعانة في اصلاح هذا الخطء مع الشكر
ADODB.Recordset error '800a0e78'
Operation is not allowed when the object is closed. /password.asp, line 91
وهذا هو الملف المرفق
%>
<!--#INCLUDE FILE="config.asp"-->
<!--#INCLUDE FILE="inc_header.asp" -->
<!--#INCLUDE FILE="inc_func_posting.asp"-->
<%
If Request.QueryString("mode") = "done" then
'## Forum_SQL
strSql = "SELECT MEMBER_ID, M_NAME, M_EMAIL, M_PASSWORD FROM " & strMemberTablePrefix & "MEMBERS "
strSql = strSql & " WHERE M_NAME = '" & ChkString(Trim(Request.Form("Name")), "SQLString") &"'"
set rs = my_Conn.Execute (strSql)
if rs.BOF and rs.EOF then
Err_Msg = "<font color=""red""><b><font color=""black"" size=""-1""><center><table dir=""rtl"" cellSpacing=""0"" cellPadding=""0"" width=""99%"" border=""0""><tr><td><table width=""100%"" border=""1""><tr class=""normal""><td class=""list_center"" colSpan=""10"" bgcolor=""#FFFFCC""><p align=""center""><b><br><br><font color=""red""><font size=""+2"">الإسم الذي أدخلته ليس مسجل لدينا.<br><br> الرجاء التأكد من الاسم الصحيح من قائمة الأعضاء.</font><br><br><br> </font></b></td></tr></table></td></tr></table></center></font></b></font>"
else
PWMember_ID = rs("MEMBER_ID")
PWMember_Name = rs("M_NAME")
PWMember_Email = rs("M_EMAIL")
PWMember_Pass = rs("M_PASSWORD")
end if
rs.close
set rs = nothing
NAME = Request.Form("NAME")
'=====|ERROR|======
if NAME="" or NAME<>PWMember_Name then
Err_Msg = "<font color=""red""><font size=""+2"">عليك إدخال إسم عضويتك الصحيح<br><br></font>"
Response.Write "<center><table width=""100%"" border=""1"">" & vbCrLf
Response.Write " <tr class=""normal"">" & vbCrLf
Response.Write " <td class=""list_center"" colSpan=""10"">" & vbCrLf
Response.Write " <br><br><font size=""6"">" & Err_Msg & "</font><br>" & vbCrLf
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write "</table></center>" & vbCrLf
else
strSql = "insert into FORUM_PASS (P_NAME) values ('"&NAME&"') "
set rs = my_Conn.Execute (strSql)
Response.Write "<font color=""red""><b><font color=""black"" size=""-1""><center>" & vbCrLf
Response.Write "<table dir=""rtl"" cellSpacing=""0"" cellPadding=""0"" width=""99%"" border=""0"">" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td bgcolor=""#FFFFCC"">" & vbCrLf
Response.Write " <table width=""100%"" border=""1"">" & vbCrLf
Response.Write " <tr class=""normal"">" & vbCrLf
Response.Write " <td class=""list_center"" colSpan=""10"">" & vbCrLf
Response.Write " <p align=""center""><b><span>" & vbCrLf
Response.Write " <br>" & vbCrLf
Response.Write " <br>" & vbCrLf
Response.Write " </span><font color=""red"">" & vbCrLf
Response.Write " <span><font size=""+2"">تمت العملية بنجاح<br> " & vbCrLf
Response.Write " سيتم إرسال بريد الى عنوانك المسجل لدينا بكلمتك السرية الجديدة خلال 24 ساعة<br>الرجاء عدم تكرار الطلب أكثر من مرة.</font><br>" & vbCrLf
Response.Write " <br>" & vbCrLf
Response.Write " <br>" & vbCrLf
Response.Write " </span></font></b></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " </table>" & vbCrLf
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
Response.Write "</center></font></b></font>" & vbCrLf
end if
rs.close
set rs = nothing
'#########################################
'#########################################
'#########################################
else
Response.Write " <form action=""password.asp?mode=done"" method=""Post"" id=""Form1"" name=""M_NAME"">" & vbNewLine & _
" <input name=""mode"" type=""hidden"" value=""DoIt"">" & vbNewLine
Response.Write "<font color=""red""><b><font color=""black"" size=""-1"">" & vbCrLf
Response.Write "<table class=""mainheader"" dir=""rtl"" cellSpacing=""0"" cellPadding=""2"" width=""100%"" border=""0"">" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td class=""main"" vAlign=""center"" width=""100%"">" & vbCrLf
Response.Write " <p align=""center""> </td>" & vbCrLf
Response.Write " <td class=""main"" vAlign=""center"" align=""left"">" & vbCrLf
Response.Write " <p align=""center""> </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
Response.Write "<center>" & vbCrLf
Response.Write "<table dir=""rtl"" cellSpacing=""0"" cellPadding=""0"" width=""99%"" border=""0"">" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td><center><b><br>" & vbCrLf
Response.Write " <br>" & vbCrLf
Response.Write " <table cellSpacing=""1"" cellPadding=""4"" bgColor=""gray"" border=""0"">" & vbCrLf
Response.Write " <tr class=""fixed"">" & vbCrLf
Response.Write " <td class=""optionheader"" id=""row_subject"" bgcolor=""#8FBC8F"">" & vbCrLf
Response.Write " <p align=""center""><b><font color=""#FFFFFF"">لإسترجاع كلمة " & vbCrLf
Response.Write " السر المفقودة <br>" & vbCrLf
Response.Write " أدخل إسمك المسجل في المنتديات<br>" & vbCrLf
Response.Write " وثم إضغط على الزر أدناه: <br>" & vbCrLf
Response.Write " </font></b><font color=""#FFFFFF"">" & vbCrLf
Response.Write " <input class=""insidetitle"" style=""width: 250px; font-weight: 700; background-color: #CCFFCC"" name=""Name""></font><b><font color=""#FFFFFF""><br>" & vbCrLf
Response.Write " </font><font color=""#FFFFFF"" size=""-1"">ملاحظة: يجب ان يكون " & vbCrLf
Response.Write " الاسم مطابقا لسجلاتنا تماما</font></b></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class=""fixed"">" & vbCrLf
Response.Write " <td class=""list_center"" bgcolor=""#DDFFDD"">" & vbCrLf
Response.Write " <p align=""center"">" & vbCrLf
Response.Write " <input type=""submit"" value=""إطلب كلمة السر"" style=""font-weight: 700; background-color: #CCFFCC""></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " </table>" & vbCrLf
Response.Write " </form>" & vbCrLf
Response.Write " </center></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
Response.Write "<table class=""footerbar"" dir=""rtl"" cellSpacing=""1"" cellPadding=""0"" width=""100%"">" & vbCrLf
Response.Write "</table>" & vbCrLf
Response.Write "</center></font></b></font>" & vbCrLf
end if
WriteFooter
Response.End
%>
