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

 All Forums
 Help Groups for Snitz Forums 2000 Users
 Help: General / Classic ASP versions(v3.4.XX)
 help me to find something		  New Topic  Topic Locked
 Printer Friendly
Author Previous Topic Topic Next Topic  

Croatia
New Member

53 Posts
Posted - 08 February 2007 :  04:30:21  Show Profile  Visit Croatia's Homepage
ehhhh before 1 year I change code on I think forum.asp to show only link to first 3 pages and link to last page (if topic is more then 10 pages long).
now i wont to do same on active topics page, but cant remember what i did, and cant find it again on forum.

so please can some1 post link of that topic, and when I read it you can delete this topic.
Edited by - Croatia on 08 February 2007 04:30:46

ruirib
Snitz Forums Admin

Portugal
26364 Posts
Posted - 08 February 2007 :  06:00:58  Show Profile  Send ruirib a Yahoo! Message
Can you remember any keywords that may be used for the search?

Snitz 3.4 Readme | Like the support? Support Snitz too
Go to Top of Page

Shaggy
Support Moderator

Ireland
6780 Posts
Posted - 08 February 2007 :  06:02:16  Show Profile
Probably easier if you throw us *.txt copies of your forum.asp and active.asp files

Search is your friend
“I was having a mildly paranoid day, mostly due to the
fact that the mad priest lady from over the river had
taken to nailing weasels to my front door again.”
Go to Top of Page

Croatia
New Member

53 Posts
Posted - 09 February 2007 :  07:53:57  Show Profile  Visit Croatia's Homepage
ok, i take time and find what I need in code.

just find in forum.asp and active.asp this:

sub TopicPaging()
	mxpages = (Topic_Replies / strPageSize)
	if mxPages <> cLng(mxPages) then
		mxpages = int(mxpages) + 1
	end if
	if mxpages > 1 then
		Response.Write("                  <table border=""0"" cellspacing=""0"" cellpadding=""0"">" & vbNewLine)
		Response.Write("                    <tr>" & vbNewLine)
		Response.Write("                      <td valign=""bottom""><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & getCurrentIcon(strIconPosticon,"","") & "</font></td>" & vbNewLine)
		for counter = 1 to mxpages
			ref = "                      <td align=""right"" valign=""bottom"" bgcolor=""" & strForumCellColor  & """><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" 
			if ((mxpages > 9) and (mxpages > strPageNumberSize)) or ((counter > 9) and (mxpages < strPageNumberSize)) then
				ref = ref & " "
			end if		
			ref = ref & widenum(counter) & "<span class=""spnMessageText""><a href=""topic.asp?"
			ref = ref & ArchiveLink
		        ref = ref & "TOPIC_ID=" & Topic_ID
			ref = ref & "&whichpage=" & counter
			ref = ref & """>" & counter & "</a></span></font></td>"
			Response.Write ref & vbNewLine
			if counter mod strPageNumberSize = 0 and counter < mxpages then
				Response.Write("                    </tr>" & vbNewLine)
				Response.Write("                    <tr>" & vbNewLine)
				Response.Write("                      <td> </td>" & vbNewLine)
			end if
		next				
        Response.Write("                    </tr>" & vbNewLine)
        Response.Write("                  </table>" & vbNewLine)
	end if
end sub



and replace it with:

sub TopicPaging()
	page_limit  = 10
	first_pages  = 3
	last_pages = 0
	mxpages = (Topic_Replies / strPageSize)
	if mxPages <> cLng(mxPages) then
		mxpages = int(mxpages) + 1
	end if
	if mxpages > 1 then
		Response.Write("                  <table border=""0"" cellspacing=""0"" cellpadding=""0"">" & vbNewLine)
		Response.Write("                    <tr>" & vbNewLine)
		Response.Write("                      <td valign=""bottom""><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & getCurrentIcon(strIconPosticon,"","") & "</font></td>" & vbNewLine)
                if mxpages > page_limit then
                        ref = "                      <td align=""left"" valign=""bottom"" bgcolor=""" & strForumCellColor  & """><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" 
  			ref = ref & " Pages ("& mxpages & "): </font></td>" 
  			for counter = 1 to first_pages
  			  ref = ref & "                      <td align=""right"" valign=""bottom"" bgcolor=""" & strForumCellColor  & """><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" 
                          ref = ref & widenum(counter) & "<span class=""spnMessageText""> <a href=""topic.asp?"
			  ref = ref & ArchiveLink
		          ref = ref & "TOPIC_ID=" & Topic_ID
			  ref = ref & "&whichpage=" & counter
			  ref = ref & """>" & counter & "</a></span></font></td>"  			  
                       next
                        ref = ref & "                      <td align=""left"" valign=""bottom"" bgcolor=""" & strForumCellColor  & """><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" 
  			ref = ref & " ....</font></td>" 
                       if last_pages = 0 then
  			  ref = ref & "                      <td align=""left"" valign=""bottom"" bgcolor=""" & strForumCellColor  & """><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" 
                          ref = ref & widenum(counter) & "<span class=""spnMessageText""> <a href=""topic.asp?"
			  ref = ref & ArchiveLink
		          ref = ref & "TOPIC_ID=" & Topic_ID
			  ref = ref & "&whichpage=" & mxpages
			  ref = ref & """>Last »</a></span></font></td>"                            
  		       else
                          for counter = (mxpages-last_pages+1) to mxpages
  			    ref = ref & "                      <td align=""left"" valign=""bottom"" bgcolor=""" & strForumCellColor  & """><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" 
                            ref = ref & widenum(counter) & "<span class=""spnMessageText""> <a href=""topic.asp?"
			    ref = ref & ArchiveLink
		            ref = ref & "TOPIC_ID=" & Topic_ID
			    ref = ref & "&whichpage=" & counter
			    ref = ref & """>" & counter & "</a></span></font></td>"  			  
                          next		       
        	        end if
			Response.Write ref & vbNewLine
              else
		for counter = 1 to mxpages
			ref = "                      <td align=""right"" valign=""bottom"" bgcolor=""" & strForumCellColor  & """><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" 
			if ((mxpages > 9) and (mxpages > strPageNumberSize)) or ((counter > 9) and (mxpages < strPageNumberSize)) then
				ref = ref & " "
			end if		
			ref = ref & widenum(counter) & "<span class=""spnMessageText""><a href=""topic.asp?"
			ref = ref & ArchiveLink
		        ref = ref & "TOPIC_ID=" & Topic_ID
			ref = ref & "&whichpage=" & counter
			ref = ref & """>" & counter & "</a></span></font></td>"
			Response.Write ref & vbNewLine
			if counter mod strPageNumberSize = 0 and counter < mxpages then
				Response.Write("                    </tr>" & vbNewLine)
				Response.Write("                    <tr>" & vbNewLine)
				Response.Write("                      <td> </td>" & vbNewLine)
			end if
		next				
              end if
        Response.Write("                    </tr>" & vbNewLine)
        Response.Write("                  </table>" & vbNewLine)
	end if
end sub


after that it wasnt hard to find it on forum:
http://forum.snitz.com/forum/topic.asp?ARCHIVE=true&TOPIC_ID=50148&SearchTerms=Topic,Paging
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.41 seconds. Powered By: Snitz Forums 2000 Version 3.4.07