<!-- #include file="i_utils.asp" -->
<%
'::::::::::::::::::: Copyright 2000-2002 Iatek. All Rights Reserved. ::::::::::::::::::
' Generated by ASPapp.com. More information can be obtained at http://www.aspapp.com 


':::: page structure

'-- variables are declared (dim)
'-- the "request_" and "validate_" subroutines for form output
'-- the "db_" subroutines for database SQL statements
'-- key database fields are requested
'-- the action variable is requested and handled
'-- main section (this ignores value of action variable)
'-- HTML begins: The 'i_header.asp' include file is displayed
'-- forms and content are displayed
'-- HTML ends: The 'i_footer.asp' include file is displayed
'-- close database resources

':::: recommended DATABASE SCHEMA for this page 

' Cats: 
	' CatID: int identity|int: 4
	' CatTypeId: int identity|int: 4
	' Cat: text|varchar: 50
	' ParentId: int identity|int: 4
	' RelatedId: int identity|int: 4
	' Description: longtext|memo: 536870910


' Links: 
	' LinkId: int identity|int: 4
	' user_id: int identity|int: 4
	' Title: text|varchar: 60
	' URL: text|varchar: 120
	' Description: longtext|memo: 536870910
	' LinkTypeID: int identity|int: 4
	' CatID: int identity|int: 4
	' RegionID: int identity|int: 4
	' Impressions: int identity|int: 4
	' ClickThrus: int identity|int: 4
	' Email: text|varchar: 50
	' DateAdded: datetime: 8
	' DateExpire: datetime: 8
	' Priority: smallint: 2
	' DownloadURL: text|varchar: 120
	' DownloadFee: text|varchar: 40
	' AvgRating: decimal: 19
	' Ratings: int identity|int: 4
	' Display: byte: 1


' LinkTypes: 
	' LinkTypeID: int identity|int: 4
	' LinkType: text|varchar: 50


dim keywords
dim search_sql
dim Cat
dim Cat1
dim Cat2
dim Cat3
dim CatID
dim CatId1
dim CatId2
dim CatId3
dim ParentId
dim CatsList
dim title_sql
dim SubCatId
dim SubCat
dim view_rootcats_sql
dim view_subcats_sql
dim DownloadURL
dim Email
dim LinkID
dim URL
dim Title
dim LinkType
dim Description
dim DateAdded
dim Priority
dim AvgRating
dim ClickThrus
dim Impressions
dim DownloadFee
dim view_links_sql
dim RelatedCat
dim RelatedCatId
dim view_relatedcats_sql

sub request_search
''' request form inputs from this form
	keywords = request("keywords")
end sub
sub request_title
''' request form inputs from this form
	Cat = request("Cat")
	Cat1 = request("Cat1")
	Cat2 = request("Cat2")
	Cat3 = request("Cat3")
	CatID = request("CatID")
	CatId1 = request("CatId1")
	CatId2 = request("CatId2")
	CatId3 = request("CatId3")
	ParentId = request("ParentId")
	CatsList = request("CatsList")
end sub
sub request_view_rootcats
''' request form inputs from this form
	SubCatId = request("SubCatId")
	SubCat = request("SubCat")
	Cat = request("Cat")
	CatID = request("CatID")
end sub
sub request_view_subcats
''' request form inputs from this form
	SubCatId = request("SubCatId")
	SubCat = request("SubCat")
	Cat = request("Cat")
	CatID = request("CatID")
end sub
sub request_view_links
''' request form inputs from this form
	DownloadURL = request("DownloadURL")
	Email = request("Email")
	LinkID = request("LinkID")
	URL = request("URL")
	Title = request("Title")
	Cat = request("Cat")
	LinkType = request("LinkType")
	Description = request("Description")
	DateAdded = request("DateAdded")
	Priority = request("Priority")
	AvgRating = request("AvgRating")
	ClickThrus = request("ClickThrus")
	Impressions = request("Impressions")
	CatID = request("CatID")
	DownloadFee = request("DownloadFee")
end sub
sub request_view_relatedcats
''' request form inputs from this form
	Cat = request("Cat")
	CatID = request("CatID")
	RelatedCat = request("RelatedCat")
	RelatedCatId = request("RelatedCatId")
