|
| |
 |
|
 |
| |
|
<%
mcategory=request.QueryString("mcat")
myear=request.QueryString("myear")
mcategory=request.QueryString("mcat")
myear=request.QueryString("myear")
if not isnumeric(myear) then
myear="all"
end if
if ucase(trim(mcategory))="" or ucase(trim(mcategory))="CATEGORY" or ucase(trim(mcategory))="ALL" then
mcategory="all"
end if
msf=1
msf2=1
if request.querystring("msf")="" then
msf=1
msf2=1
else
if isnumeric(request.querystring("msf")) then
msf=request.querystring("msf")
msf2=request.querystring("msf")
else
msf=1
msf2=1
end if
end if
%>
|
<% if myear="all" or trim(ucase(mcategory))="CATEGORY" or trim(ucase(mcategory))="ALL"then
else
%>
<%end if%>
|
| |
|
<%
if trim(ucase(mcategory))="ALL" or trim(ucase(mcategory))="CATEGORY" then
else
Set Conn1 = Server.CreateObject("ADODB.Connection")
Conn1.Open strcon
set rs11=server.createobject("Adodb.recordset")
rs11.cursortype=adopenstatic
'RS11.CursorLocation = 3
'rs11.pagesize=12
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
end if
%>
|
|
| |
<%
msub=request.QueryString("msub")
if msub="" and ucase(mcategory)="EXPERIMENT1" then
if myear="all" then
sqltype="select * from project_master where ucase(accounttype)='"&ucase(mcategory)&"' and ucase(accountart)=ucase('Hassanshareef') order by accountsubtype,year(accountdate),accountdate desc"
elseif myear=0 then
sqltype="select * from project_master where ucase(accounttype)='"&ucase(mcategory)&"' and ucase(accountart)=ucase('Hassanshareef') order by accountsubtype,year(accountdate),accountdate desc"
else
sqltype="select * from project_master where ucase(accounttype)='"&ucase(mcategory)&"' and year(accountdate)="&myear&" and ucase(accountart)=ucase('Hassanshareef') order by accountsubtype,year(accountdate),accountdate desc"
end if
Set Conn1 = Server.CreateObject("ADODB.Connection")
Conn1.Open strcon
set rs11=server.createobject("Adodb.recordset")
rs11.cursortype=adopenstatic
rs11.open sqltype,conn1,2,2
if rs11.bof and rs11.eof then
else
rs11.movefirst
atp=""'rs11("Accountsubtype")
while not rs11.eof
accountdate=rs11("Accountdate")
accountphoto="./driver/project/"&rs11.fields("accountphoto")
accountsubtype=rs11("Accountsubtype")
if not ucase(accountsubtype)=ucase(atp) then
atp=accountsubtype
%>
<% 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
else
%>
<%
sqltype="select * from q1 where accountok='Y' and ( not ucase(accounttype)='PUBLICATIONS') and (not ucase(accounttype)='ARTIST' ) and ucase(accountart)=ucase('Hassanshareef') "
sqltype=sqltype&" and ( not ucase(accounttype)='MOVIECLIPS' )"
if not ucase(mcategory)="ALL" then
sqltype=sqltype&" and ucase(accounttype)='"&ucase(mcategory)&"' "
end if
if not myear="all" then
if myear=0 then
'sqltype=sqltype&"and ucase(accountundate)='Y'"
ELSE
sqltype=sqltype&"and year(accountdate)="&myear&" "
end if
end if
mrecent=request.QueryString("mrecent")
if mrecent="Y" then
myearnow=year(now())
mmonthnow=month(now())+1
sqltype=sqltype&"and ( (year(accountdate)="&myearnow&" ) "
sqltype=sqltype&"or( year(accountdate)="&myearnow-1&" "
sqltype=sqltype&"and month(accountdate)>"&mmonthnow&")) "
end if
if ucase(accounttype)="EXPERIMENT1" then
sqltype=sqltype&" and ucase(Accountsubtype)='"&ucase(msub)&"' "
end if
'if ucase(accounttype)="CARICATURE" then
sqltype=sqltype&" order by fid2"'
'sqltype=sqltype&" order by accountdate "
'end if
'response.write sqltype
Set Conn1 = Server.CreateObject("ADODB.Connection")
Conn1.Open strcon
set rs11=server.createobject("Adodb.recordset")
rs11.cursortype=adopenstatic
RS11.CursorLocation = 3
rs11.pagesize=12
' response.Write(sqltype)
rs11.open sqltype,conn1,2,2
m=0
if rs11.bof and rs11.eof then
%>
Coming soon !!!
<%
else
rs11.absolutepage=cint(msf)
t=1
msf2=msf
pagecount=rs11.pagecount
mmf=0
while not rs11.eof and t<=rs11.pagesize
mmf=mmf+1
'response.Write(cdbl(mid(rs11("accountname"),3,3)))
accountdate=rs11("Accountdate")
accountphoto="./driver/project/"&rs11.fields("accountphoto")
accountname=rs11("Accountname")
accountids=rs11("Accountid")
fd2=rs11("fid2")
'response.Write fd2
m=m+1
if m=1 then
%>
<%
end if
%>
 |
