<% Session.Timeout=30 %> <% strcon= "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("./ewpf/dbcls.mdb")&"" %>
<% Set con = Server.CreateObject("ADODB.connection") con.open strcon SET rs=Server.CreateObject("ADODB.Recordset") sqlst="SELECT accountid,accountname,accountlink FROM artist_master order by accountname,accountorder,accountorder,tid " rs.open sqlst,con if rs.bof and rs.eof then ELSE x=0 while not rs.eof x=x+1 artid=rs(0) artname=rs(1) martlink1=rs(2) %> <% if x>4 then x=1 end if if x=1 then %> <% end if %> <% if x= 4 then %> <% end if%> <% rs.movenext wend end if set rs=nothing %>
» <%=artname%>
<% SET rs=Server.CreateObject("ADODB.Recordset") sqlst="SELECT accountid,accountname FROM category_master order by accountorder,accountname,tid " rs.open sqlst,con if rs.bof and rs.eof then ELSE x=0 while not rs.eof x=x+1 catid=rs(0) catname=rs(1) %> <% if x>4 then x=1 end if %> <% rs.movenext wend end if set rs=nothing %>
» <%=catname%>
<% SET rs=Server.CreateObject("ADODB.Recordset") sqlst="SELECT accountid,accountname FROM projcat_master order by accountorder,accountname,tid " rs.open sqlst,con if rs.bof and rs.eof then ELSE x=0 while not rs.eof x=x+1 pid=rs(0) pname=rs(1) %> <% if x>4 then x=1 end if %> <% rs.movenext wend end if set rs=nothing %>
» <%=pname%>
<% SET rs=Server.CreateObject("ADODB.Recordset") sqlst="SELECT accountid,accountname FROM mediacat_master order by accountorder,accountname,tid " rs.open sqlst,con if rs.bof and rs.eof then ELSE x=0 while not rs.eof x=x+1 mdid=rs(0) mdname=rs(1) %> <% if x>4 then x=1 end if %> <% rs.movenext wend %> <% end if set rs=nothing %>
» <%=mdname%>
» Collectors Details
» Information
» Feedback
» Location Map #1
» Location Map #2
» Associates
   
 
The Flying House (TFH) is a non-profit institution for promoting contemporary Emirati artists. Founded in December 2007, TFH has a collection of artworks which are part of the Emirati contemporary art movement; dating from the establishment of the United Arab Emirates (UAE) to the present day.
+ Read More | View Presentation
<% k1="Sponsers " k2=" " SET rs=Server.CreateObject("ADODB.Recordset") sqlst="SELECT count(*) FROM sponser_master where ucase(accountcategory)='OTHER' " rs.open sqlst,con if rs.bof and rs.eof then ELSE if not rs(0)=0 then k1="Main Sponsors" k2="Other Sponsors" end if end if set rs=nothing %>
<%=k1%> <% SET rs=Server.CreateObject("ADODB.Recordset") sqlst="SELECT accountid,accountname,accountphoto1,accountlink FROM sponser_master where ucase(accountcategory)='MAIN' order by accountorder " rs.open sqlst,con if rs.bof and rs.eof then ELSE x=0 while not rs.eof and x <3 x=x+1 lid=rs(0) lname=rs(1) lpt="./driver/sponser1/"&rs("accountphoto1") llink=rs(3) %> <% rs.movenext wend end if set rs=nothing %>
<%=k2%> <% SET rs=Server.CreateObject("ADODB.Recordset") sqlst="SELECT accountid,accountname,accountphoto1,accountlink FROM sponser_master where ucase(accountcategory)='OTHER' order by accountorder " rs.open sqlst,con if rs.bof and rs.eof then ELSE x=0 while not rs.eof and x <6 x=x+1 lid=rs(0) lname=rs(1) lpt="./driver/sponser1/"&rs("accountphoto1") llink=rs(3) %> <% rs.movenext wend end if set rs=nothing set con=nothing %>