<% 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     Year     Selected<%end if%>>    Undated     Selected<%end if%>>    ALL     <% y=1970 while y<=cdbl(year(now())) %> <% if isnumeric(myear) then %> <% if cdbl(myear)=y then %> Selected ><%=y%> <%else%> ><%=y%> <% end if%> <%else%> ><%=y%> <%end if%> <% y=y+1 wend %> 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 %>     Category     selected <%end if%>>    ALL     <% rs11.movefirst while not rs11.eof accountid=rs11("Accountid") accountname=rs11("Accountname") %> <% if ucase(accountid)=ucase(mcategory) then %> Selected><%=accountname%> <%else%> ><%=accountname%> <%end if%> <% rs11.movenext wend %> <% 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     <%=myr%> ------------------------------------------------------------------------------------------------------------------------------------------------