<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% %> <% %> <% Id = request("cl_cat_ID") ' Create a recordset object to store specific table information Set rsCat = Server.CreateObject("ADODB.Recordset") 'Establish what records you want selected for the SQL query string SQL = "Select * From Categories where cl_cat_ID = " & Id 'Set the recordset object equal to the SQL query string rsCat.Open SQL, objADO, 1, 3 ' Create a recordset object to store specific table information Set rsAds = Server.CreateObject("ADODB.Recordset") 'Establish what records you want selected for the SQL query string SQL = "Select * From Ads where cl_cat_ID = " & Id 'Set the recordset object equal to the SQL query string rsAds.Open SQL, objADO, 1, 3 %> <% %> <% %> <% %>

CLASSIFIED ADS FOR <%= ucase(rsCat("Cat_Name")) %>

<% If rsAds.EOF Then %> Sorry No Records <% End If ' end rsAds.EOF And rsAds.BOF %>

<% If Not rsAds.EOF Then %> <% While NOT rsAds.EOF %>

"><%=(rsAds.Fields.Item("Ad_title").Value)%>

<% rsAds.MoveNext Wend %> <% End If ' end Not rsAds.EOF Or NOT rsAds.BOF %>

<% rsAds.Close() Set rsAds = Nothing %>