<% Option Explicit %> List

 

<% CategoryID = Request("CategoryID") strSQL = "SELECT PublicationOrders.* FROM PublicationOrders WHERE SubCategories LIKE '%" & CategoryID & "%' AND Language LIKE '%English%';" rsDocument.Open strSQL, adoCon Do While not rsDocument.EOF %> <% rsDocument.MoveNext Loop rsDocument.Close %>
<% = rsDocument("Title") %> === " target="NEW_WIN"><% = rsDocument("URL") %>
<% Set rsDocument = Nothing Set adoCon = Nothing %>