% set rs = server.CreateObject("adodb.recordset")
rs.open "select * from RecCats order by catid,class",cnd,3,3
%>
<%
'catid = request.QueryString("catid")
'set rs = server.CreateObject("adodb.recordset")
'rs.open "select catname from reccats where catid=" & catid,cn,3,3
'catname = rs(0)
'rs.close
'rs.open "select * from RecSites where catid=" & catid & " and status = 'Y' ", cn,3,3
%>
Welcome To The Medical Supplies's Web Directory
| Web Directory |
|
<%
do while not rs.eof
count = 0
%>
<% if rs("class") = 1 then
clr="#191970"
elseif rs("class") = 2 then
clr="#8b0000"
else
clr = "2f4f4f"
end if %>
|
|
size=2><%=rs("catname")%> |
|
<%
if not rs.eof then
rs.movenext
end if
%>
<%if not rs.eof then%>
size=2><%=rs("catname")%>
<%end if%>
|
<%
if not rs.eof then
rs.movenext
end if
loop
%>
|
|
|
|
|
|
|