<%
'Response.Write full_banner
'Response.End
'To get Country Name''''''==========================================================================================
set rsCategory = Server.CreateObject("ADODB.recordset")
sstr = "Select Distinct(Category) from tbl_link_category order by Category"
rsCategory.Open(sstr),con,1,3
%>
<%=title_text%>
<%=header_text%>
<%
count=0
while not rsCategory.EOF
set rsCount = Server.CreateObject("ADODB.recordset")
sstr = "Select * from tbl_links where Link_Category='"&rsCategory("Category")&"' and Reciprocal='Yes'"
rsCount.Open(sstr),con,1,3
if count mod 3=0 Then%>
