请教一个Where使用出错的问题,急~!!!
<!--#include file="conn.asp"-->
<!--#include file="top.asp"-->
<%
dim sql
Set rs=Server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM flash2 order by datetime DESC"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
%>
<br><p aligh="center" align="center"><font color="#ff0000">现在还没有任何记录!
<br><br><a href="add.asp">我要添加</a></font></p>
<% else
rs.Close%>
.
.
<% sql="SELECT * FROM classify2 order by classid2 DESC"
rs.open sql,conn,1,1
%>
<!--循环体-->
<% dim shit
do while not (rs.eof or err)
shit=rs("classify2")%>
.
.
.
<%
dim sql2
dim jj
jj=1
Set rs1=Server.CreateObject("ADODB.Recordset")
sql2="SELECT * FROM flash2 order by datetime DESC" '(就是这部分出了问题,只要一使用where筛选就报错)
'(sql2="SELECT * from flash2 where classify2="&shit order by datetime DESC")(错误是:驱动程序不支持所需的属性)
rs1.open sql2,conn,1,1
do while not rs1.eof
if jj<7 then %>
<%=rs1("name")%><br>
<% else exit do
end if
rs1.movenext
j=jj+1
oop
rs1.close
%>
<!--循环结束-->
<% rs.movenext
loop
rs.close %>
<%end if%>
<!--#include file="down.asp"-->
原程序如上!如果去除掉Where语句,程序运行正常.如果加上Where就出现"驱动程序不支持所需的属性"错误~,在线等待~高分赠送!