<%
accountnames=accountname
if len(accountname)>35 then '1
if instr(1,accountname,"=") >1 then '2
accountnames=replace(accountnames,"=","
=")
elseif instr(1,accountname,"&") >1 then
accountnames=replace(accountnames,"&","
&")
else
accountnamen=instr(12,accountname," ")
if accountnamen=0 then '3
accountnamen=instr(10,accountname," ")
end if
if accountnamen=0 then'3
accountnamen=instr(7,accountname," ")
end if
if accountnamen=0 then '3
accountnamen=20
end if
accountnames=left(accountname,accountnamen)
accountnamefd=right(accountname,len(accountname)-len(accountnames))
if len(accountnamefd)>20 then '3
mla=len(accountnames)
mp=instr(mla,accountnamefd," ")
if mp=0 then '4
mp=instr(mla+10,accountnamefd," ")
end if
if mp=0 then '4
mp=instr(mla+7,accountnamefd," ")
end if
if mp=0 then '4
mp=mla+15
end if
accountnames1=left(accountnamefd,mp)
accounnamefd1=right(accountnamefd,len(accountnamefd)-len(accountnames1))
accountnamefd=accountnames1&"
"&accountnamefd1
end if '3
accountnames=accountnames&"
"&accountnamefd
end if '2
elseif len(accountname)>20 then
accountnamen=instr(12,accountname," ")
if accountnamen=0 then
accountnamen=instr(10,accountname," ")
end if
if accountnamen=0 then
accountnamen=instr(7,accountname," ")
end if
if accountnamen=0 then
accountnamen=20
end if
accountnames=left(accountname,accountnamen)
accountnames=accountnames&"
"&right(accountname,len(accountname)-len(accountnames))
end if
'response.Write(accountnamen)
%>
<%=accountnames%> |
| |
|
<%
if m=3 then
m=0
%>
<%
end if
%>
<%
rs11.movenext
t=t+1
wend
end if
if not rs11.eof then
mmf=17
else
mmf=9
end if
set rs11=nothing
set conn1=nothing
end if
%>
<%
if (msub="" and ucase(mcategory)="EXPERIMENT1" ) then
else
if cdbl(msf)>1 or mmf=17 then
%>
|
<% if cint(msf2)>1 then %>
<% if mrecent="" then %>
Previous
<%else%>
Previous
<% end if%>
<% end if%>
|
 |
<%
for a=1 to pagecount
if cint(a)=cint(msf2) then
if mrecent="" then
%>
<% else %>
<%
end if
else
if mrecent="" then
%>
<% else%>
<% end if%>
<%end if%>
<%next%>
|
|
<% if cint(msf2)
<% if mrecent="" then %>
|
<% elseif mrecent="Y" then %>
|
<% end if%>
<% end if%>
<%
end if
end if
%>
|
<% if mrecent="" then %>
| Sort By |
<%
Set Conn1 = Server.CreateObject("ADODB.Connection")
Conn1.Open strcon
set rs11=server.createobject("Adodb.recordset")
rs11.cursortype=adopenstatic
sqltype="select * from project_master where accountok='Y' and( not ucase(accounttype)='PUBLICATIONS') and (not ucase(accounttype)='ARTIST' ) "
sqltype=sqltype&" and ( not ucase(accounttype)='MOVIECLIPS' )"
sqltype=sqltype&"and ucase(accountart)='HASSANSHAREEF' "
if not ucase(mcategory)="ALL" then
sqltype=sqltype&" and ucase(accounttype)='"&ucase(mcategory)&"' "
end if
'if not myear="all" then
'if myear=0 then
'sqltype=sqltype&"and ucase(accountundate)='Y'"
'ELSE
'sqltype=sqltype&"and year(accountdate)="&myear&" and ucase(accountundate)='N' "
'end if
'end if
if ucase(accounttype)="EXPERIMENT1" then
sqltype=sqltype&" and ucase(Accountsubtype)='"&ucase(msub)&"' "
end if
sqltype=sqltype&" 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")
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
%>
<% end if %>
|
| ------------------------------------------------------------------------------------------------------------------------------------------------ |
|
|
 |
|
|
 |
|
 |
|
|
|
 |
|
