<%
Public Sub PopularLinks
'set my_Conn = Server.CreateObject("ADODB.Connection")
'my_Conn.Open strConnString
i = 1
Set rsLinks = CreateObject("ADODB.Recordset")
Set rsLinks.ActiveConnection = my_Conn
rsLinks.LockType = 2
rsLinks.Open("SELECT * FROM " & strTablePrefix & "Site_Links WHERE Hits > 1 AND LinkType = 4 ORDER BY Hits DESC;")
Do While Not rsLinks.EOF AND i < 6
Set rscat = CreateObject("ADODB.Recordset")
Set rscat.ActiveConnection = my_Conn
rscat.LockType = 2
rscat.Open("SELECT * FROM " & strTablePrefix & "Site_Cats WHERE CatID=" & rsLinks("CatID"))
if not rsCat.eof then
Category = rscat("Title")
end if
%>
| <%=i%> |
"><%=rsLinks("Name")%> |
Category: <%=Category%>
Hits: <%=rsLinks("Hits")%> Added: <%=chkDate(rsLinks("Added"))%>
|
<%
i = i +1
rscat.Close
Set rscat = Nothing
rsLinks.MoveNext
LOOP
rsLinks.Close
Set rsLinks = Nothing
' my_Conn.Close
' Set my_Conn = Nothing
End Sub 'PopularLinks
%>
<%
Public Sub RatedLinks
'set my_Conn = Server.CreateObject("ADODB.Connection")
'my_Conn.Open strConnString
i = 1
Set rsLinks = CreateObject("ADODB.Recordset")
Set rsLinks.ActiveConnection = my_Conn
rsLinks.LockType = 2
rsLinks.Open("SELECT * FROM " & strTablePrefix & "Site_Links WHERE Score > 1 AND LinkType = 4 ORDER BY Score DESC;")
Do While Not rsLinks.EOF AND i < 6
Rate = round(rsLinks("Score")/rsLinks("Votes"))
star = 0
Rating = ""
DO UNTIL star = Rate
Rating = Rating & "
"
star = star +1
Loop
Set rscat = CreateObject("ADODB.Recordset")
Set rscat.ActiveConnection = my_Conn
rscat.LockType = 2
rscat.Open("SELECT * FROM " & strTablePrefix & "Site_Cats WHERE CatID=" & rsLinks("CatID"))
if not rsCat.EOF then
Category = rscat("Title")
end if
rscat.close
set rscat = nothing
%>
| <%=i%> |
"><%=rsLinks("Name")%> |
Category: <%= Category%>
Votes: <%=rsLinks("Votes")%> Rating: <%=Rating%>
|
<%
i = i +1
rsLinks.MoveNext
LOOP
rsLinks.Close
Set rsLinks = Nothing
' my_Conn.Close
' Set my_Conn = Nothing
End Sub 'RatedLinks
%>
| Top 5 Links by Hits: |
Top 5 Links by Rating (Score/Votes): |
|
|
|