<% set db=server.createobject("adodb.connection") set rs=server.createobject("adodb.recordset") db.Open session("SQLConn") '"DSN=imageGallery;","sa","" strSQL="select year, count(*) as mcount from _tblImageGalleries where showGallery='yes' and gallerysite='" & session("gallerysite") & "' group by year" set rs2=db.execute(strsql) myear=request("year") if myear="" then myear="2005" end if %> Show Galleries for: <% while not rs2.eof %> value="<%=rs2("year")%>"><%=rs2("year")%> (<% mc=rs2("mcount") response.write mc if mc<>1 then response.write(" Galleries") else response.write " Gallery" end if %>) <% rs2.movenext wend %>   <% strSQL="select * from _tblImageGalleries where year='" & myear & "' and showGallery='yes' and gallerysite='" & session("gallerysite") & "' order by seqnum" set rs=db.execute(strSQL) while not rs.eof %> "><%=rs("galleryname")%> <% rs.movenext wend %>