end sub

sub validate_search
''' request and validate data entered from this form
	keywords = trim(request("keywords"))
end sub
sub validate_title
''' request and validate data entered from this form
	Cat = trim(request("Cat"))
	Cat1 = trim(request("Cat1"))
	Cat2 = trim(request("Cat2"))
	Cat3 = trim(request("Cat3"))
	CatID = trim(request("CatID"))
	CatId1 = trim(request("CatId1"))
	CatId2 = trim(request("CatId2"))
	CatId3 = trim(request("CatId3"))
	ParentId = trim(request("ParentId"))
	CatsList = trim(request("CatsList"))
end sub
sub validate_view_rootcats
''' request and validate data entered from this form
	SubCatId = trim(request("SubCatId"))
	SubCat = trim(request("SubCat"))
	Cat = trim(request("Cat"))
	CatID = trim(request("CatID"))
end sub
sub validate_view_subcats
''' request and validate data entered from this form
	SubCatId = trim(request("SubCatId"))
	SubCat = trim(request("SubCat"))
	Cat = trim(request("Cat"))
	CatID = trim(request("CatID"))
end sub
sub validate_view_links
''' request and validate data entered from this form
	DownloadURL = trim(request("DownloadURL"))
	Email = trim(request("Email"))
	LinkID = trim(request("LinkID"))
	URL = trim(request("URL"))
	Title = trim(request("Title"))
	Cat = trim(request("Cat"))
	LinkType = trim(request("LinkType"))
	Description = trim(request("Description"))
	DateAdded = trim(request("DateAdded"))
	if DateAdded <> "" AND (not isdate(DateAdded)) then
		error_list.add "587105date","Added must be a valid date (MM/DD/YY)."
		b_error = true
	end if
	Priority = trim(request("Priority"))
	AvgRating = trim(request("AvgRating"))
	ClickThrus = trim(request("ClickThrus"))
	Impressions = trim(request("Impressions"))
	CatID = trim(request("CatID"))
	DownloadFee = trim(request("DownloadFee"))
end sub
sub validate_view_relatedcats
''' request and validate data entered from this form
	Cat = trim(request("Cat"))
	CatID = trim(request("CatID"))
	RelatedCat = trim(request("RelatedCat"))
	RelatedCatId = trim(request("RelatedCatId"))
end sub


sub db_select_Title
	Title_sql = "SELECT Cats.CatId, Cats.Cat As Cat, Cats1.Cat As Cat1, Cats1.CatId AS CatId1, Cats2.Cat AS Cat2, Cats2.CatId AS CatId2, Cats3.Cat AS Cat3, Cats3.CatId AS CatId3 FROM (((Cats As Cats3 left JOIN Cats As Cats2 ON Cats3.ParentId = Cats2.CatId) left JOIN Cats As Cats1 ON Cats2.ParentId = Cats1.CatId) LEFT JOIN Cats As Cats ON Cats1.ParentId = Cats.CatId) WHERE Cats3.CatId = " & to_sql(CatID,"number") & ""
end sub
sub db_delete_Title
	sql = "DELETE FROM " & _ 
	""
	'response.write sql
	on error resume next
	cn.Execute(sql)
	if err.number <> 0 then
		b_error = true
	end if
	on error goto 0
end sub
sub db_select_view_RootCats
	view_RootCats_sql = "SELECT " & _ 
	"Cats.Cat AS Cat, " & _ 
	"Cats.CatId AS CatId," & _ 
	"SubCats.Cat AS SubCat," & _ 
	"SubCats.CatId AS SubCatId " & _ 
	"FROM (Cats LEFT JOIN Cats AS SubCats ON SubCats.ParentId = Cats.CatId) " & _ 
	"WHERE Cats.CatTypeId = 2 AND Cats.ParentId IS NULL ORDER BY Cats.Cat"
end sub
sub db_delete_view_RootCats
	sql = "DELETE FROM " & _ 
	""
	'response.write sql
	on error resume next
	cn.Execute(sql)
	if err.number <> 0 then
		b_error = true
	end if
	on error goto 0
