<% 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 %>
 
 
 
 
<% 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)='LINK' " rs11.open sqltype,conn1,2,2 if rs11.bof and rs11.eof then else m=0 while not rs11.eof m=m+1 aname=rs11("accountname") alink=rs11("Accountarticle") %> <% rs11.movenext wend end if set rs11=nothing set conn1=nothing %>
Sr No. Title
Link
<%=m%>
 <%=aname%>