<% mmyes="N" mcategory=request.QueryString("mcat") myear=request.QueryString("myear") if not isnumeric(myear) or myear="" then myear="all" elseif myear=0 then mmyes="Y" end if if ucase(trim(mcategory))="CATEGORY" then mcategory="all" end if %>
SEARCH PROJECTS: By Year By Category <% Set Conn1 = Server.CreateObject("ADODB.Connection") Conn1.Open strcon set rs11=server.createobject("Adodb.recordset") rs11.cursortype=adopenstatic sqltype="select * from type_master where ucase(accounttype)='ARTWORK'" rs11.open sqltype,conn1,2,2 if rs11.bof and rs11.eof then else %> <% end if set conn1=nothing %>
 
  <% 'mcategory=request.QueryString("mcat") %>
 
 
 
<% Set Conn1 = Server.CreateObject("ADODB.Connection") Conn1.Open strcon set rs11=server.createobject("Adodb.recordset") rs11.cursortype=adopenstatic sqltype="select * from type_master where ucase(accountid)='"&ucase(mcategory)&"'" rs11.open sqltype,conn1,2,2 if rs11.bof and rs11.eof then else mdesc=rs11("Accountdesc") %> <% end if set rs11=nothing set conn1=nothing %>
 
<% Set Conn1 = Server.CreateObject("ADODB.Connection") Conn1.Open strcon set rs11=server.createobject("Adodb.recordset") rs11.cursortype=adopenstatic sqltype="select * from project_master where ucase(accounttype)='"&ucase(mcategory)&"' and ucase(accountart)='HASSANSHAREEF'and (not ucase(accounttype)='ARTIST' )order by year(accountdate),accountdate desc" rs11.open sqltype,conn1,2,2 myr=1970 m=0 if rs11.bof and rs11.eof then %> Coming soon !!! <% else rs11.movefirst myr=year(rs11("accountdate")) while not rs11.eof accountdate=rs11("Accountdate") accountphoto="./driver/project/"&rs11.fields("accountphoto") accountname=rs11("Accountname") accountsubtype=rs11("Accountsubtype") if cdbl(year(accountdate)) > cdbl(myr) then myr=cdbl(year(accountdate)) end if if cdbl(year(accountdate))=cdbl(myr) then %> <% m=m+1 if m=1 then %> <% end if %> <% if m=3 then m=0 %> <% end if myr=cdbl(myr)+1 end if %> <% rs11.movenext wend end if set rs11=nothing set conn1=nothing %>
<%=myr%>
 
<% Set Conn1 = Server.CreateObject("ADODB.Connection") Conn1.Open strcon set rs11=server.createobject("Adodb.recordset") rs11.cursortype=adopenstatic sqltype="select * from project_master where ucase(accounttype)='"&ucase(mcategory)&"' and ucase(accountart)='HASSANSHAREEF' and (not ucase(accounttype)='ARTIST' ) order by year(accountdate),accountdate desc" rs11.open sqltype,conn1,2,2 myr=1970 m=0 if rs11.bof and rs11.eof then else %> <% rs11.movefirst myr=year(rs11("accountdate")) while not rs11.eof accountdate=rs11("Accountdate") if cdbl(year(accountdate)) > cdbl(myr) then myr=cdbl(year(accountdate)) end if if cdbl(year(accountdate))=cdbl(myr) then %> <% m=m+1 if m=1 then %> <% end if %> <% if m=3 then m=0 %> <% end if myr=cdbl(myr)+1 end if %> <% rs11.movenext wend %> <% end if set rs11=nothing set conn1=nothing %>
Sort By    
------------------------------------------------------------------------------------------------------------------------------------------------