end sub
sub db_select_view_SubCats
	view_SubCats_sql = "SELECT " & _ 
	"Cats.Cat AS Cat, " & _ 
	"Cats.CatId AS CatId," & _ 
	"SubCats.Cat AS SubCat," & _ 
	"SubCats.CatId AS SubCatId " & _ 
	"FROM Cats LEFT JOIN Cats AS SubCats ON SubCats.ParentId = Cats.CatId " & _ 
	"WHERE Cats.ParentId = " & to_sql(CatID,"number") & " " & _ 
	"ORDER BY Cats.Cat"
end sub
sub db_delete_view_SubCats
	sql = "DELETE FROM " & _ 
	""
	'response.write sql
	on error resume next
	cn.Execute(sql)
	if err.number <> 0 then
		b_error = true
	end if
	on error goto 0
end sub
sub db_select_view_Links
	if do_search = "1" then
	request_view_Links
	view_Links_sql = "SELECT " & _ 
	"AvgRating, " & _ 
	"Links.CatId," & _ 
	"Cat, " & _ 
	"ClickThrus, " & _ 
	"DownloadFee, " & _ 
	"Links.Description AS Description, " & _ 
	"DownloadURL, " & _ 
	"Email, " & _ 
	"DateAdded, " & _ 
	"Impressions, " & _ 
	"LinkID, " & _ 
	"LinkType, " & _ 
	"Priority, " & _ 
	"Ratings, " & _ 
	"Title, " & _ 
	"URL FROM Cats, Links, LinkTypes " & _ 
	" WHERE Cats.CatID=Links.CatID AND Display=1 AND Links.LinkTypeID=LinkTypes.LinkTypeID AND (Links.Title LIKE '%" & keywords & "%' OR Links.Description LIKE '%" & keywords & "%') ORDER BY Priority, AvgRating DESC, Title"
	else
	view_Links_sql = "SELECT " & _ 
	"AvgRating, " & _ 
	"Links.CatId," & _ 
	"Cat, " & _ 
	"ClickThrus, " & _ 
	"DownloadFee, " & _ 
	"Links.Description AS Description, " & _ 
	"DownloadURL, " & _ 
	"Email, " & _ 
	"DateAdded, " & _ 
	"Impressions, " & _ 
	"LinkID, " & _ 
	"LinkType, " & _ 
	"Priority, " & _ 
	"Ratings, " & _ 
	"Title, " & _ 
	"URL FROM Cats, Links, LinkTypes " & _ 
	"WHERE Cats.CatID=Links.CatID AND " & _ 
	"Links.LinkTypeID=LinkTypes.LinkTypeID AND " & _ 
	"Display=1 AND " & _ 
	"Links.CatID = " & to_sql(CatID,"number") & " " & _ 
	"ORDER BY Priority, AvgRating DESC, Title"
	end if
	if request("sortby") <> "" AND inStr(lcase(view_Links_sql),"order by") = 0 then view_Links_sql = view_Links_sql + " ORDER BY " & request("sortby")
end sub
sub db_delete_view_Links
	sql = "DELETE FROM Links" & _ 
	" WHERE " & _ 
	"CatID = " & to_sql(CatID,"number") & ""
	'response.write sql
	on error resume next
	cn.Execute(sql)
	if err.number <> 0 then
		b_error = true
	end if
	on error goto 0
end sub
sub db_select_view_RelatedCats
	view_RelatedCats_sql = "SELECT Cat AS RelatedCat, CatID AS RelatedCatId FROM Cats WHERE RelatedId = " & to_sql(CatID,"number") & ""
end sub
sub db_delete_view_RelatedCats
	sql = "DELETE FROM " & _ 
	""
	'response.write sql
	on error resume next
	cn.Execute(sql)
	if err.number <> 0 then
		b_error = true
	end if
	on error goto 0
end sub

