对象名'categories'无效。

[mengqingren2008]

<%
dim sql,conn,rs,htmlcode
%>
<!--#include file="includes/dbconn.inc"-->
<!--#include file="includes/header.inc"-->
<table border="0" width="100%" height="200" cellspacing="0" cellpadding="0">
<tr>
<td width="20%" height="200" bgcolor="#F0F0F0" valign=top>
<script language="JavaScript">
<!--
function showLay(divId){
var objDiv = eval(divId);
if (objDiv.style.display=="none"){
eval("sp"+divId+".innerHTML='-'");
objDiv.style.display="";
}else{
eval("sp"+divId+".innerHTML='+'");
objDiv.style.display="none";
}
}
// -->
</script>
<%
dim rsTEMP,sqlTEMP
categoryname = request("categoryname")
subcategoryname = request("subcategoryname")

call openDB()
sql="select idcategory,categoryname from categories"
set rs=conn.execute(sql)
counter=0 '---------------------------------------------------------------------A COUNTER USED
while not rs.eof
counter=counter+1
sqlTEMP="select subcategoryname from subcategories where idcategory="&rs("idcategory")
set rsTEMP=conn.execute(sqlTEMP)
if categoryname<>rs("categoryname") then
%>
<a href="#" onclick="showLay('Layer<%=counter%>')"><span id="spLayer<%=counter%>">+</span><%=rs("categoryname")%></a><br>
<div id="Layer<%=counter%>" style="display:none;">
<%while not rsTEMP.eof%>
|-<a HREF="bookincategory.asp?categoryname=<%=rs("categoryname")%>&subcategoryname=<%=rsTEMP("subcategoryname")%>">
<%=rsTEMP("subcategoryname")%></a><br>
<%
rsTEMP.movenext
wend
else
%>
<a href="#" onclick="showLay('Layer<%=counter%>')"><span id="spLayer<%=counter%>">-</span><%=rs("categoryname")%></a><br>
<div id="Layer<%=counter%>">
<%while not rsTEMP.eof%>
|-<a HREF="bookincategory.asp?categoryname=<%=rs("categoryname")%>&subcategoryname=<%=rsTEMP("subcategoryname")%>">
<%=rsTEMP("subcategoryname")%></a><br>
<%
rsTEMP.movenext
wend
end if
%>
</div>
<%
rs.movenext
wend
%>
</td>
<td width="80%" height="200" bgcolor="#F7FDFD">
<%
sql="SELECT books.idbook,books.bookname "
sql=sql&"FROM ((categories INNER JOIN books ON categories.idcategory = books.idcategory) "
sql=sql&"INNER JOIN subcategories ON (subcategories.idsubcategory = books.idsubcategory) "
sql=sql&"AND (categories.idcategory = subcategories.idcategory)) INNER JOIN stockmovements "
sql=sql&"ON books.idbook = stockmovements.idbook WHERE (((categories.categoryname)='"&categoryname&"') "
sql=sql&"AND ((subcategories.subcategoryname)='"&subcategoryname&"')) "
sql=sql&"ORDER BY stockmovements.datemovement DESC"
set rs=conn.execute(sql)
while not rs.eof
%>
<a href="viewitem.asp?idbook=<%=rs("idbook")%>&bookname=<%=rs("bookname")%>"><%=rs("bookname")%></a>|
<a href="bookincategory.asp?categoryname=<%=categoryname%>"><%=categoryname%>
</a>|<%=subcategoryname%>|
<p></p>
<%
rs.movenext
wend
call closeDB()
%>
</td></tr></table>
<!--#include file="includes/footer.inc"-->