<% Areanum = Request.QueryString("area") '## Function to display new icon Public Sub Displaylinks If Request.QueryString("catid") = "" then CatID = 0 CatTitle = SiteName Else CatID = Request.QueryString("catid") CatTitle = Request.QueryString("cattitle") End If 'Create a recordset with the top level categories in it. Set objRec2 = CreateObject("ADODB.Recordset") Set objRec2.ActiveConnection = my_Conn objRec2.LockType = 2 If mLev = 4 Then SQL = "SELECT * FROM FORUM_Site_Links WHERE CatID = " & CatID & " AND LinkType = 4 ORDER BY Added DESC;" Else SQL = "SELECT * FROM FORUM_Site_Links WHERE CatID = " & CatID & " AND LinkType = 4 AND Validated = 1 ORDER BY Name, Hits DESC;" End If objRec2.Open SQL, my_Conn, 3, 3 %> <% DO UNTIL objRec2.EOF %> <% If objRec2("Votes") <> "0" then Rate = round(objRec2("Score")/objRec2("Votes")) star = 0 Rating = "" DO UNTIL star = Rate Rating = Rating & "" star = star +1 Loop Else Rating = "Not Rated" End If LinkStatus = objRec2("Badlink") Select Case LinkStatus Case 0 LinkStatus = "Working" Case Else LinkStatus = "Down!!" End Select %>
<% If mLev >= 3 OR mLev = 1 Then %> <% End If %>

<%=isNew(objRec2("Added"))%>&linkname=<%=Server.URLEncode(objRec2("Name"))%>&catid=<%=CatID%>&cattitle=<%=Server.URLEncode(CatTitle)%>&area=<%=areanum%>&refID=<%=refID%>" onmouseover="javascript:self.status='<%=objRec2("Name")%>';return true;" onmouseout="javascript:self.status='';return true;"><%=objRec2("Name") %> .gif" border="0" valign="middle"> Link Status: <%=LinkStatus%>   <% If mLev >= 2 Then Response.Write "URL: "+objRec2("URL") End If %>	')" onmouseover="javascript:self.status='Rate This Resource';return true;" onmouseout="javascript:self.status='';return true;">Rate This Resource! ')" onmouseover="javascript:self.status='Report This Resource';return true;" onmouseout="javascript:self.status='';return true;">Report Bad Link!
<%If objRec2("IMG") <> "" Then%> <% If objRec2("IMG_Type") = 2 Then Response.Write "" End If End If %> &linkname=<%=Server.URLEncode(objRec2("Name"))%>&catid=<%=CatID%>&cattitle=<%=Server.URLEncode(CatTitle)%>&area=<%=areanum%>&refID=<%=refID%>" onmouseover="javascript:self.status='<%=objRec2("Name")%>';return true;" onmouseout="javascript:self.status='';return true;">" border="0"> <%If objRec2("Author") <> "" Then%> Author: <%=objRec2("Author")%>  <%End If%><%If objRec2("Price") <> "0" Then%>Price: $<%=objRec2("Price")%><%End If%><% If objRec2("Price") <> "0" OR objRec2("Author") <> "" Then%> <%End If%><%=objRec2("LinkDesc")%>
<% If objRec2("Forum_Topic") <> "" Then %> <% End If %> <% If mLev >=3 Then%> Submitted By: <% 'using an inc_functions call to find member ID based on member login name If objRec2("SubmittedBy") <> "" Then SubmittedByID = getMemberID(objRec2("SubmittedBy")) if strUseExtendedProfile then %> <% else %> <% end if Response.Write objRec2("SubmittedBy") %> <% Else Response.Write "?" End If End If %> Added: <%=ChkDate(objRec2("Added"))%>  Hits: <%=objRec2("Hits")%>   Votes: <%=objRec2("Votes")%>  Rating: <%=Rating%> ">Click To Discuss This Resource
| &category=<%=CatID%>')">Edit Link | <% If mLev = 4 Then %> ')">Delete Link | <% If objRec2("Validated") = 0 Then %> ')"> Validate Link | <% End If %> <% End If %>

<% 'Move to the next record in the record set. objRec2.MoveNext LOOP %> <% 'Time to clean up objRec2.Close Set objRec2 = Nothing End Sub 'Displaylinks %>