| |
<%
SQL = "select * from tblLINKCAT "
sql = sql & " ORDER BY LINKCAT"
set rsLINKCAT = my_Conn.Execute (SQL)
do while not rsLINKCAT.eof
%>
<%=rsLINKCAT("LINKCAT")%>
<%
SQL = "select * from tblLINKS "
sql = sql & " WHERE L_CAT = " & rsLINKCAT("LINKCAT_ID") & ""
sql = sql & " AND L_APPROVED > 0"
sql = sql & " ORDER BY L_SHOWN DESC"
set rsLINK = my_Conn.Execute (SQL)
do while not rsLINK.eof
%>
<%=rsLINK("L_CODE")%>
<%rsLINK.movenext
loop%>
<%rsLINKCAT.movenext
loop%>
|
|
|
