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: MOD Implementation
 Need help with Simple Paging MOD
 New Topic  Topic Locked
 Printer Friendly
Previous Page
Author Previous Topic Topic Next Topic
Page: of 2

Shaggy
Support Moderator

Ireland
6780 Posts

Posted - 21 March 2005 :  07:37:42  Show Profile
Got a link to your forums; that image ain't loading?


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

adonix
Starting Member

46 Posts

Posted - 21 March 2005 :  19:55:31  Show Profile
I have the forum in a local intranet, so it is not accessible via outside. But just imaging where your names says:

Shaggy
Senior Member

Ireland
1764 Posts

That this box has enlarged itself and the section where you have "got a link your forums....." has shrunk and the box is all the way to the right. You won't also see the numbers at the top of the post such as [1 2 3..21 >>] which are supposed to be links to the other pages for that topic.
Go to Top of Page

Shaggy
Support Moderator

Ireland
6780 Posts

Posted - 22 March 2005 :  06:21:18  Show Profile
Odness, indeed; have you made any other changes to topic.asp? Can you post a link to a *.txt copy of your topic.asp? A screenshot would also help a bit.


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

adonix
Starting Member

46 Posts

Posted - 22 March 2005 :  14:00:26  Show Profile
Here are a couple of links that I managed to post in one of those free asp host:

http://e.domaindlx.com/enrfig1/topic.txt

Screentshot:
http://e.domaindlx.com/enrfig1/forum2.gif

Thanks Shaggy

Go to Top of Page

Shaggy
Support Moderator

Ireland
6780 Posts