do_search = request("do_search")
''' request form keys and inputs
keywords = request("keywords")
CatID = request("CatID")
LinkID = request("LinkID")

':: request action
action = lcase(request("action"))

':: handle the action
select case action

case "select_title"
'  select the requested key record from database
db_select_Title


case "select_view_rootcats"
'  select the requested key record from database
db_select_view_RootCats


case "select_view_subcats"
'  select the requested key record from database
db_select_view_SubCats


case "select_view_links"
'  select the requested key record from database
if CatID <> "" then
	db_select_view_Links
else
	b_error = true
	error_list.add "edit_view_Links", "Specify record to select."
end if


case "select_view_relatedcats"
'  select the requested key record from database
db_select_view_RelatedCats

case "new"
	view_Links_sql = "SELECT " & _ 
	"AvgRating, " & _ 
	"Links.CatId," & _ 
	"Cat, " & _ 
	"ClickThrus, " & _ 
	"DownloadFee, " & _ 
	"Links.Description AS Description, " & _ 
	"DownloadURL, " & _ 
	"Email, " & _ 
	"DateAdded, " & _ 
	"Impressions, " & _ 
	"LinkID, " & _ 
	"LinkType, " & _ 
	"Priority, " & _ 
	"Ratings, " & _ 
	"Title, " & _ 
	"URL FROM Cats,Links, LinkTypes " &_
	"WHERE Cats.CatID=Links.CatID AND Links.LinkTypeID=LinkTypes.LinkTypeID AND Display=1 " & _
	"AND (" & to_sql(date,"date") & " - DateAdded) < 5 ORDER BY DateAdded DESC"

case "hot"
	view_Links_sql = "SELECT " & _ 
	"AvgRating, " & _ 
	"Links.CatId," & _ 
	"Cat, " & _ 
	"ClickThrus, " & _ 
	"DownloadFee, " & _ 
	"Links.Description AS Description, " & _ 
	"DownloadURL, " & _ 
	"Email, " & _ 
	"DateAdded, " & _ 
	"Impressions, " & _ 
	"LinkID, " & _ 
	"LinkType, " & _ 
	"Priority, " & _ 
	"Ratings, " & _ 
	"Title, " & _ 
	"URL FROM Cats,Links, LinkTypes " &_
	"WHERE Cats.CatID=Links.CatID AND Links.LinkTypeID=LinkTypes.LinkTypeID AND Display=1 AND ClickThrus>1 " & _
	"ORDER BY ClickThrus DESC"


end select

':: handle the default case(s) (ignores value of action parameter)
dim report_errors_email
report_errors_email = "mgraham@seakingwdc.org" 'Application("from_address") '"mgraham@seakingwdc.org"

if Keywords <> "" then
	db_select_Title
	db_select_view_SubCats
	db_select_view_RelatedCats
	db_select_view_Links
elseif CatID <> "" then
	db_select_Title
	db_select_view_SubCats
	db_select_view_RelatedCats
	db_select_view_Links
else
	db_select_view_RootCats
end if
%>

<!--#include file='i_header.asp'--><!--#include file='i_menu.asp'-->


<%
display_errs
display_msg
%>

<table border=0 width="500" >
<form id="Search" name="Search" action="links.asp" method="get" >
<tr>
	<td class='dataTD'><div align=right><A href='submit.asp?cat_id=<% =cat_id %>'>submit link</A> | search links</div></td>
	<td class='dataTD' width='250' nowrap>
		<input type=text  name="keywords" size="25" maxlength="" value="<% =keywords%>"><input class=cmd type=submit value='GO'>
	</td>
</tr>
<input type=hidden name="do_search" value="1">

</form>
</table>


<% if catid = "" then %>
<!-- root level -->
<table border=0 class='headerTable' width="100%">
<tr>
<td class='headerTD'><A href='links.asp'>Links</A></td>
</tr>
</table>
<% else %>
<!-- determine cat heirarchy from db -->
<%

page_no = request("page_no")
if page_no = "" then page_no = 1

if Title_sql <> "" then
	cmd.CommandText = Title_sql
	rs.Filter = ""
	rs.CursorLocation = 3
	rs.CacheSize = 5
	rs.Open cmd
	if not rs.EOF then
			rs.MoveFirst
			max_count = cInt(rs.PageCount)
			num_recs = rs.RecordCount
			rs.AbsolutePage = page_no
			results = true
	else
		results = false
		rs.Close
	end if
else
	results = false
end if
rec_count = 0

%>

<%

if results = true then

%>

<table border=0  width='100%'>
          <form id="Title" name="Title" action="links.asp" method="get" >
            <%

do while not rs.EOF

':: read db record
on error resume next
Cat = rs("Cat")
Cat1 = rs("Cat1")
Cat2 = rs("Cat2")
Cat3 = rs("Cat3")
CatID = rs("CatID")
CatId1 = rs("CatId1")
CatId2 = rs("CatId2")
CatId3 = rs("CatId3")
ParentId = rs("ParentId")
CatsList = rs("CatsList")
on error goto 0

%>
            <input type=hidden name="Cat" value="<% =Cat %>">
            <input type=hidden name="Cat1" value="<% =Cat1 %>">
            <input type=hidden name="Cat2" value="<% =Cat2 %>">
            <input type=hidden name="Cat3" value="<% =Cat3 %>">
            <input type=hidden name="CatID" value="<% =CatID %>">
            <input type=hidden name="CatId1" value="<% =CatId1 %>">
            <input type=hidden name="CatId2" value="<% =CatId2 %>">
            <input type=hidden name="CatId3" value="<% =CatId3 %>">
            <input type=hidden name="ParentId" value="<% =ParentId %>">
            <tr>
              <td style="{padding:0px;border-width:0px;}">
                <table boder=0 width="100%">
                  <tr>
                    <td > <span class="breadcrumb"><A href='links.asp'>Links</A>
                      <% if Cat1 <> "" then %>
&#8250; <a href='links.asp?CatId=<% =CatId1 %>'>
              <% =Cat1 %>
              </a>
              <% end if %>
              <% if CatId2 <> "" then %>
&#8250; <a href='links.asp?CatId=<% =CatId2 %>'>
              <% =Cat2 %>
              </a>
              <% end if %>
&#8250; <a href='links.asp?CatId=<% =CatId3 %>'>
              <% =Cat3 %>
              </a> &#8250; <a href='links.asp?CatId=<% =CatId %>'>
              <% =Cat %>
              </a> </span></td>
                  </tr>
                </table>
                <% =CatsList %>
              </td>
            </tr>
            <%

rs.MoveNext
rec_count = rec_count + 1
loop
rs.Close

%>
          </form>
        </table>
<%

else

%>

	
<%

end if

%>


<% end if %>
<table border=0 width='100%'>
          <tr>
            <td>
              <% ctr = 0 %>
              <%

page_no = request("page_no")
if page_no = "" then page_no = 1

if view_RootCats_sql <> "" then
	cmd.CommandText = view_RootCats_sql
	rs.Filter = ""
	rs.CursorLocation = 3
	rs.CacheSize = 5
	rs.Open cmd
	if not rs.EOF then
			rs.MoveFirst
			max_count = cInt(rs.PageCount)
			num_recs = rs.RecordCount
			rs.AbsolutePage = page_no
			results = true
	else
		results = false
		rs.Close
	end if
else
	results = false
end if
rec_count = 0

%>
              <%

if results = true then

%>
              <table border=0  width="100%">
                <form id="view_RootCats" name="view_RootCats" action="links.asp" method="get" >
                  <%

do while not rs.EOF

':: read db record
on error resume next
SubCatId = rs("SubCatId")
SubCat = rs("SubCat")
Cat = rs("Cat")
CatID = rs("CatID")
on error goto 0

%>
                  <% if LastCat <> Cat then %></div>
                  <% if ctr mod 2 = 0 then %>
                  <tr>
                    <% end if %>
                    <td  valign=top>
                      <P><BR>
                      <h4>&raquo;<B><A href='links.asp?CatId=<% =CatId %>'>
                          
                          <% =Cat %>
                          </A></B></h4><div class="intentOne">

                          <% ctr = ctr + 1 %>
                          <% end if %>
                          <A href='links.asp?CatId=<% =SubCatId %>' class="leftmenu"><% =SubCat %></A>&nbsp;
                          <%
LastCat = Cat
if LastCat = Cat then
%>
               
                <% else %>
                    </td>
                    <% if (ctr+1) mod 2 = 0 then %>
                  </tr>
                  <% end if %>
                  <% end if %>
                  <%

lastgroup = Cat
rs.MoveNext
rec_count = rec_count + 1
loop
rs.Close

%>
                </form>
              </table>
              <%

else

%>
              <%

end if

%>
            </td>
          </tr>
        </table>


<table border=0 width='100%'>
<tr>
<td>
<% ctr = 1 %>
<%

page_no = request("page_no")
if page_no = "" then page_no = 1

if view_SubCats_sql <> "" then
	cmd.CommandText = view_SubCats_sql
	rs.Filter = ""
	rs.CursorLocation = 3
	rs.CacheSize = 5
	rs.Open cmd
	if not rs.EOF then
			rs.MoveFirst
			max_count = cInt(rs.PageCount)
			num_recs = rs.RecordCount
			rs.AbsolutePage = page_no
			results = true
	else
		results = false
		rs.Close
	end if
else
	results = false
end if
rec_count = 0

%>

<%

if results = true then

%>

<table border=0 cellpadding="10" width="100%">
<form id="view_SubCats" name="view_SubCats" action="links.asp" method="get" >
<%

do while not rs.EOF

':: read db record
on error resume next
SubCatId = rs("SubCatId")
SubCat = rs("SubCat")
Cat = rs("Cat")
CatID = rs("CatID")
on error goto 0

%>
<% if LastCat <> Cat then %>

	<% if ctr mod 2 > 0 then %>
	</td>
	</tr>
	<tr valign=top>
	<td >
	<% else %>
	</td>
	<td >
	<% end if %>
</span>
	<br>
<h4>&raquo;<A href='links.asp?CatId=<% =CatId %>'><% =Cat %></A>

	<%
	set rsT = cn.Execute("SELECT COUNT(LinkId) FROM Links WHERE Display=1 AND CatId=" & CatId & "")
	Count = rsT(0)
	rsT.Close
	%>
	<font class="smalltext">(<% =Count %>)</font></h4>
	<span class="intentOne">
	<%

	SubCatCtr = 0
end if
if SubCatCtr > 0 then response.write ","

%>
<A href='links.asp?CatId=<% =SubCatId %>' class="medtext"><% =SubCat %></A>
<%

SubCatCtr = SubCatCtr + 1
Ctr = Ctr + 1
LastCat = Cat

%>
<%

lastgroup = Cat
rs.MoveNext
rec_count = rec_count + 1
loop
rs.Close

%>

</form>
</table>
<%

else

%>

	
<%

end if

%>


</td>
</tr>
</table>
<% num_recs = 0 %>
<%

page_no = request("page_no")
if page_no = "" then page_no = 1

if view_Links_sql <> "" then
	cmd.CommandText = view_Links_sql
	rs.Filter = ""
	if LinkID <> "" then rs.Filter = "LinkID = " & to_sql(LinkID,"number")
	rs.CursorLocation = 3
	rs.CacheSize = 5
	rs.Open cmd
	if not rs.EOF then
			rs.MoveFirst
			max_count = cInt(rs.PageCount)
			num_recs = rs.RecordCount
			rs.AbsolutePage = page_no
			results = true
	else
		results = false
		rs.Close
	end if
else
	results = false
end if
rec_count = 0

%>

<table border=0 class='headerTable' width="100%">
          <tr>
            <td class='headerTD'>
              <% if action="new" then %>
              New Links
              <% elseif action="hot" then %>
              Hot Links
              <% else %>
              <% =num_recs %>
      record(s) were found..
      <% end if %>
            </td>
          </tr>
        </table>
        <%

if results = true then

%>
        <table width='90%'  border=0 cellpadding="3" cellspacing="0" callspacing=1>
          <form id="view_Links" name="view_Links" action="links.asp" method="get" >
            <%

do while not rs.EOF

':: read db record
on error resume next
DownloadURL = rs("DownloadURL")
Email = rs("Email")
LinkID = rs("LinkID")
URL = rs("URL")
Title = rs("Title")
Cat = rs("Cat")
LinkType = rs("LinkType")
Description = rs("Description")
DateAdded = rs("DateAdded")
Priority = rs("Priority")
AvgRating = rs("AvgRating")
ClickThrus = rs("ClickThrus")
Impressions = rs("Impressions")
CatID = rs("CatID")
DownloadFee = rs("DownloadFee")
on error goto 0

%>
            <tr bgcolor="#<% if ctr mod 2 = 0 then %>CCCCCC<% else %>FFFFFF<% end if %>" class="hordash">
              <td  nowrap><span class="DataFont"> <A href="click_thru.asp?LinkId=<% =LinkID %>" target="launch_win"> <b> 
                <% =Title %>
                </B></A></span><span class="DataFont">
                <% if Date-DateAdded < 5 then %>
        &nbsp; 
                <img src='images/icon_new.gif' width=30 height=10 align=absmiddle>&nbsp;
                <% end if %>
                <% if DownloadURL <> "" then %>
� [<A href='<% =DownloadURL %>' >download it!</A>]
        <% end if %>
              </span> </td>
              <td align=right> <span class="DataFont"><b>Views:</b>
                    <% =ClickThrus %>
                    <% if DownloadFee <> "" then %>
                    <b> Cost:</b>
                    <% =DownloadFee %>
                    <% end if %>
              </span> </td>
            </tr>
            <tr>
              <td class=breadcrumb style="{text-align:left;}"> Rating:
                  <% =AvgRating %>
          � 
              </td>
              <td class=breadcrumb style="{text-align:right;}"> [<A href="javascript:openWindow('pu_rate.asp?LinkId=<% =LinkID %>','rate_popup','top=100,left=200,height=100')" >rate
                  this resource</A>] [<A href="mailto:<% =report_errors_email %>" >report
                  errors</A>]
            <% if session("user_id") <> "" then %>
            [<A href='ins_userlinks.asp?LinkId=<% =LinkID %>' >add to favorites</A>]
            <% end if %>
              </td>
            </tr>
            <tr >
              <td colspan=2 valign="top" >
                <p class="tabletext">
                  <% =Description %>
                </p>
              </td>
            </tr>
            <% ctr = ctr + 1 %>
            <%

rs.MoveNext
rec_count = rec_count + 1
loop
rs.Close

%>
          </form>
        </table>
<%

else

%>

	
<%

end if

%>


<br><br>
<% if action = "" then %>
<%

page_no = request("page_no")
if page_no = "" then page_no = 1

if view_RelatedCats_sql <> "" then
	cmd.CommandText = view_RelatedCats_sql
	rs.Filter = ""
	rs.CursorLocation = 3
	rs.CacheSize = 5
	rs.Open cmd
	if not rs.EOF then
			rs.MoveFirst
			max_count = cInt(rs.PageCount)
			num_recs = rs.RecordCount
			rs.AbsolutePage = page_no
			results = true
	else
		results = false
		rs.Close
	end if
else
	results = false
end if
rec_count = 0

%>


<%

if results = true then

%>
<table border=0 class='headerTable' width="100%">
<tr>
<td class='headerTD'>
Also see...
</td>
</tr>
</table>F
<table border=0  >
<form id="view_RelatedCats" name="view_RelatedCats" action="links.asp" method="get" >
<%

do while not rs.EOF

':: read db record
on error resume next
Cat = rs("Cat")
CatID = rs("CatID")
RelatedCat = rs("RelatedCat")
RelatedCatId = rs("RelatedCatId")
on error goto 0

%>
		
		<input type=hidden name="Cat" value="<% =Cat %>">
		
		
		<input type=hidden name="CatID" value="<% =CatID %>">
		
<tr>
	<td class='dataTD' >
		<a href="links.asp?CatId=<% =RelatedCatId %>"><% =RelatedCat %></a>
	</td>
</tr>
		
		<input type=hidden name="RelatedCatId" value="<% =RelatedCatId %>">
		
<%

rs.MoveNext
rec_count = rec_count + 1
loop
rs.Close

%>

</form>
</table>
<%

else

%>


<%

end if

%>


<% end if %>

<!--#include file='i_footer.asp'-->


<%
':: assure that any db resources are freed
on error resume next
rs.Close
set rs = NOTHING
cn.Close
set cn = NOTHING
user_cn.Close
set user_cn = NOTHING
on error goto 0
%>