<% MCat = 0 MCat = Request.Form("MCat") If CStr(MCat) = "" Then MCat = Request.QueryString("MCat") End If Cat = Request.QueryString("C") If CStr(Cat) = "" Then Cat = "%" End If %>
 
Home > Publications
Publications
<% If Not Cstr(MCat) = "" Then%> <% End If %>
   
Browse Search Results
Categories
Title      
    <% 'Dimension variables Dim adoCon 'Holds the Database Connection Object Dim rsDiv 'Holds the recordset for the records in the database Dim strSQL 'Holds the SQL query to query the database Dim CatId 'Create an ADO connection object Set adoCon = Server.CreateObject("ADODB.Connection") 'Set an active connection to the Connection object using a DSN-less connection adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/Data/employee.mdb") CatId = Request.QueryString("C") If (CatId="") Then CatId = "5" End If 'Create an ADO recordset object Set rsDiv = Server.CreateObject("ADODB.Recordset") 'Initialise the strSQL variable with an SQL statement to query the database strSQL = "SELECT * FROM pubcategory WHERE ClusterId = " & MCat & " ORDER BY SortOrder" 'Open the recordset with the SQL query rsDiv.Open strSQL, adoCon 'Loop through the recordset Do While not rsDiv.EOF %>
  • &MCat=<%=MCat%>"><%=rsDiv("Category")%>
    • <% rsDiv.MoveNext() Loop 'Reset server objects rsDiv.Close Set rsDiv = Nothing %>
<% Set rsDiv1 = Server.CreateObject("ADODB.Recordset") 'Initialise the strSQL variable with an SQL statement to query the database strSQL = "SELECT P.PubId, P.Title, P.date, P.Link FROM publication P INNER JOIN pubcategory PC ON PC.CatId = P.Category WHERE PC.ClusterId = " & MCat & " AND P.Category LIKE '"&Cat&"' ORDER BY P.SortOrder DESC" 'Open the recordset with the SQL query rsDiv1.Open strSQL, adoCon bgCol = "#FFFFFF" 'Loop through the recordset Do While not rsDiv1.EOF If bgCol = "#FFFFFF" Then bgCol = "#F2F2F2" Else bgCol = "#FFFFFF" End If %> <% rsDiv1.MoveNext() Loop 'Reset server objects rsDiv1.Close Set rsDiv1 = Nothing %>
<%=rsDiv1("Title")%> <% If Not (rsDiv1("Date") = "") Then %> <%=rsDiv1("Date")%> <% End If %> ', 'mywindow','menubar=0,resizable=1,scrollbars=1,width=540,height=300');" >Details <% If Not (rsDiv1("Link") = "") Then %> " target="_blank">Download <% End If %>
       
       
       
   
 
 
 
 
Trans Image
Trans Image    
Asia-Pacific Facts and Figures  
Transparent Image
Opinion Editorials / Interviews / Articles  
Transparent Image
Media Advisories and Press Releases  
Transparent Image
Media Coverage  
Transparent Image
Resources for Journalists  
Transparent Image
Profile of the Regional Manager