<%
CheckLogin()
UserID = Trim(Request("UserID"))

OpenDatabase()
Set Rs = Server.CreateObject("ADODB.Recordset")
SQL = "select count(*) from icms_model_auth where user_id = " & UserID
intCount = CInt(Conn.Execute(Sql)(0))

If intCount = 0 Then
strModelAuth = ""
Else
Sql = "select model_id from icms_model_auth where user_id = " & UserID
strModelAuth = Conn.Execute(Sql)(0) //出错行 Microsoft JET Database Engine (0x80040E07)标准表达式中数据类型不匹配
End If
Sql = "select model_id,model_name,model_status from icms_model where model_level = '1' order by model_id"
Rs.Open Sql,Conn,1,1
If Not Rs.Eof Then
arrayMainModel = Rs.GetRows()
Else
arrayMainModel = ""
End If
Rs.Close
%>
请指教