Question

asp网页不能正常从数据库中提取数据

这是我的conn文件代码
<%
StrSQL="DBQ="+server.mappath("admin/data/yicnews.mdb")+";DRIVER={Microsoft Access Driver (*.mdb)};"
'StrSQL="DSN=;"
set conn=server.createobject("ADODB.CONNECTION")
conn.open StrSQL
%>
这是我网页代码
<!--#include file=include/conn2.asp -->
<tr>
<%
set rs3=server.CreateObject("ADODB.RecordSet")
rs3.Source="select danwei from ywsj order by ID DESC"
rs3.Open rs3.Source,conn,1,1
while not rs3.EOF

end if
%>
<li><a danwei="<%=rs3("danwei")%>" target="_blank"><%if len(rs3("danwei"))>18 then%><%=left(rs3("danwei"),18)%>...<%else%><%=rs3("danwei")%><%end if%></a></li>
<%
rs3.MoveNext
wend
rs3.close
set rs3=nothing
%>  </td>
中间有部分省略，如果需要全代码可以留下QQ ，希望高手帮忙，分数不多了最后6分了。谢谢
报错：Microsoft VBScript 编译器错误 '800a0400'

缺少语句

\wwwroot\biaoge.asp, line 55
我实在是不知道缺少什么语句。QQ：277285603

Answer 1

<%
set rs3=server.CreateObject("ADODB.RecordSet")
rs3.Source="select danwei from ywsj order by ID DESC"
rs3.Open rs3.Source,conn,1,1
while not rs3.EOF

end if
%>

end if 去掉
可能抱错是缺少if then

你在仔细检查下,你可把源码给我看看

rs3.MoveNext
wend
改成
rs3.movenext
loop