السلام عليكــم ورحمـة الله وبركاتــه
انا عندي صفحة فيها ثلاث استعلمات مبنية استخدمت vb scrpit
<!--#include file="top.asp"-->
<html>
<HEAD>
<script type="text/javascript" src="cssverticalmenu.js">
</script>
<style type="text/css">BODY {
FONT-SIZE: 11px; MARGIN: 0px
}
.style1 {
text-align: left;
}
</style>
</HEAD>
<link rel="stylesheet" type="text/css" href="cssverticalmenu.css" />
<table width="800" height="400" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td background="images/middleback.jpg" valign="top">
<br>
<table border="0" align="center" cellpadding="0" cellspacing="0" style="width: 29%">
<tr>
<td width="250" class="style1">
</td>
<td valign="bottom"> </td>
</tr>
</table>
<table border="0" align="center" cellpadding="0" cellspacing="0" style="width: 29%">
<tr> <td>
<ul id="verticalmenu" class="glossymenu" style="width: 760px">
<%
Sql = "select name , logo , [web site], Id from brand"
rs.open sql , AdoCon
while not rs.eof
%>
<li><a><%=rs("name")%></a></li>
<%
sql_1 = "SELECT * from category where brand=" & rs("Id")
rs_1.open sql_1 , AdoCon
while not rs_1.eof
%>
<ul><a><%=rs_1("name")%></a></ul>
<%
sql_11 = "select * from Product"
rs_11.open sql_11 , AdoConدائما يعطيني الخطاء في هذا السطر مع انة يوجد الجدول هل هناك عدد محدد من الاتصلات المفتوحة يجب ان لا نتجاوزة او ايش الخطا الرسالة هي
Microsoft VBScript runtime error '800a01a8'
Object required: '' /technopal/product.asp, line 44
%>
<a href=""><%'=rs_2("name")%></a>
<%rs_11.close%>
<%
rs_1.movenext()
wend
rs_1.close
%>
<%
rs.movenext()
wend
rs.close
%>
</ul>
</td> </tr>
</table>
<table style="width: 100%">
<tr>
<TD vAlign=top align=middle style="width: 773px">
<TABLE cellSpacing=1 cellPadding=0 width=535 border=0>
<TBODY>
<TR>
<TD><IMG src="submain_img.gif"
border=0></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=535 border=0>
<TBODY>
<TR>
<TD width=256><A
href="http://www.cnbtec.com/en/html/product/product.php?seqx_prod=357">
<IMG
height=98
src="submain_new03.gif"
width=256 border=0></A></TD>
<TD width=23> </TD>
<TD width=256><A
href="http://www.cnbtec.com/en/html/product/product.php?seqx_prod=369">
<IMG
height=98
src="submain_new04.gif"
width=256 border=0></A></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=535 border=0>
<TBODY>
<TR>
<TD width=256><A
href="http://www.cnbtec.com/en/html/product/product.php?seqx_prod=981">
<IMG
height=98
src="submain_new05.gif"
width=256 border=0></A></TD>
<TD width=23> </TD>
<TD width=256><A
href="http://www.cnbtec.com/en/html/product/product_list.php?maxx=5&midx=265">
<IMG
height=98
src="submain_new06.gif"
width=256
border=0></A></TD></TR></TBODY></TABLE><BR><BR><BR><BR></TD>
<td> </td>
</tr>
</table>
</td></tr>
</table>
</html>
<!--#include file="link.asp"-->
<!--#include file="bottom.asp"-->