请哪位大侠帮小弟解决下这个报错。。非常感谢。!
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp,行242
Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e21'
ODBC 驱动程序不支持所需的属性。
/chinese/pwxx.asp,行70
以下是我的代码部分。请参看
sql = "select distinct zb_id,zb_name,zb_date,title,title2,zb_company,zb_baoz,zb_price,jpg_news,zb_jweight from office_info,pnews1,pnews11,ptime where zb_lable = title and zb_lable1 = title1 and deltype=0 "
sql = sql & " and zb_id = pid "
if request("zb_name") <> "" then
sql = sql & " and zb_lable = '"&request("zb_name")&"'"
end if
if request("zb_name1") <> "" then
sql = sql & " and zb_lable1 = '"&request("zb_name1")&"'"
end if
if request("key") <> "" then
sql = sql & " and (zb_company like '%"&request("key")&"%') "
end if
if date2 <> "" then
sql = sql & " and cint(year(str(ptime)))=cint(year(cdate('"&date2&"'))) and cint(month(str(ptime)))=cint(month(cdate('"&date2&"'))) and cint(day(str(ptime)))=cint(day(cdate('"&date2&"'))) "
end if
sql = sql & "order by zb_date desc"
rs.open sql,conn,1,1 ‘此行为70行’