<% 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 %> <% if not rs.eof then rs.movenext end if %> <% if not rs.eof then rs.movenext end if loop %>
  size=2><%=rs("catname")%> <%if not rs.eof then%> size=2><%=rs("catname")%> <%end if%>
 
 

 

 

Phone No 905-890-1884 Fax 416-352-1366 URL www.kpak.ca E-mail sales@pkak.ca
Copyright © Kpak Canada