Posted - 23 March 2005 :  05:36:25  Show Profile
Ah, I see what's happened - copy and pasted that from one of me own files and forgot to replace the table cell I'd removed. Sorry about that TRy this:
sub DropDownPaging(fnum)
	dim PagesToShow
	PagesToShow=3
	response.write	"<td bgcolor="""&strHeadCellColor&""" nowrap><strong>Page:</strong>"
	if mxpages>1 then
		if mypage-PagesToShow<1 then MinPageToShow=1 else MinPageToShow=mypage-PagesToShow
		if mypage+PagesToShow>maxpages then MaxPageToShow=maxpages else MaxPageToShow=mypage+PagesToShow
		if MinPageToShow>1 then response.write " <a href=""topic.asp?"&ArchiveLink&"TOPIC_ID="&Topic_ID&"&whichpage=1"&SearchLink&""">#171;</a>"
		for counter=MinPageToShow to MaxPageToShow
			if counter<>mypage then response.write " <a href=""topic.asp?"&ArchiveLink&"TOPIC_ID="&Topic_ID&"&whichpage=&counter&SearchLink&""">"&counter&"</a>" else response.write " <strong>"&counter&"</strong>"
		next
		if MaxPageToShow<maxpages then response.write " <a href=""topic.asp?"&ArchiveLink&"TOPIC_ID="&Topic_ID&"&whichpage="&maxpages&SearchLink&""">#187;</a>"
		response.write	" (of "&maxpages&")"
	else
		response.write	" <strong>1</strong> (of 1)"
	end if
	response.write	"</td>"
	top="0"
end sub

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

adonix
Starting Member

46 Posts

Posted - 23 March 2005 :  14:09:53  Show Profile
Well that fixed the funky look, but it is still not working.

Here's how it is looking as of now:



Btw, the topic is supposed to have two pages, so I click on next page link, takes me there.

Edited by - adonix on 23 March 2005 14:11:39
Go to Top of Page

Shaggy
Support Moderator

Ireland
6780 Posts

Posted - 24 March 2005 :  05:14:10  Show Profile
There's also an A missing I swear, sometimes I think this place eats my code! Either that or I just type things up too quickly without checking back over them properly!
sub DropDownPaging(fnum)
	dim PagesToShow
	PagesToShow=3
	response.write	"<td bgcolor="""&strHeadCellColor&""" nowrap><strong>Page:</strong>"
	if maxpages>1 then
		if mypage-PagesToShow<1 then MinPageToShow=1 else MinPageToShow=mypage-PagesToShow
		if mypage+PagesToShow>maxpages then MaxPageToShow=maxpages else MaxPageToShow=mypage+PagesToShow
		if MinPageToShow>1 then response.write " <a href=""topic.asp?"&ArchiveLink&"TOPIC_ID="&Topic_ID&"&whichpage=1"&SearchLink&""">#171;</a>"
		for counter=MinPageToShow to MaxPageToShow
			if counter<>mypage then response.write " <a href=""topic.asp?"&ArchiveLink&"TOPIC_ID="&Topic_ID&"&whichpage=&counter&SearchLink&""">"&counter&"</a>" else response.write " <strong>"&counter&"</strong>"
		next
		if MaxPageToShow<maxpages then response.write " <a href=""topic.asp?"&ArchiveLink&"TOPIC_ID="&Topic_ID&"&whichpage="&maxpages&SearchLink&""">#187;</a>"
		response.write	" (of "&maxpages&")"
	else
		response.write	" <strong>1</strong> (of 1)"
	end if
	response.write	"</td>"
	top="0"
end sub

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

adonix
Starting Member

46 Posts

Posted - 28 March 2005 :  13:54:34  Show Profile
It's still not working Shaggy. The ony thing that changed was on the upper right hand corner where it says "page: 1 (of 1)" to "page: 1False (of 2)"
Go to Top of Page

Shaggy
Support Moderator

Ireland
6780 Posts

Posted - 29 March 2005 :  07:34:43  Show Profile
Spotted another typo:
sub DropDownPaging(fnum)
	dim PagesToShow
	PagesToShow=3
	response.write	"<td bgcolor="""&strHeadCellColor&""" nowrap><strong>Page:</strong>"
	if maxpages>1 then
		if mypage-PagesToShow<1 then MinPageToShow=1 else MinPageToShow=mypage-PagesToShow
		if mypage+PagesToShow>maxpages then MaxPageToShow=maxpages else MaxPageToShow=mypage+PagesToShow
		if MinPageToShow>1 then response.write " <a href=""topic.asp?"&ArchiveLink&"TOPIC_ID="&Topic_ID&"&whichpage=1"&SearchLink&""">#171;</a>"
		for counter=MinPageToShow to MaxPageToShow
			if counter<>mypage then response.write " <a href=""topic.asp?"&ArchiveLink&"TOPIC_ID="&Topic_ID&"&whichpage="&counter&SearchLink&""">"&counter&"</a>" else response.write " <strong>"&counter&"</strong>"
		next
		if MaxPageToShow<maxpages then response.write " <a href=""topic.asp?"&ArchiveLink&"TOPIC_ID="&Topic_ID&"&whichpage="&maxpages&SearchLink&""">#187;</a>"
		response.write	" (of "&maxpages&")"
	else
		response.write	" <strong>1</strong> (of 1)"
	end if
	response.write	"</td>"
	top="0"
end sub
Feel free to kick me, if you wish!


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

adonix
Starting Member

46 Posts

Posted - 29 March 2005 :  17:23:35  Show Profile
Well, well, well Shaggy. I must say you have lived up to your reputation. Once again you have proven yourself. It works...
I was thinking the Simple Page would show the numbers as shown here:



But that's alright...having number links is still good.

Thank you Shaggy for your help!!!
I really appreaciated...I owe you.
Go to Top of Page

Shaggy
Support Moderator

Ireland
6780 Posts

Posted - 30 March 2005 :  05:57:41  Show Profile
Well, if I was deserving of my apparent reputation, I wouldn't have had to lead you ona merry chase with all those typos!

Anyway, you're welcome, glad to help

