汽车大屏幕导航:ADODB.Recordset (0x800A0BB9)

来源:百度文库 编辑:神马品牌网 时间:2024/10/01 08:14:02
<%
else

dim IntOrderNum
set rsvip=server.CreateObject("adodb.recordset")
rsvip.Open "select distinct(goods) from orders where username='"&strUserName&"'and state=2 ",conn,1,3(出错行)
IntOrderNum = rsvip.recordcount
rsvip.Close

rsvip.open "select DV_User.GrpID,TimesGrp.GrpName,TimesGrp.Stars from DV_User Inner Join TimesGrp On DV_User.GrpID = TimesGrp.GrpID where username='"&strUserName&"' ",conn,1,1
strTitle = rsVip("GrpName")
LngDiscount = rsVip("Stars")
rsvip.close
set rsvip=nothing

if IntOrderNum=0 then %>

rsvip.Open "select distinct goods from orders where username='"&strUserName&"'and state=2 ",conn,1,3

改成这样,去掉括号