ADODB.Recordset 错误 '800a0bb9

[laixianliang]

Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

ADODB.Recordset 错误 '800a0bb9'

变量或者类型不正确，或者不在可以接受的范围之内，要不就是与其他数据冲突。

/ss/inc/Skin_CSS.asp，行14
源代码是:
<%
dim rsSkin,sqlSkin,tSkinID,Skin_CSS,Body_Label
tSkinID=request.Cookies("southidc")("SkinID")
if tSkinID="" then
tSkinID=0
else
tSkinID=Clng(tSkinID)
end if
if tSkinID>0 then
SkinID=tSkinID
end if
sqlSkin="select * from Skin where SkinID=" & SkinID
set rsSkin=server.CreateObject("adodb.recordset")
rsSkin.open sqlSkin,conn,1,1
if rsSkin.bof and rsSkin.eof then
rsSkin.close
sqlSkin="select * from Skin where IsDefault=True"
rsSkin.open sqlSkin,conn,1,1
call main()
else
call main()
end if
rsSkin.close
set rsSkin=nothing

sub main()
Body_Label=rsSkin("Body")
Skin_CSS=split(rsSkin("Skin_CSS"),"|||")
%>
<style type="text/css">
<%=Skin_CSS(0)%>
BODY
{
<%=Skin_CSS(1)%>
}
TD
{
<%=Skin_CSS(2)%>
}
Input
{
<%=Skin_CSS(3)%>
}
Button
{
<%=Skin_CSS(4)%>
}
Select
{
<%=Skin_CSS(5)%>
}
.border
{
<%=Skin_CSS(6)%>
}
.border2
{
<%=Skin_CSS(7)%>
}
.title_txt
{
<%=Skin_CSS(8)%>
}
.title
{
<%=Skin_CSS(9)%>
}
.tdbg
{
<%=Skin_CSS(10)%>
}
.txt_css
{
<%=Skin_CSS(11)%>
}
.title_lefttxt
{
<%=Skin_CSS(12)%>
}
.title_left
{
<%=Skin_CSS(13)%>
}
.tdbg_left
{
<%=Skin_CSS(14)%>
}
.title_left2
{
<%=Skin_CSS(15)%>
}
.tdbg_left2
{
<%=Skin_CSS(16)%>
}
.tdbg_leftall
{
<%=Skin_CSS(17)%>
}
.title_righttxt
{
<%=Skin_CSS(18)%>
}
.title_right
{
<%=Skin_CSS(19)%>
}
.tdbg_right
{
<%=Skin_CSS(20)%>
}
.title_right2
{
<%=Skin_CSS(21)%>
}
.tdbg_right2
{
<%=Skin_CSS(22)%>
}
.tdbg_rightall
{
<%=Skin_CSS(23)%>
}
</style>
<%
end sub
%>
比较急请高手帮助应该如何改

[laixianliang]

rsSkin.open sqlSkin,conn,1,1
出错的就是这行

[黑心]

sqlSkin="select * from Skin where SkinID=" & SkinID

SkinID 没有值。

[黑心]

rsSkin.close

sqlSkin="select * from Skin where IsDefault=True"
set rsSkin=server.CreateObject("adodb.recordset")
rsSkin.open sqlSkin,conn,1,1

关闭了就要重新创建对象

[laixianliang]

skin 有值
如何重新创建对象啊，我和以前的那个比了一下是一样的，但是以前的开启没有问题，现在的就出问题

[zhjb1]

rsSkin.close
sqlSkin="select * from Skin where IsDefault=True"
rsSkin.open sqlSkin,conn,1,1
你的这3行改成
sqlSkin="select * from Skin where IsDefault=True"
rsSkin.open sqlSkin,conn,1,1
rsSkin.close
就行了