<% Response.Cookies("tgDate") = now()%> <% Conn_String = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("link.mdb") Set Conn=Server.CreateObject("ADODB.Connection") Conn.Open Conn_String sql = "select * from cat order by cat" set rs = Conn.Execute (sql) %> <% Do while NOT rs.EOF ColNum = 1 Do while ColNum < 3 %> <% if NOT rs.EOF then rs.MoveNext end if ColNum = ColNum + 1 if NOT rs.EOF then %> <% end if ColNum = ColNum + 1 Loop %> <% if NOT rs.EOF then rs.MoveNext end if Loop %>

&cat=<%=server.urlencode(rs("cat"))%>"><%=rs("cat")%> <% ParentID = rs("id") sqlcount = "SELECT count(url) FROM link2 where parentid='" & rs("id") & "' and show=yes" Set RScounts = Conn.Execute(sqlcount) rcounts = RScounts(0) Response.Write ("(" & rcounts & ")") Response.Write "
" subsql = "SELECT top 3 * FROM subcat where catID='" & ParentID & "' order by subcatname" set rssubcat = conn.Execute(subsql) count = rssubcat.RecordCount count = 1 do while not rssubcat.EOF and count<=3 %> &parentID=<%=rs("id")%>&parentname=<%=server.urlencode(rs("cat"))%>&Subname=<%=server.urlencode(rssubcat("Subcatname"))%>"><%=rssubcat("subcatname")%> <% rssubcat.movenext loop %>

<% rs.close Conn.Close set Conn = nothing %>