asp 查询数据库
下面的报错

                            
[解决办法]
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