错误类型：
Microsoft VBScript 编译器错误 (0x800A0401)
语句未结束
/0000/Resumes_all.asp, line 114, column 43
sql4="select * from user where user_name='"&hf("Resumes_name")&"' "
------------------------------------------^
<%
set us3=server.CreateObject("adodb.recordset")
114行 sql4="select * from user where user_name='"&hf("Resumes_name")&"' "
us3.open sql4,db,1,1
if us3.eof and us3.bof then
us3.close
set us3=nothing
set us3=server.CreateObject("adodb.recordset")
sql4="select * from admin where user_name='"&hf("Resumes_name")&"' "
us3.open sql4,db,1,1
end if
%>
<%
us3.close
set us3=nothing
%>

我前面用过的,没有问题,为了防止错误我把前面用过的复制过来之后,再修改!!
这些是在一个do while 循环里的东东~~~~
不加这些,循环正常的~~~
我把循环都贴出来!!!!!!还请各位帮帮小弟的忙~~谢了
--------------------------------------------------------------------------------------
<%
set hf=server.CreateObject("adodb.recordset")
sql3="select * from Resumes where Resumes_posted='"&tz("id")&"'"
hf.open sql3,db,1,1
if hf.eof and hf.bof then
response.write"目前没有记录"
else
counts=5
hf.pagesize = counts
allpages = hf.pagecount
page = request("page")
If not isNumeric(page) then page=1
if isEmpty(page) or Cint(page) < 1 then
page = 1
elseif Cint(page) >= allPages then
page = allPages
end if
hf.AbsolutePage = page
do while (not hf.eof) and counts>0
%></td>
</tr>
<tr>
<td height="0" colspan="2" bgcolor="#DEC384">
<%
set us3=server.CreateObject("adodb.recordset")
sql4="select * from user where user_name='"&hf("Resumes_name")&"'"
us3.open sql4,db,1,1
if us3.eof and us3.bof then
us3.close
set us3=nothing
set us3=server.CreateObject("adodb.recordset")
sql4="select * from admin where user_name='"&hf("Resumes_name")&"'"
us3.open sql4,db,1,1
end if
%>
用户信息 </td>
<td height="0" bgcolor="#E7CF94">回复信息</td>
</tr>
<tr>
<td height="92" colspan="2"><img src='image/face/<%=us3("face")%>' width="70" height="70" border="0" ></td>
<td height="92"><table width="100%" border="0">
<tr>
<td><%=hf("Resumes_Content")%></td>
</tr>
</table></td>
</tr>
<tr>
<td height="3" colspan="3">


<%
us3.close
set us3=nothing
%>
<%
counts = counts - 1
hf.movenext
if hf.eof then exit do
loop
end if
%>

还是不行~~~
如果把下面粗斜体的部分删掉则能够正常运行
用下划线表示的代码少 if 是正常的,是我从一本asp书上找到的,在哪用都没有错误,删掉中间粗斜体部分之后也能循环显示,只要中间部分存在就在 114行 停止的,原因如上
读取数据库代码理论上没有写错,我甚至把原来能用的数据库代码原封拷贝,只修改了需要修改的部分
-----------------------------------------------------------------------------------------------------------------------------------------------------
<%
set hf=server.CreateObject("adodb.recordset")
sql3="select * from Resumes where Resumes_posted='"&tz("id")&"'"
hf.open sql3,db,1,1
if hf.eof and hf.bof then
response.write"目前没有记录"
else
counts=5
hf.pagesize = counts
allpages = hf.pagecount
page = request("page")
If not isNumeric(page) then page=1 'page不是数字
if isEmpty(page) or Cint(page) < 1 then 'page 为空或小于1
page = 1
elseif Cint(page) >= allPages then 'page 值大于总页数
page = allPages
end if
hf.AbsolutePage = page
do while (not hf.eof) and counts>0
%></td>
</tr>
<tr>
<td height="0" colspan="2" bgcolor="#DEC384">
<%
set us3=server.CreateObject("adodb.recordset")
sql4="select * from user where user_name='"&hf("Resumes_name")&"'"
us3.open sql4,db,1,1
if us3.eof and us3.bof then
us3.close
set us3=nothing
set us3=server.CreateObject("adodb.recordset")
sql4="select * from admin where user_name='"&hf("Resumes_name")&"'"
us3.open sql4,db,1,1
end if
%>
用户信息 </td>
<td height="0" bgcolor="#E7CF94">回复信息</td>
</tr>
<tr>
<td height="92" colspan="2"><img src='image/face/<%=us3("face")%>' width="70" height="70" border="0" ></td>
<td height="92"><table width="100%" border="0">
<tr>
<td><%=hf("Resumes_Content")%></td>
</tr>
</table></td>
</tr>
<tr>
<td height="3" colspan="3">


<%
<%
us3.close
set us3=nothing

counts = counts - 1
hf.movenext
if hf.eof then exit do
loop
end if
%><%
'显示总留言条数
response.write "<br>&nbsp;&nbsp;当前共有"&hf.RecordCount&"条记录 "
if page = 1 then '到达第一页
response.write "<font color=darkgray>首页 前页</font>"
else '不是第一页
response.write "<a href='plate_name.asp?page=1&plate_id="&plate_id&"'>首页</a> <a href='plate_name.asp?page="&page-1&"&plate_id="&plate_id&"'>前页</a>"
end if

for i=1 to allpages
if i=page then
response.Write i&"&nbsp"
else
response.Write"[<a href='plate_name.asp?plate_id="&plate_id&"&page="&i&"'><"&i&"></a>]"
end if
next
if page = allpages then '到达最后一页
response.write "<font color=darkgray> 下页 末页</font>"
else '不是最后一页
'建立超级链接
response.write " <a href='plate_name.asp?page="&page+1&"&plate_id="&plate_id&"'>下页</a> <a href='plate_name.asp?page="&allpages&"&plate_id="&plate_id&"'>末页</a>"
end if
response.write " 第"&page&"页 共"&allpages&"页 " '显示当前页数信息
%>
<%
hf.close
set hf=nothing
%>

还请各位大哥帮帮忙啊~~~
谢了

问题已经解决
谢谢各位
^_^