Snitz Forums 2000
Snitz Forums 2000
Home | Profile | Register | Active Topics | Members | Search | FAQ
Username:
Password:
Save Password
Forgot your Password?

 All Forums
 Snitz Forums 2000 MOD-Group
 MOD Add-On Forum (W/Code)
 More prominent Search
 New Topic  Topic Locked
 Printer Friendly
Author Previous Topic Topic Next Topic  

Webbo
Average Member

United Kingdom
982 Posts

Posted - 06 September 2003 :  17:24:15  Show Profile  Visit Webbo's Homepage
Hi everyone,

I have found over a period of time that new members tend to post similar question to ones that have previously been posted without using the search function first. This appears to be because the search link is overlooked being in the top-right corner, so I have made the following changes so that a search link and icon will show at the top of each forum alongside the 'New Topic' link.......

Load icon_search.gif into forum folder: , (260 bytes)

In file inc_iconfiles.asp add the following after line 114:

quote:
Const strIconSearch = "icon_search.gif|20|20"



In forum.asp find this at line 698-703:

quote:
if Forum_Status <> 0 then
Response.Write " <a href=""post.asp?method=Topic&FORUM_ID=" & Forum_ID & """>" & getCurrentIcon(strIconFolderNewTopic,"New Topic","align=""absmiddle""") & "</a> <a href=""post.asp?method=Topic&FORUM_ID=" & Forum_ID& """>New Topic</a><br />" & vbNewLine
else
Response.Write " " & getCurrentIcon(strIconFolderLocked,"Forum Locked","align=""absmiddle""") & " Forum Locked<br />" & vbNewLine
end if
end if


and replace with:

quote:
if Forum_Status <> 0 then
Response.Write " <a href=""post.asp?method=Topic&FORUM_ID=" & Forum_ID & """>" & getCurrentIcon(strIconFolderNewTopic,"New Topic","align=""absmiddle""") & "</a> <a href=""post.asp?method=Topic&FORUM_ID=" & Forum_ID& """>New Topic</a>" & vbNewLine
else
Response.Write " " & getCurrentIcon(strIconFolderLocked,"Forum Locked","align=""absmiddle""") & " Forum Locked" & vbNewLine
end if
Response.Write " <a href=""search.asp"">" & getCurrentIcon(strIconSearch,"Search Forum","align=""absmiddle""") & "</a> <a href=""search.asp"">Search</a><br />" & vbNewLine
end if


That's it

Dave

Ryan
Average Member

USA
858 Posts

Posted - 06 September 2003 :  19:07:43  Show Profile  Visit Ryan's Homepage
Very interesting. If this works this should go in the base code.

The Poultry Link - "Serving the best of the fancy with the best of the web"
Forum Setup Help
Go to Top of Page
  Previous Topic Topic Next Topic  
 New Topic  Topic Locked
 Printer Friendly
Jump To:
Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.14 seconds. Powered By: Snitz Forums 2000 Version 3.4.07