**sara**
سه شنبه 06 شهریور 1386, 02:02 صبح
سلام
من یک سری کد update دارم که error نمیده ولی کار هم نمی کنه اگه می شه ببینین اشکالش چیه؟
<%@ language=vbscript @%>
<!-- #include file="dbopen.asp" -->
<!-- #include file="adovbs.inc" -->
<%
session.CodePage="65001"
if session("username")<>"" and session("password")<>"" then
sqlstr3="select * from Nevisande "
set rec3 =server.createobject("adodb.recordset")
rec3.open sqlstr3,dbcon,adOpenStatic
%>
<!DOCTYPE "HTML PUBLIC -//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>کنفرانس دانشگاه آزاد اسلامی واحد گرگان </TITLE>
<META http-equiv="Content-Type" content="text/html; charset=utf-8">
<LINK
href="c/000_tmpl_JDB.css"
type=text/css rel=stylesheet>
</HEAD>
<body dir=rtl>
<script language="vbscript">
sub btnupdate_onclick()
document.newuserform.submit
end sub
</script>
<form action="nevisande.asp" method="post" >
<%
dim intpagerecords,intrecords,intrecordcount,intcurent page
dim intnumberofpages,intdisplaypage
intpagerecords=request.querystring("page")
if intpagerecords="" then intpagerecords=1 : intrecords=1
intrecords=intpagerecords
intpagerecords=((intpagerecords-1)*10)+1
intrecordcount=0
%>
<table border=1 width="1000"> <tr>
<%
n=rec3.fields.count
response.Write("<td align='center' width='50'>انتخاب کن</td>")
response.Write("<td align='center' width='40'>کد</td>")
response.Write("<td align='center' width='60'>نام</td>")
response.Write("<td align='center' width='80'>نام خانوادگی</td>")
response.Write("<td align='center' width='50' >مدرک</td>")
response.Write("<td align='center' width='90' >تلفن</td>")
response.Write("<td align='center' width='100'>آدرس</td>")
response.Write("<td align='center' width='90'>پست الکترونیکی</td>")
response.Write("<td align='center' width='60'>نام (2)</td>")
response.Write("<td align='center' width='80'>نام خانوادگی (2)</td>")
response.Write("<td align='center' width='60'>نام (3)</td>")
response.Write("<td align='center' width='80'>نام خانوادگی(3)</td>")
response.Write("</tr>")
if rec3.eof or rec3.bof then
response.Write("هیچ رکوردی موجود نمی باشد.")
end if
if not rec3.eof then
rec3.move (intpagerecords-1)
k=1
do while intrecordcount <10 and not rec3.eof
bg=""
if k mod 2 =1 then bg="bgcolor=lightblue" end if
response.Write("<tr "&bg&">")
response.Write("<td align='center'><input type='radio' name='rdoselect' value='" & rec3.fields("ncode") & "' ></td>")
for i=0 to n-1
response.Write("<td align='center'>" & rec3.fields(i) & " </td>")
next
response.Write("</tr>")
k=k+1
rec3.movenext
intrecordcount=intrecordcount+1
loop
end if
response.Write("</table>")
%>
<center><p>نمایش صفحه ها</p>
<%
intcurrentpage=request.QueryString("page")
if intcurrentpage="" then intcurrentpage=1
intnumberofpages=int(rec3.recordcount\10)
if rec3.recordcount mod 10 <> 0 then intnumberofpages=intnumberofpages +1
response.Write("[")
for intdisplaypage=1 to intnumberofpages
if cint(intdisplaypage)=cint(intcurrentpage) then
response.Write "<b>" & intdisplaypage & "</b>"
else
response.Write "<a href=""nevisande.asp?page=" & intdisplaypage & """>" & intdisplaypage & "</a>"
end if
next
response.Write("]")
%>
</center>
<br>
<center>
<input type="submit" name="btnedit" value="ویرایش">
<input type="submit" name="btndelete" value="حذف">
</form>
</center>
<%
set rec4=server.CreateObject("adodb.recordset")
rec4.open "Nevisande",dbcon,adopenstatic,adlockoptimistic,adcmdtable
if request.Form("btndelete")="حذف" then
recordtodelete=cint(request.Form("rdoselect"))
rec4.absoluteposition=recordtodelete
if not rec4.bof then
rec4.movefirst
do until rec4.fields("ncode")=recordtodelete
rec4.movenext
loop
rec4.delete
rec4.requery
end if
end if
rec4.close
set rec4=nothing
if request.form("btnedit")="ویرایش" then
recordtoedit=cint(request.Form("rdoselect"))
set rec5=server.CreateObject("adodb.recordset")
sqlstr5="select * from Nevisande where [ncode]=" & request.Form("rdoselect") & ""
rec5.open sqlstr5,dbcon,adOpenstatic,adLockOptimistic,adcmdt ext
response.Write("<hr width='100%'>")
%>
<form name="newuserform" method="post" action="nevisande.asp">
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td>
<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="<%=rec5.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="<%=rec5.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="<%=rec5.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="<%=rec5.fields("tel")%>"></TD></TR>
<TD align=left>آدرس: <SPAN style="COLOR: red">*</SPAN></TD>
<TD><TEXTAREA style="WIDTH:100%" name="address" ><%=rec5.fields("address")%></TEXTAREA></TD></TR>
</TBODY></TABLE>
</td>
</tr>
<tr>
<td>
<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="<%=rec5.fields("fname2")%>"></TD></TR>
<TR>
<TD align=left>نام خانوادگی:</TD>
<TD><INPUT
style="WIDTH: 100%" maxLength=50
name="lname2" value="<%=rec5.fields("lname2")%>"></TD></TR>
</TBODY></TABLE>
</td>
</tr>
<tr>
<td>
<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="<%=rec5.fields("fname3")%>"></TD></TR>
<TR>
<TD align=left>نام خانوادگی:</TD>
<TD><INPUT
style="WIDTH: 100%" maxLength=50
name="lname3" value="<%=rec5.fields("lname3")%>"></TD></TR>
</TBODY></TABLE>
</td>
</tr>
<tr>
<td>
<TABLE style="MARGIN-TOP: 15px; MARGIN-BOTTOM: 20px"
width=63 align=center border=0>
<TBODY>
<TR>
<TD align=middle width="57" >
<input type="button" value=" ویرایش " name="btnupdate">
</TD>
</TR></TBODY></TABLE>
</td>
</tr>
</table>
</form>
<%
rec5.close
set rec5=nothing
set rec6=server.CreateObject("adodb.recordset")
rec6.open "Nevisande",dbcon,adopenstatic,adlockoptimistic,adcmdtable
set rec6=server.CreateObject("adodb.recordset")
rec6.open "Nevisande",dbcon,adopenstatic,adlockoptimistic,adcmdtable
rec6.absoluteposition=request.Form("rdoselect")
if request.Form("btnupdate")="ویرایش" then
rec6.fields("efname")=request.Form("efname")
rec6.fields("elname")=request.Form("elname")
rec6.fields("madrak")=request.Form("madrak")
rec6.fields("tel")=request.Form("tel")
rec6.fields("address")=request.Form("address")
rec6.fields("email")=request.Form("email")
rec6.fields("fname2")=request.Form("fname2")
rec6.fields("lname2")=request.Form("lname2")
rec6.fields("fname3")=request.Form("fname3")
rec6.fields("lname3")=request.Form("lname3")
rec6.update
updated="true"
end if
rec6.close
set rec6=nothing
rec3.close
set rec3=nothing
end if
end if
%>
</BODY></HTML>
من یک سری کد update دارم که error نمیده ولی کار هم نمی کنه اگه می شه ببینین اشکالش چیه؟
<%@ language=vbscript @%>
<!-- #include file="dbopen.asp" -->
<!-- #include file="adovbs.inc" -->
<%
session.CodePage="65001"
if session("username")<>"" and session("password")<>"" then
sqlstr3="select * from Nevisande "
set rec3 =server.createobject("adodb.recordset")
rec3.open sqlstr3,dbcon,adOpenStatic
%>
<!DOCTYPE "HTML PUBLIC -//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>کنفرانس دانشگاه آزاد اسلامی واحد گرگان </TITLE>
<META http-equiv="Content-Type" content="text/html; charset=utf-8">
<LINK
href="c/000_tmpl_JDB.css"
type=text/css rel=stylesheet>
</HEAD>
<body dir=rtl>
<script language="vbscript">
sub btnupdate_onclick()
document.newuserform.submit
end sub
</script>
<form action="nevisande.asp" method="post" >
<%
dim intpagerecords,intrecords,intrecordcount,intcurent page
dim intnumberofpages,intdisplaypage
intpagerecords=request.querystring("page")
if intpagerecords="" then intpagerecords=1 : intrecords=1
intrecords=intpagerecords
intpagerecords=((intpagerecords-1)*10)+1
intrecordcount=0
%>
<table border=1 width="1000"> <tr>
<%
n=rec3.fields.count
response.Write("<td align='center' width='50'>انتخاب کن</td>")
response.Write("<td align='center' width='40'>کد</td>")
response.Write("<td align='center' width='60'>نام</td>")
response.Write("<td align='center' width='80'>نام خانوادگی</td>")
response.Write("<td align='center' width='50' >مدرک</td>")
response.Write("<td align='center' width='90' >تلفن</td>")
response.Write("<td align='center' width='100'>آدرس</td>")
response.Write("<td align='center' width='90'>پست الکترونیکی</td>")
response.Write("<td align='center' width='60'>نام (2)</td>")
response.Write("<td align='center' width='80'>نام خانوادگی (2)</td>")
response.Write("<td align='center' width='60'>نام (3)</td>")
response.Write("<td align='center' width='80'>نام خانوادگی(3)</td>")
response.Write("</tr>")
if rec3.eof or rec3.bof then
response.Write("هیچ رکوردی موجود نمی باشد.")
end if
if not rec3.eof then
rec3.move (intpagerecords-1)
k=1
do while intrecordcount <10 and not rec3.eof
bg=""
if k mod 2 =1 then bg="bgcolor=lightblue" end if
response.Write("<tr "&bg&">")
response.Write("<td align='center'><input type='radio' name='rdoselect' value='" & rec3.fields("ncode") & "' ></td>")
for i=0 to n-1
response.Write("<td align='center'>" & rec3.fields(i) & " </td>")
next
response.Write("</tr>")
k=k+1
rec3.movenext
intrecordcount=intrecordcount+1
loop
end if
response.Write("</table>")
%>
<center><p>نمایش صفحه ها</p>
<%
intcurrentpage=request.QueryString("page")
if intcurrentpage="" then intcurrentpage=1
intnumberofpages=int(rec3.recordcount\10)
if rec3.recordcount mod 10 <> 0 then intnumberofpages=intnumberofpages +1
response.Write("[")
for intdisplaypage=1 to intnumberofpages
if cint(intdisplaypage)=cint(intcurrentpage) then
response.Write "<b>" & intdisplaypage & "</b>"
else
response.Write "<a href=""nevisande.asp?page=" & intdisplaypage & """>" & intdisplaypage & "</a>"
end if
next
response.Write("]")
%>
</center>
<br>
<center>
<input type="submit" name="btnedit" value="ویرایش">
<input type="submit" name="btndelete" value="حذف">
</form>
</center>
<%
set rec4=server.CreateObject("adodb.recordset")
rec4.open "Nevisande",dbcon,adopenstatic,adlockoptimistic,adcmdtable
if request.Form("btndelete")="حذف" then
recordtodelete=cint(request.Form("rdoselect"))
rec4.absoluteposition=recordtodelete
if not rec4.bof then
rec4.movefirst
do until rec4.fields("ncode")=recordtodelete
rec4.movenext
loop
rec4.delete
rec4.requery
end if
end if
rec4.close
set rec4=nothing
if request.form("btnedit")="ویرایش" then
recordtoedit=cint(request.Form("rdoselect"))
set rec5=server.CreateObject("adodb.recordset")
sqlstr5="select * from Nevisande where [ncode]=" & request.Form("rdoselect") & ""
rec5.open sqlstr5,dbcon,adOpenstatic,adLockOptimistic,adcmdt ext
response.Write("<hr width='100%'>")
%>
<form name="newuserform" method="post" action="nevisande.asp">
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td>
<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="<%=rec5.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="<%=rec5.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="<%=rec5.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="<%=rec5.fields("tel")%>"></TD></TR>
<TD align=left>آدرس: <SPAN style="COLOR: red">*</SPAN></TD>
<TD><TEXTAREA style="WIDTH:100%" name="address" ><%=rec5.fields("address")%></TEXTAREA></TD></TR>
</TBODY></TABLE>
</td>
</tr>
<tr>
<td>
<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="<%=rec5.fields("fname2")%>"></TD></TR>
<TR>
<TD align=left>نام خانوادگی:</TD>
<TD><INPUT
style="WIDTH: 100%" maxLength=50
name="lname2" value="<%=rec5.fields("lname2")%>"></TD></TR>
</TBODY></TABLE>
</td>
</tr>
<tr>
<td>
<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="<%=rec5.fields("fname3")%>"></TD></TR>
<TR>
<TD align=left>نام خانوادگی:</TD>
<TD><INPUT
style="WIDTH: 100%" maxLength=50
name="lname3" value="<%=rec5.fields("lname3")%>"></TD></TR>
</TBODY></TABLE>
</td>
</tr>
<tr>
<td>
<TABLE style="MARGIN-TOP: 15px; MARGIN-BOTTOM: 20px"
width=63 align=center border=0>
<TBODY>
<TR>
<TD align=middle width="57" >
<input type="button" value=" ویرایش " name="btnupdate">
</TD>
</TR></TBODY></TABLE>
</td>
</tr>
</table>
</form>
<%
rec5.close
set rec5=nothing
set rec6=server.CreateObject("adodb.recordset")
rec6.open "Nevisande",dbcon,adopenstatic,adlockoptimistic,adcmdtable
set rec6=server.CreateObject("adodb.recordset")
rec6.open "Nevisande",dbcon,adopenstatic,adlockoptimistic,adcmdtable
rec6.absoluteposition=request.Form("rdoselect")
if request.Form("btnupdate")="ویرایش" then
rec6.fields("efname")=request.Form("efname")
rec6.fields("elname")=request.Form("elname")
rec6.fields("madrak")=request.Form("madrak")
rec6.fields("tel")=request.Form("tel")
rec6.fields("address")=request.Form("address")
rec6.fields("email")=request.Form("email")
rec6.fields("fname2")=request.Form("fname2")
rec6.fields("lname2")=request.Form("lname2")
rec6.fields("fname3")=request.Form("fname3")
rec6.fields("lname3")=request.Form("lname3")
rec6.update
updated="true"
end if
rec6.close
set rec6=nothing
rec3.close
set rec3=nothing
end if
end if
%>
</BODY></HTML>