ASP 产寻数据库问题

Question

小弟初学ASP
用asp查询slqserver2000数据库一直报500错误
<%
sql="select proDuctNumber from Account" 
set rs=Server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1 if not rs.eof and not rs.bof then 
do while not rs.eof%>
<%=rs("proDuctNumber")%> 把if not rs.eof and not rs.bof then 
do while not rs.eof去掉就不报错了 望高手指点

Answer 1

小弟初学ASP 
用asp查询slqserver2000数据库一直报500错误 
<% 
sql="select proDuctNumber from Account" 
set rs=Server.CreateObject("adodb.recordset") 
rs.open sql,conn,1,1 if not rs.eof and not rs.bof then 
 while not rs.eof %> 
<%=rs("proDuctNumber")%> 

Answer 2

没有必要if not rs.eof and not rs.bof then 
do while not rs.eof吧
直接do while not rs.eof...rs.movenext...loop就行了

Answer 3

简单改了下，未测试
<% 
Dim RecordNum
sql="select proDuctNumber from Account" 
set rs=Server.CreateObject("adodb.recordset") 
If Rs.State = 1 Then Rs.Close
rs.open sql,conn,1,3 If Not(Rs.Eof And Rs.Bof) Then
RecordNum = Rs.RecordCount
Sub Show()
dim i 
do while not rs.eof 
%> 
<%=rs("proDuctNumber")%> <%
i = i + 1
If i >= RecordNum Then Exit Do
Rs.MoveNext
Loop
End Sub
%>