关于错误 '80020009'
<%
        Set   conn_1   =   Server.CreateObject( "ADODB.Connection ")
conn_1.Open   conStr
  set   urs=Server.CreateObject( "ADODB.Recordset ")
usql= "select   top   100   count(user_id)   as   Nums   from   tbVip "  
urs.open   usql,conn_1,1,1

Set   Rs   =   Server.CreateObject( "ADODB.Recordset ")
sql= "select   top   100   *   from   tbVip "
rs.open   sql,conn_1,1,1
int   ejifen
ejifen=0
int   i
for   i=0   to   urs( "Nums ")
response.Write   "ID=   "   &rs( "user_id ")   &   "       VIP_JF=   "   &   rs( "VIP_JF ")   & " "
rs.movenext      
next
   
%>   这是我的代码，麻烦大家帮我看看，谢谢！！！

------解决方案--------------------
有点错
<%
Set conn_1 = Server.CreateObject( "ADODB.Connection ")
conn_1.Open conStr

Set rs = Server.CreateObject( "ADODB.Recordset ")
sql= "select top 100 * from tbVip "
rs.cursorLocation=3
rs.open sql,conn_1,1,1
ejifen=0
Do While Not rs.eof
Response.Write "ID= " & rs( "user_id ") & " VIP_JF= " & rs( "VIP_JF ") & " <br> "
ejifen = ejifen + 1
rs.movenext
Loop
rs.close
set rs = nothing
conn_1.close
set conn_1 = nothing
%>