Photo Gallery - Select a Category:

<% set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = db_str rs.Source = "Select *, (Select Count(ProjectID) from tblProjects where GroupID = tblProductGroups.GroupID) as Num from tblProductGroups order by GroupName ASC" rs.Open Do While Not rs.EOF %>
• &n=<%=rs("GroupName")%>"><%=rs("GroupName")%> (<%=rs("Num")%>)
  
  
<% rs.MoveNext Loop rs.Close set rs = Nothing %>