Home::Site Map

<% I = 1 Set rsCat = objConn.Execute("SELECT " & tablPfx & "Cat.catID, " & tablPfx & "Cat.catName, " & tablPfx & "Cat.ads FROM " & tablPfx & "Cat ORDER BY catName;") If not rsCat.EOF then Response.Write vbcrlf & "

" & vbcrlf Do while not rsCat.EOF catID = rsCat(0) catName = rsCat(1) ads = rsCat(2) Set rssCat = objConn.Execute("SELECT " & tablPfx & "Scat.sCatID, " & tablPfx & "Scat.scatName, " & tablPfx & "Scat.ads FROM " & tablPfx & "Scat WHERE catID = " & catID & " ORDER BY scatName;") If I mod 3 = 1 then Response.Write "" & vbcrlf Response.Write "" & vbcrlf Response.Write "" & vbcrlf I = I + 1 rsCat.MoveNext Loop Response.Write "

" & vbcrlf Response.Write "

" & vbcrlf Response.Write "" & catName & " (" & ads & ")" Response.Write "

" Response.Write "" & vbcrlf Do while not rssCat.EOF sCatID = rssCat(0) scatName = rssCat(1) sads = rssCat(2) Response.Write "" rssCat.MoveNext Loop Response.Write "

" & scatName & " (" & sads & ")

" If I mod 3 = 0 then Response.Write "

" & vbcrlf rsCat.close rssCat.close set rsCat = Nothing set rssCat = Nothing Else: Response.Write "

The Category List is Empty

" End If %>