<%
theCategoryID=5
strConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("prod.mdb")
Set cnn=Server.CreateObject ("ADODB.Connection")
cnn.Open strConnectionString
set Rst1=server.CreateObject ("ADODB.Recordset")
set Rst2=server.CreateObject ("ADODB.Recordset")
strSQL1="select * from Tcat1 where id1=" & theCategoryID & " order by id1"
strSQL2="select * from Tcat2 where id1=" & theCategoryID & " order by id2"
Rst1.Open strSQL1,cnn
Rst2.Open strSQL2,cnn
%>