<% strCategory= Request.QueryString If strCategory= "" or IsNull(strCategory) or IsEmpty(StrCategory) then %> <% Else Select Case strCategory Case "CAB" SQL1= "SELECT * FROM DisplayLinks WHERE Category= 'CAB'" Case "COM" SQL1= "SELECT * FROM DisplayLinks WHERE Category= 'COM'" Case "PC" SQL1= "SELECT * FROM DisplayLinks WHERE Category= 'PC'" Case "GEN" SQL1= "SELECT * FROM DisplayLinks WHERE Category= 'GEN'" Case "MAC" SQL1= "SELECT * FROM DisplayLinks WHERE Category= 'MAC'" Case "MAG" SQL1= "SELECT * FROM DisplayLinks WHERE Category= 'MAG'" Case "MAT" SQL1= "SELECT * FROM DisplayLinks WHERE Category= 'MAT'" Case "MIS" SQL1= "SELECT * FROM DisplayLinks WHERE Category= 'MIS'" Case "ORG" SQL1= "SELECT * FROM DisplayLinks WHERE Category= 'ORG'" Case "All" SQL1= "SELECT * FROM DisplayLinks" Case Else SQL1= "SELECT * FROM DisplayLinks" End Select 'SQL1= "SELECT * FROM DisplayLinks" set conn = server.createobject ("adodb.connection") conn.open strDataSourceLinks set RSLinks = conn.Execute (SQL1) %>
<% End If %>
Please select a category, or an action...
         
<%If RSLinks.EOF then %> <% End If %> <% Do Until RSLinks.EOF Select Case RSLinks("Location") Case "A" strLocation= "AU" Case "N" strLocation= "NZ" Case Else strLocation= "" End Select %> <% %> <% RSLinks.MoveNext Loop conn.Close Set conn = Nothing %>
No links found in this category.
Name & Description  

Town 

Visits
"><% response.write RSLinks("Name")%> <%= strLocation%>  <% response.write RSLinks("Hits")%>
<% response.write RSLinks("Description")%>.


 
 
Add Your Link | Edit Your Link | Delete Your Link