<%@ LANGUAGE="VBSCRIPT"%> <% ' Check User Level mLev = cint(chkUser(strDBNTUserName, Request.Cookies(strUniqueID & "User")("Pword"))) set my_Conn = Server.CreateObject("ADODB.Connection") my_Conn.Open strConnString 'Create a recordset with the top level categories in it. Set objRec2 = CreateObject("ADODB.Recordset") Set objRec2.ActiveConnection = my_Conn objRec2.LockType = 2 SQL = "SELECT * FROM " & strTablePrefix & "Site_Links WHERE BadLink > 0 ORDER BY LinkID DESC;" objRec2.Open SQL, my_Conn, 3, 3 If objRec2.BOF and objRec2.EOF Then Response.Write "


No Bad Links Found!" Else DO UNTIL objRec2.EOF CatID = objRec2("catID") 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 Link" Case 1 LinkStatus = "404 - Page Missing Error!" Case 2 LinkStatus = "Internal Script Error!" Case 3 LinkStatus = "External Script Error!" Case 4 LinkStatus = "Spelling Mistake!" Case 5 LinkStatus = "Missing Image!" End Select %>
<% If mLev >= 3 OR mLev = 1 Then %> <% End If %>

Link Status: <%=LinkStatus%>

&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"> <% If mLev >= 2 Then Response.Write "URL: "+objRec2("URL") End If %>

<%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: <%=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 End If objRec2.Close Set objRec2 = Nothing %>