<%@ Language=VBScript %> <% if request("group")="" then grp="Pictures-2004" else grp=request("group") end if Application("Pictures_ConnectionString") = "Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=" & Request.ServerVariables("APPL_PHYSICAL_PATH") & "db\LJK_DB.mdb;Mode=Share Deny None;Extended Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Password="""";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="""";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False;User Id=Admin;PASSWORD=;" Application("Pictures_ConnectionTimeout") = 15 Application("Pictures_CommandTimeout") = 30 Application("Pictures_CursorLocation") = 3 Application("Pictures_RuntimeUserName") = "" Application("Pictures_RuntimePassword") = "" Set DBConn = Server.CreateObject("ADODB.Connection") DBConn.ConnectionTimeout = Application("Pictures_ConnectionTimeout") DBConn.CommandTimeout = Application("Pictures_CommandTimeout") DBConn.CursorLocation = Application("Pictures_CursorLocation") DBConn.Open Application("Pictures_ConnectionString"), Application("Pictures_RuntimeUserName"), Application("Pictures_RuntimePassword") Set rsPictures = Server.CreateObject("ADODB.Recordset") Select Case request("year") Case "Other" if request("type")="All" then cSql="select * from events where year([date]) is null" else cSql="select * from events where [type]='" & request("type") & "' and year([date]) is null" end if Case "All" if request("type")="All" then cSql="select * from events where year([date]) is not null order by date desc" else cSql="select * from events where [type]='" & request("type") & "' and year([date]) is not null order by date desc" end if Case Else if request("type")="All" then cSql="select * from events where year([date])=" & request("year") & " order by date desc" else cSql="select * from events where [type]='" & request("type") & "' and year([date])=" & request("year") & " order by date desc" end if End Select Set rsPictures = DBConn.Execute(cSql) if rsPictures.EOF then%>

No items found for this criteria

<%else%> <% do while not rsPictures.EOF%> <%if isnull(rsPictures.Fields("grade_l")) or rsPictures.Fields("grade_l")="" then%> <%else%> <%end if%> <%rsPictures.MoveNext loop end if%>

Event	Date	L	R
<%if rsPictures.Fields("link")<>"" then%> "><%=rsPictures.Fields("title")%> <%else%> <%=rsPictures.Fields("title")%> <%end if%>  (<%=rsPictures.Fields("type")%>)	<%=rsPictures.Fields("date")%>			<%=rsPictures.Fields("grade_l")%>	<%=rsPictures.Fields("grade_r")%>