It's easy enough to modify the code I provided to look like you want, just a case of comparing topic.asp with forum.asp to see how it's done.


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

UnderRated
Starting Member

Portugal
39 Posts

Posted - 13 April 2005 :  19:11:49  Show Profile  Visit UnderRated's Homepage
Here's one

For the forum.asp replace with this

sub DropDownPaging(fnum)
dim PagesToShow
PagesToShow=3
Response.Write(" <form name=""PageNum" & fnum & """ action=""topic.asp"">" & vbNewLine)
Response.Write(" <td class=header nowrap><font size=""" & strDefaultFontSize & """>" & vbNewLine)
if maxpages>1 then
response.write "Page "
Response.Write(" <form name=""PageNum" & fnum & """ action=""topic.asp"">" & vbNewLine)
Response.Write(" <td class=header nowrap><font size=""" & strDefaultFontSize & """>" & vbNewLine)
if mypage-PagesToShow<1 then MinPageToShow=1 else MinPageToShow=mypage-PagesToShow
if mypage+PagesToShow>maxpages then MaxPageToShow=maxpages else MaxPageToShow=mypage+PagesToShow
if MinPageToShow>1 then response.write " <a href=""forum.asp?"&ArchiveLink&"FORUM_ID="&Forum_ID&"&whichpage=1"&SearchLink&""">«</a>"
for counter=MinPageToShow to MaxPageToShow

if counter<>mypage then response.write " <a href=""forum.asp?"&ArchiveLink&"FORUM_ID="&Forum_ID&"&whichpage="&counter&SearchLink&""">"&counter&"</a>" else response.write " <strong>"&counter&"</strong>"
Response.Write(" <form name=""PageNum" & fnum & """ action=""topic.asp"">" & vbNewLine)
Response.Write(" <td class=header nowrap><font size=""" & strDefaultFontSize & """>" & vbNewLine)
next

if MaxPageToShow<maxpages then response.write " <a href=""forum.asp?"&ArchiveLink&"FORUM_ID="&Forum_ID&"&whichpage="&maxpages&SearchLink&""">»</a>"
response.write " (of "&maxpages&")"
else
response.write " <strong>1</strong> (of 1)"
end if
response.write "</td>"
top="0"
end sub

and for the topic.asp replace with this one

sub DropDownPaging(fnum)
dim PagesToShow
PagesToShow=3
Response.Write(" <form name=""PageNum" & fnum & """ action=""topic.asp"">" & vbNewLine)
Response.Write(" <td class=header nowrap><font size=""" & strDefaultFontSize & """>" & vbNewLine)
if maxpages>1 then
response.write "Page "
if mypage-PagesToShow<1 then MinPageToShow=1 else MinPageToShow=mypage-PagesToShow
if mypage+PagesToShow>maxpages then MaxPageToShow=maxpages else MaxPageToShow=mypage+PagesToShow
if MinPageToShow>1 then response.write " <a href=""topic.asp?"&ArchiveLink&"TOPIC_ID="&Topic_ID&"&whichpage=1"&SearchLink&""">«</a>"
for counter=MinPageToShow to MaxPageToShow
if counter<>mypage then response.write " <a href=""topic.asp?"&ArchiveLink&"TOPIC_ID="&Topic_ID&"&whichpage="&counter&SearchLink&""">"&counter&"</a>" else response.write " <strong>"&counter&"</strong>"
next
if MaxPageToShow<maxpages then response.write " <a href=""topic.asp?"&ArchiveLink&"TOPIC_ID="&Topic_ID&"&whichpage="&maxpages&SearchLink&""">»</a>"
response.write " (of "&maxpages&")"
else
response.write " <strong>1</strong> (of 1)"
end if
response.write "</td>"
top="0"
end sub

and it should look like this
Go to Top of Page
Page: of 2 Previous Topic Topic Next Topic  
Previous Page
 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.32 seconds. Powered By: Snitz Forums 2000 Version 3.4.07