update سه جدول در یک فرم

[**sara**]

:گیج:سلام عزیزانم لطفاً حتماً کمکم کنید.
چطوری برای 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> ث. مشخصات فردی نفر&nbsp;سوم (در
صورت وجود): </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
%>

[**sara**]

کمک کنییییییییییییییییییییییی یید ای خدا :عصبانی++::گریه::گیج::اشتباه:

[odise2004]

با سلام.اون ارروری که میده ظاهراً میگه اطلاعاتی که از دیتابیس میخونین وجود ندارن.
شما بهتره به شرط بزاری که اگه تو دیتابیس چیزی بود عملیات رو انجام بده.باز اگه مشکل چیز دیگه ای هست کامل توضیح بده.
اینم شرط :
if not(rec3.bof and rec3.eof) or not(rec4.bof and rec4.eof) then
عملیات
end if

اینو یه تست بکن ببین حل میشه.

[**sara**]

سلام
ممنون که جوابمو دادین.
مشکلم حل شد.این طوری:



<%
session.CodePage="65001"
if session("username")<>"" and session("password")<>"" then
sqlstr4="select * from Maghale where [mcode]= "& session("password")
sqlstr3="select * from Nevisande where [email]='" & session("username") & "'"
set rec4=server.createobject("adodb.recordset")
rec4.open sqlstr4,dbcon,adOpenstatic,adLockOptimistic,adcmdt ext
set rec3 =server.createobject("adodb.recordset")
rec3.open sqlstr3,dbcon,adOpenstatic,adLockOptimistic,adcmdt ext
%>
<%
rec4.close
rec3.close
set rec4=nothing
set rec3=nothing
set rec5=server.CreateObject("adodb.recordset")
'sqlstr5="select * from Maghale where [mcode]=" & session("password")
rec5.open "Maghale",dbcon,adopenstatic,adlockoptimistic,adcmdtable
rec5.absoluteposition=session("password")
rec5.fields("mname")=trim(request.Form("mname"))
rec5.fields("chekide")=trim(request.Form("chekide"))
rec5.fields("kkelidi")=trim(request.Form("kkelidi"))
rec5.fields("pdf")=trim(request.Form("pdf"))
rec5.update
rec5.close
set rec5=nothing
set rec6=server.CreateObject("adodb.recordset")
rec6.open "Nevisande",dbcon,adopenstatic,adlockoptimistic,adcmdtable
rec6.absoluteposition=session("password")
rec6.fields("efname") = Trim(request.form("efname"))
rec6.fields("elname") = Trim(request.form("elname"))
rec6.fields("address") = Trim(request.form("address"))
rec6.fields("tel") = Trim(request.form("tel"))
rec6.fields("madrak") = Trim(request.form("madrak"))
rec6.fields("fname2") = Trim(request.form("fname2"))
rec6.fields("lname2") = Trim(request.form("lname2"))
rec6.fields("fname3") = Trim(request.form("fname3"))
rec6.fields("lname3") = Trim(request.form("lname3"))
rec6.update
rec6.close
set rec6=nothing
<!-- msgstr=" .مشخصات شما ثبت شد.از عضویت شما متشکریم"-->

end if
%>


از دو تا رکورد ست استفاده کردم یکی برای نمایش یکی هم برای ویرایش.
توی رکوردست ویرایش هم اینو گذاشتم:



rec6.absoluteposition=session("password")
:لبخند:

[**sara**]

ولی حالا توی یه فرم دیگم اشکال پیدا کردم.
توی یک فرم می خوام دو رکورد از یک جدول رو ثبت کنم. توجه کنید دو رکورد در یک زمان توی یک جدول.
باید از adlockbatchoptimistic استفاده کنم؟ روش استفادش چیه؟ رکوردست غیر متصل چیه؟
مرسی. منتظر جوابتون هستم!
فووووووووووووریه.:اشتباه::ب وس: