<%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")%>
  Artist Exhibitions  
     
  <%pmonth=month(date) pyear=year(date) pday=day(date) rs.open "select count(*) from tblexhibitions where sday<='"&pday&"' and smonth='"&pmonth&"' and syear='"&pyear&"'",con mycount=rs(0) rs.close If mycount>0 then rs.open "select * from tblexhibitions where sday<='"&pday&"' and smonth='"&pmonth&"' and syear='"&pyear&"' order by eid desc",con view_count=1 do while not rs.EOF linetxt=rs("description") 'linetxt=Mid(rs("description"),1,150)%> <%If CStr(view_count)=request.Form("vcount1") Then rs1.open"select * from tblexhibitions where eid='"&request.Form("view")&"'",con%> <%rs1.close End if%> <%view_count=view_count+1 rs.MoveNext loop rs.close%> <%End if%>
Ongoing
Exhibition Type: <%if rs("aid")<>"" then rs1.open "select fname,lname from tblartist where aid='"&rs("aid")&"'",con %>Solo<%else%>Group<%end if%>
Artist/s: <%If rs("aid")<>"" then%>"><%=rs1("fname")%> <%=rs1("lname")%><%rs1.close%> <%else%><%=rs("gnames")%><%End if%>
Title: <%=rs("title")%>
Date: ( From <%=rs("sday")%>-<%=rs("smonth")%>-<%=rs("syear")%> To <%=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%>
 
  <%rs.open "select count(*) from tblexhibitions where smonth>'"&pmonth&"' and syear>='"&pyear&"'",con mycount=rs(0) rs.close If mycount>0 then rs.open "select * from tblexhibitions where smonth>'"&pmonth&"' and syear>='"&pyear&"' order by eid desc",con view_count=1 do while not rs.EOF linetxt=Mid(rs("description"),1,150)%> <%If CStr(view_count)=request.Form("vcount2") Then rs1.open"select * from tblexhibitions where eid='"&request.Form("view1")&"'",con%> <%rs1.close End if%> <%view_count=view_count+1 rs.MoveNext loop rs.close%> <%End if%>
Forthcoming
Exhibition Type: <%if rs("aid")<>"" then rs1.open "select fname,lname from tblartist where aid='"&rs("aid")&"'",con %>Solo<%else%>Group<%end if%>
Artist/s: <%If rs("aid")<>"" then%>"><%=rs1("fname")%> <%=rs1("lname")%><%rs1.close%> <%else%><%=rs("gnames")%><%End if%>
Title: <%=rs("title")%>
Date: ( From <%=rs("sday")%>-<%=rs("smonth")%>-<%=rs("syear")%> To <%=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%>
 
  <%If py<>"" or py<>0 then rs.open "select count(*) from tblexhibitions where smonth<'"&pmonth&"' and syear='"&py&"'",con mycount=rs(0) rs.close If mycount>0 Then rs.open "select * from tblexhibitions where smonth<'"&pmonth&"' and syear='"&py&"' order by eid desc",con view_count=1 do while not rs.EOF linetxt=Mid(rs("description"),1,150)%> <% If CStr(view_count) = request.Form("vcount") Then rs1.open"select * from tblexhibitions 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%>
Past
<%py=request.Form("pastyear") if py="" then py=1900 end if%>
Exhibition Type: <%if rs("aid")<>"" then rs1.open "select fname,lname from tblartist where aid='"&rs("aid")&"'",con %>Solo<%else%>Group<%end if%>
Artist/s: <%If rs("aid")<>"" then%> "><%=rs1("fname")%> <%=rs1("lname")%> <%rs1.close%> <%else%><%=rs("gnames")%><%End if%>
Title: <%=rs("title")%>
Date: ( From <%=rs("sday")%>-<%=rs("smonth")%>-<%=rs("syear")%> To <%=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 exhibition available for this year
   
 
   
 
     
<%con.close%>