<%set con = server.createobject("adodb.connection") con.open Datasource set rs = server.createobject("adodb.recordset") set rs1 = server.createobject("adodb.recordset") set rs10 = server.createobject("adodb.recordset")%>
  Events  
     
  <%If py<>"" or py<>0 then rs.open "select count(*) from tblevents where eyear='"&py&"'",con mycount=rs(0) rs.close If mycount>0 Then rs.open "select * from tblevents where eyear='"&py&"' order by eid desc",con view_count=1 do while not rs.EOF linetxt=rs("description")%> <% If CStr(view_count) = request.Form("vcount") Then rs1.open"select * from tblevents where eid='"&request.Form("view2")&"'",con%> <%rs1.close End if%> <%view_count=view_count+1 rs.MoveNext loop rs.close%> <%Else%> <%End If%> <% End if%>
Event Year
<%py=request.Form("pastyear") if py="" then py=1900 end if%>
Title: <%=rs("title")%>
Date: <%=rs("eday")%>-<%=rs("emonth")%>-<%=rs("eyear")%>
Description: <%=linetxt%>
,<%=view_count%>)">more
<%If rs1("path1")<>"" then%>" width=75 height=75 border=0 onclick="myFull(<%=rs1("eid")%>,1);return false"><%end if%> <%If rs1("path2")<>"" then%>" width=75 height=75 border=0 onclick="myFull(<%=rs1("eid")%>,2);return false"><%end if%> <%If rs1("path3")<>"" then%>" width=75 height=75 border=0 onclick="myFull(<%=rs1("eid")%>,3);return false"><%end if%> <%If rs1("path4")<>"" then%>" width=75 height=75 border=0 onclick="myFull(<%=rs1("eid")%>,4);return false"><%end if%>
<%If rs1("path5")<>"" then%>" width=75 height=75 border=0 onclick="myFull(<%=rs1("eid")%>,5);return false"><%end if%> <%If rs1("path6")<>"" then%>" width=75 height=75 border=0 onclick="myFull(<%=rs1("eid")%>,6);return false"><%end if%> <%If rs1("path7")<>"" then%>" width=75 height=75 border=0 onclick="myFull(<%=rs1("eid")%>,7);return false"><%end if%> <%If rs1("path8")<>"" then%>" width=75 height=75 border=0 onclick="myFull(<%=rs1("eid")%>,8);return false"><%end if%>
No events available for this year
   
 
   
 
     
<%con.close%>