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
 Richard's Announcement Mod
 New Topic  Topic Locked
 Printer Friendly
Next Page
Author Previous Topic Topic Next Topic
Page: of 2

ki5ck
New Member

69 Posts

Posted - 28 April 2001 :  23:05:18  Show Profile  Visit ki5ck's Homepage
Is there any way to get this mod to display ALL the announcements, instead of just the first one?



Paul Wood
SLT Webmaster

RichardKinser
Snitz Forums Admin

USA
16655 Posts

Posted - 28 April 2001 :  23:38:11  Show Profile
something like this?

http://www.websamba.com/dssdbs/forum/default.asp
Go to Top of Page

ki5ck
New Member

69 Posts

Posted - 29 April 2001 :  09:25:18  Show Profile  Visit ki5ck's Homepage
Something exactly like that. Can you post a text copy of the mod so I can see what changes are necessary to do that?

Thanks!

Paul Wood
SLT Webmaster
Go to Top of Page

RichardKinser
Snitz Forums Admin

USA
16655 Posts

Posted - 30 April 2001 :  00:40:14  Show Profile
If you want you can just e-mail me your default.asp and inc_top.asp files and I'll add the code for you.

I'll also e-mail you back the updated inc_announce.asp and view_announcements.asp files.
Go to Top of Page

rick7165
Senior Member

USA
1094 Posts

Posted - 30 April 2001 :  00:42:23  Show Profile  Visit rick7165's Homepage
Richard... Any way to get this mod from you?

Thanks,
Rick

Test Site
www.eastpasco.com
HuwR's SR4 release. Colors and Graphic scheme done by Richard Kinser.
Go to Top of Page

RichardKinser
Snitz Forums Admin

USA
16655 Posts

Posted - 30 April 2001 :  00:56:59  Show Profile
You mean the Announcements MOD, or the MOD to the Announcements MOD?
Go to Top of Page

rick7165
Senior Member

USA
1094 Posts

Posted - 30 April 2001 :  02:00:58  Show Profile  Visit rick7165's Homepage
The one you have setup on your site listed above.

Test Site
www.eastpasco.com
HuwR's SR4 release. Colors and Graphic scheme done by Richard Kinser.
Go to Top of Page

RichardKinser
Snitz Forums Admin

USA
16655 Posts

Posted - 30 April 2001 :  02:59:06  Show Profile
Here are the files (just right click and choose "Save Target As")

http://richard.cfm-resources.com/files/default.txt

In default.txt you will be looking for:

<!--#INCLUDE FILE="inc_announce2.asp" -->


http://richard.cfm-resources.com/files/inc_top.txt

In inc_top.txt you will be looking for:

function openAnnounceWindow(url) {
popupWin = window.open(url,'new_page','width=400,height=400,scrollbars=yes')
}


The last 2 files just use them as is:

http://richard.cfm-resources.com/files/inc_announce2.txt

http://richard.cfm-resources.com/files/view_announcements.txt

In your inc_top_short.asp add the following just before the closing %> that is right before <html>:

mLev = cint(ChkUser2(strDBNTUserName, Request.Cookies(strUniqueID & "User")("Pword")))
Go to Top of Page

rick7165
Senior Member

USA
1094 Posts

Posted - 30 April 2001 :  03:29:10  Show Profile  Visit rick7165's Homepage
Worked Great! Thanks...

How do I add the Colorstripe into that mod?

Response.Write "<table border=0 width=""100%"" align=""center"">" & vbCrLf & _
" <tr valign=""center"">" & vbCrLf & _
" <td>" & _
" <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><img src=""images/icon_announce.gif"" height=32 width=32 border=""0"" align=""middle"" alt=""Announcements"">  <a href=""javascript:openAnnounceWindow('view_announcements.asp')"">" & rsAnnounce("A_SUBJECT") & "</a></font></td>" & vbCrLf & _
" </tr>" & vbCrLf & _
"</table>" & vbCrLf

Test Site
www.eastpasco.com
HuwR's SR4 release. Colors and Graphic scheme done by Richard Kinser.
Go to Top of Page

RichardKinser
Snitz Forums Admin

USA
16655 Posts

Posted - 30 April 2001 :  03:32:44  Show Profile
Can you redownload inc_announce2.txt ? I fixed a few things on it.


In inc_announce2.asp on line #60

change this:

		       "          <td bgcolor=""" & strCategoryCellColor & """ colspan="""


to this:

		       "          <td background=""images/colorstripe.gif"" bgcolor=""" & strCategoryCellColor & """ colspan="""
Go to Top of Page

rick7165
Senior Member

USA
1094 Posts

Posted - 30 April 2001 :  03:38:35  Show Profile  Visit rick7165's Homepage
Didn't work...

" <tr valign=""center"">" & vbCrLf & _
" <td background=""images/colorstripe.gif"">" & _
" <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><img src=""images/icon_announce.gif"" height=32 width=32 border=""0"" align=""middle"" alt=""Announcements"">  <a href=""javascript:openAnnounceWindow('view_announcements.asp')"">" & rsAnnounce("A_SUBJECT") & "</a></font></td>" & vbCrLf & _
" </tr>" & vbCrLf & _
"</table>" & vbCrLf

Test Site
www.eastpasco.com
HuwR's SR4 release. Colors and Graphic scheme done by Richard Kinser.
Go to Top of Page

RichardKinser
Snitz Forums Admin

USA
16655 Posts

Posted - 30 April 2001 :  03:43:46  Show Profile
I updated the post above...
Go to Top of Page

rick7165
Senior Member

USA
1094 Posts

Posted - 30 April 2001 :  03:54:54  Show Profile  Visit rick7165's Homepage
LOL... It works.. Thanks

We must of been posting at the same time...


Thanks Again Richard!


Rick


Test Site
www.eastpasco.com
HuwR's SR4 release. Colors and Graphic scheme done by Richard Kinser.
Go to Top of Page

RichardKinser
Snitz Forums Admin

USA
16655 Posts

Posted - 30 April 2001 :  04:03:24  Show Profile
You're welcome
Go to Top of Page

ki5ck
New Member

69 Posts

Posted - 03 May 2001 :  11:57:32  Show Profile  Visit ki5ck's Homepage
Sorry, Richard, I've been out of town. I followed your directions and it works just fine! Exactly what I wanted.

Thanks!



Paul Wood
SLT Webmaster
Go to Top of Page

ki5ck
New Member

69 Posts

Posted - 03 May 2001 :  14:50:52  Show Profile  Visit ki5ck's Homepage
quote:


In your inc_top_short.asp add the following just before the closing %> that is right before <html>:

mLev = cint(ChkUser2(strDBNTUserName, Request.Cookies(strUniqueID & "User")("Pword")))




ACK! I thought it worked. But when I was adding a reply to a topic, I clicked on the smiley icon to add a smiley, and got the following error:

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'ChkUser2'

/forum/inc_top_short.asp, line 49

Line 49 is the one I added to inc_top_short.asp. It's the same as your post above, and I put it exactly where you said.

Help?

Paul Wood
SLT Webmaster
Go to Top of Page
Page: of 2 Previous Topic Topic Next Topic  
Next 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.3 seconds. Powered By: Snitz Forums 2000 Version 3.4.07