quote:

---

Originally posted by samyot

Hi,

Don't know if this is a bug or my own problem but I noticed that if I do a search it will bring up a listing (site) that is still waiting to be approved.
Since it has not been approved I assume it should not be diplayed at all, right?

I noticed the search section of the code in links.asp does have the show=1 in the query but for some reason doesn't appear to be working for me!
I am using an Access DB. Anybody else getting this

---

  Call DisplayLinksMenu()
  strsql = "SELECT LINK_ID FROM " & strTablePrefix & "LINKS WHERE "
  strsql = strsql & "NAME LIKE '%" & strLMQuery & "%' "
  If strLMShowDesc = 1 Then
    strsql = strsql & "OR DESCRIPTION LIKE '%" & strLMQuery & "%' "
  End If
  If strLMShowKeywords = 1 Then
    strsql = strsql & "OR KEYWORD like'%" & strLMQuery & "%' "
  End If
  strsql = strsql & "AND SHOW=1 ORDER BY LINK_ID"

  Call DisplayLinksMenu()
  strsql = "SELECT LINK_ID FROM " & strTablePrefix & "LINKS WHERE "
  strsql = strsql & "NAME LIKE '%" & strLMQuery & "%' AND SHOW=1 "
  If strLMShowDesc = 1 Then
    strsql = strsql & "OR DESCRIPTION LIKE '%" & strLMQuery & "%' AND SHOW=1 "
  End If
  If strLMShowKeywords = 1 Then
    strsql = strsql & "OR KEYWORD like'%" & strLMQuery & "%' AND SHOW=1 "
  End If
  strsql = strsql & "ORDER BY LINK_ID"

         _                 _        
        | |               | |       
        | |               | |       
       /  |___           /  |___    
______/   ____)   ______/   ____)   
          ____)             ____)   
          ____)             ____)   
-------.______)   -------.______)   

End If
  If (mLev=4) or (mLev=3 and strLMEdit>0) or (trs("MEMBER_ID")=intUserMemberID and strLMEdit=2) Then
    TmpStr = TmpStr & "          | <a href=""links.asp?action=edit&id=" & trs("LINK_ID") & """>" & getCurrentIcon(strIconPencil,"Edit Link","") & "</a>" &vbNewLine 
  End If
  '##### Show that a link has been reported as bad #####
  If trs("BADLINK") = "1" Then
    TmpStr = TmpStr & "          | <font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strHiLiteFontColor & """><b>(This has been reported as a bad link.)</b></font>" &vbNewLine 
  End If
  '##########
  If display_method="search" Then
    TmpStr = TmpStr & "<br /><b>Category:</b>" & vbNewLine
    If trs("CATEGORY") = 0 Then
      TmpStr = TmpStr & "<a href=""links.asp?action=showcat&id=" & trs("PARENT_ID") & """>" & getCategoryName2(trs("PARENT_ID")) & "</a>" & vbNewLine 
    Else
      TmpStr = TmpStr & "<a href=""links.asp?action=showsubcat&id=" & trs("CATEGORY") & """>" & getCategoryName(trs("CATEGORY")) & " / " & getSubCatName(trs("CATEGORY")) & "</a>" & vbNewLine
    End If                       
  End If

quote:

---

I have this installed on SQL and it works great except for one minor thing:

when viewing comments, if the member who made the comment has since been deleted:
ADODB.Field error '800a0bcd'
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

/forum/links.asp, line 418

---

quote:

---

I thought it would be a good idea to let visitors know when a bad link has already been reported.

---

quote:

---

OneWayMule - You get two thumbs-up for this one! Large function MOD and very easy to install.

---

quote:

---

Originally posted by OneWayMule

The final version will be a lot better!

---