asp 查询数据库,该如何处理

asp 查询数据库
下面的报错

<%

    for I = 1 to objUsers.Count         

    dim strSql="select strIsGCR from TB_USERS where userid ="&objUsers.Item(I).UserID 

    set objRs = objCn.Execute(strSql)     

%>

------解决方案--------------------
objUsers.Item(I).UserID有空值。。增加空值判断

   for I = 1 to objUsers.Count         
if trim(objUsers.Item(I).UserID&"") <>"" then
    dim strSql="select strIsGCR from TB_USERS where userid ="&objUsers.Item(I).UserID 
    set objRs = objCn.Execute(strSql)     

end if
------解决方案--------------------
<%
    dim strSql
    for I = 1 to objUsers.Count         
    strSql="select strIsGCR from TB_USERS where userid ="&objUsers.Item(I).UserID 
    set objRs = objCn.Execute(strSql)     
%>
vbs中不能定义的同时进行赋值
------解决方案--------------------

<%

strCnn = Application("WFDB")

sch_cond = Request.QueryString("sch_cond")

Set objCn = Server.CreateObject("ADODB.Connection")   

set objRs= Server.CreateObject("ADODB.Recordset")

objCn.Open strCnn

objRs.open strSql,objCn,3,1

if objRs.recordcount>0 then    

do while not objRs.eof

%>

<span style="color: #FF0000;"><%=objRs("字段名")%></span>

<%

objRs.movenext

loop

end if

%>

------解决方案--------------------
&o 8进制
& o