<%
Public Sub NewLinks
set my_Conn = Server.CreateObject("ADODB.Connection")
my_Conn.Open strConnString
Areanum = Request.QueryString("area")
If Request.QueryString("catid") = "" then
CatID = 0
CatTitle = SiteName
Else
CatID = Request.QueryString("catid")
CatTitle = Request.QueryString("cattitle")
End If
' Begin Code from Snitz Forum Active.asp & inc_functions.as
'## Do Cookie stuffs with show last date
if IsEmpty(Session(strCookieURL & "last_here_date")) then
Session(strCookieURL & "last_here_date") = ReadLastHereDate(strDBNTUserName)
end if
if lastDate = "" then
lastDate = Session(strCookieURL & "last_here_date")
end if
' End Code from Snitz Forum Active.asp
i = 1
Set rsLinks = CreateObject("ADODB.Recordset")
Set rsLinks.ActiveConnection = my_Conn
rsLinks.LockType = 2
rsLinks.Open("SELECT * FROM " & strTablePrefix & "Site_Links WHERE Added >= '" & lastDate & "' AND Validated = 1 ")
If rsLinks.EOF and rsLinks.BOF Then
Response.Write "No New Resources since you last visited!
"
rsLinks.Close
Set rsLinks = Nothing
Else
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"))
Category = rscat("Title")
%>
| <%=i%> |
NEW! &linkname=<%=Server.URLEncode(rsLinks("Name"))%>&catid=<%=CatID%>&cattitle=<%=Server.URLEncode(CatTitle)%>&area=<%=areanum%>&refID=<%=refID%>" onmouseover="javascript:self.status='<%=rsLinks("Name")%>';return true;" onmouseout="javascript:self.status='';return true;"><%=rsLinks("Name")%> |
|
Added: <%=ChkDate(rsLinks("Added"))%> <%=ChkTime(rsLinks("Added"))%> Category: <%=Category%> Hits: <%=rsLinks("Hits")%>
|
<%
i = i +1
rscat.Close
Set rscat = Nothing
rsLinks.MoveNext
LOOP
rsLinks.Close
Set rsLinks = Nothing
End If
my_Conn.Close
Set my_Conn = Nothing
End Sub 'NewLinks
%>