<% 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 %>
 
 
 
  ELECTRONICS <% =Rst1("name1") %>:     Click on pictures for more details  
  

  

Electric DVD Smart Station      EmpireTower

      Wireless USB A/V Kit

Digital Photo Frame

Vision Video Glass

 Mp4 Watch
Back
 
 
 
Copyright © 2004 Tarsam Image. All rights reserved.
<% Rst2.movefirst while not Rst2.EOF response.write "" Rst2.MoveNext wend %>