سلام عزیزانم لطفاً حتماً کمکم کنید.
چطوری برای edit ،رکورد خاصی رو از جدول روی فرم نمایش بدیم بعد اونو رکورد جاری کنیم بعد روی همون فرم edit کنیمش.
این رکورد جاری رو هم توضیح بدین چه جوریه.
برای کدهای خودم این error رو میده :
Error Type:
ADODB.Field (0x80020009)
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
کدها:
<%
session.CodePage="65001"
if session("username")<>"" and session("password")<>"" then
sqlstr4="select * from Maghale where [mcode]= "& session("password")
sqlstr3="select * from Nevisande where [ncode]= "& session("password")
set rec4=server.createobject("adodb.recordset")
rec4.open sqlstr4,dbcon,adOpenDynamic,adLockOptimistic,adcmd text
set rec3 =server.createobject("adodb.recordset")
rec3.open sqlstr3,dbcon,adOpenDynamic,adLockOptimistic,adcmd text
%>
<form method=post name="newuserform" action="vv.asp" >
<TABLE class=Tables_texts cellSpacing=0 cellPadding=2 width=450
align=center border=0>
<TBODY>
<TR>
<TD colSpan=2><SPAN
style="COLOR: brown">◊</SPAN> الف. مقاله: </TD></TR>
<TR>
<TD align=left>عنوان مقاله: <SPAN
style="COLOR: red">*</SPAN></TD>
<TD dir=rtl><INPUT
style="WIDTH: 100%" maxLength="50 "
name="mname" value="<%=rec4.fields("mname")%>"></TD></TR> <TR>
<TD align=left>چکیده: <SPAN
style="COLOR: red">*</SPAN></TD>
<TD><TEXTAREA style="WIDTH: 100%"
name="chekide" rows=7 ><%=rec4.fields("chekide")%></TEXTAREA></TD></TR>
<TR>
<TD align=left>کلمات کلیدی:<SPAN
style="COLOR: red">*</SPAN></TD>
<TD dir=rtl><INPUT
style="WIDTH: 100%" maxLength=50
name="kkelidi" value="<%=rec4.fields("kkelidi")%>"></TD></TR>
<TR>
<TD colSpan=2><SPAN
style="COLOR: brown">◊</SPAN> ب. پست الکترونیک: </TD></TR>
<TR>
<TD align=left>پست الکترونیک: <SPAN
style="COLOR: red">*</SPAN></TD>
<TD dir=ltr><INPUT
style="WIDTH: 100%" maxLength=50
name="email" value="<%=rec3.fields("email")%>" readonly="true"></TD></TR>
<TR>
<TD align=left>تکرار پست الکترونیک:<SPAN
style="COLOR: red">*</SPAN></TD>
<TD dir=ltr><INPUT
style="WIDTH: 100%" maxLength=50
name="remail" value="<%=rec3.fields("email")%>" readonly="true"></TD></TR>
<TR>
<TD width=120></TD>
<TD width=330></TD></TR></TBODY></TABLE>
<!-- فرم های ورودی 2-->
<br>
<TABLE cellSpacing=0 cellPadding=2
width=450 align=center border=0>
<TBODY>
<TR>
<TD width=150></TD>
<TD width=300></TD></TR>
<TR>
<TD colSpan=2><SPAN
style="COLOR: brown">◊</SPAN> پ. مشخصات فردی ارائه دهنده: </TD></TR>
<TR>
<TD align=left>نام: <SPAN style="COLOR: red">*</SPAN></TD>
<TD><INPUT onKeyPress="return CheckTypingForFarsi(this,event)"
style="WIDTH: 100%"
maxLength=50 name="efname" value="<%=rec3.fields("efname")%>"></TD></TR>
<TR>
<TD align=left>نام خانوادگی: <SPAN
style="COLOR: red">*</SPAN></TD>
<TD><INPUT onKeyPress="return CheckTypingForFarsi(this,event)"
style="WIDTH: 100%"
maxLength=50 name="elname" value="<%=rec3.fields("elname")%>"></TD></TR>
<TR>
<TR>
<TD align=left>مدرک تحصیلی: <SPAN
style="COLOR: red"></SPAN></TD>
<TD><INPUT onKeyPress="return CheckTypingForFarsi(this,event)"
style="WIDTH: 100%"
maxLength=50 name="madrak" value="<%=rec3.fields("madrak")%>"></TD></TR>
<TR>
<TD align=left>تلفن: <SPAN style="COLOR: red"></SPAN></TD>
<TD dir=ltr><INPUT
style="WIDTH: 100%" maxLength=50
name="tel" value="<%=rec3.fields("tel")%>"></TD></TR>
<TD align=left>آدرس: <SPAN style="COLOR: red">*</SPAN></TD>
<TD><TEXTAREA style="WIDTH:100%" name="address" ><%=rec3.fields("address")%></TEXTAREA></TD></TR>
</TBODY></TABLE>
<!--فرم های ورودی 3 -->
<br>
<TABLE cellSpacing=0 cellPadding=2
width=450 align=center border=0>
<TBODY>
<TR>
<TD width=150></TD>
<TD width=300></TD></TR>
<TR>
<TD colSpan=2><SPAN
style="COLOR: brown">◊</SPAN> ت. مشخصات فردی نفر دوم (در صورت
وجود): </TD></TR>
<TR>
<TD align=left>نام:</TD>
<TD><INPUT
style="WIDTH: 100%" maxLength=50
name="fname2" value="<%=rec3.fields("fname2")%>"></TD></TR>
<TR>
<TD align=left>نام خانوادگی:</TD>
<TD><INPUT
style="WIDTH: 100%" maxLength=50
name="lname2" value="<%=rec3.fields("lname2")%>"></TD></TR>
</TBODY></TABLE>
<!--فرم های ورودی 4 -->
<br>
<TABLE cellSpacing=0 cellPadding=2
width=450 align=center border=0>
<TBODY>
<TR>
<TD width=150></TD>
<TD width=300></TD></TR>
<TR>
<TD colSpan=2><SPAN
style="COLOR: brown">◊</SPAN> ث. مشخصات فردی نفر سوم (در
صورت وجود): </TD></TR>
<TR>
<TD align=left>نام:</TD>
<TD><INPUT
style="WIDTH: 100%" maxLength=50
name="fname3" value="<%=rec3.fields("fname3")%>"></TD></TR>
<TR>
<TD align=left>نام خانوادگی:</TD>
<TD><INPUT
style="WIDTH: 100%" maxLength=50
name="lname3" value="<%=rec3.fields("lname3")%>"></TD></TR>
</TBODY></TABLE>
<!--فایل مقاله -->
<TABLE cellSpacing=0 cellPadding=2 width=450
align=center border=0>
<TBODY>
<TR>
<TD align=middle colSpan=2>
<TR>
<TD colSpan=2><SPAN
style="COLOR: brown">◊</SPAN> ج.فایل مقاله: </TD></TR>
<TR>
<TD align=left>انتخاب فایل: <SPAN
style="COLOR: red">*</SPAN></TD>
<TD align=left><INPUT id="UC_BlankControl__ctl0_Blob"
style="WIDTH: 100%" type=text name="pdf" readonly="true">
</TD><td align="center"><a href="http://localhost/upload-c/clsUploadtest.asp" target="_blank"><img src="b.jpg" border="0"></a></td></TR>
<TR>
<TD width=120></TD>
<TD width=330></TD></TR></TBODY></TABLE>
<!--کلید ثبت نام -->
<TABLE style="MARGIN-TOP: 15px; MARGIN-BOTTOM: 20px"
width=300 align=center border=0>
<TBODY>
<TR>
<TD align=middle width="20%">
<input type="button" value=" ویرایش " name="edit">
</TD>
</TR></TBODY></TABLE>
</form>
<%
rec3.fields("efname") = Trim(request.form("efname"))
rec3.fields("elname") = Trim(request.form("elname"))
rec3.fields("address") = Trim(request.form("address"))
rec3.fields("email") = Trim(request.form("email"))
rec3.fields("tel") = Trim(request.form("tel"))
rec3.fields("madrak") = Trim(request.form("madrak"))
rec3.fields("fname2") = Trim(request.form("fname2"))
rec3.fields("lname2") = Trim(request.form("lname2"))
rec3.fields("fname3") = Trim(request.form("fname3"))
rec3.fields("lname3") = Trim(request.form("lname3"))
rec3.update
rec3.close
set rec3=nothing
rec4.fields("mname")=trim(request.form("mname"))
rec4.fields("chekide")=trim(request.form("chekide" ))
rec4.fields("kkelidi")=trim(request.form("kkelidi" ))
rec4.fields("pdf")=session("pdf")
rec4.update
rec4.close
set rec4=nothing
<!-- msgstr=" .مشخصات شما ثبت شد.از عضویت شما متشکریم"-->
end if
%>