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

[**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,adcm  dtable

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,ad  cmdtable

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")