| Author |
 Topic  |
|
@tomic
Senior Member
USA
1790 Posts |
 Posted - 26 September 2002 : 05:15:04
|
My Forum Themes for 3.4 by @tomic
Initial Release September 26, 2002
Updated December 19, 2002
Added support for using this and the My Personalization MOD simultaneously.
Download it at:
http://www.skepticfriends.org/download/myforumthemes34.zip
Alternate Download(SnitzBitz):
http://www.snitzbitz.com/mods/details.asp?Version=All&mid=64
Demo available at:
http://www.skepticfriends.org/forum2/
Username: demo
Password: demo
This MOD allows each forum to have it's own unique set of variables.
(Colors,Fonts, Title Image etc)
Files to upload:
my_themes2.asp
my_forum_config.asp
dbs_my_forum_theme.asp
Files to edit:
inc_header.asp
amin_home.asp
Upload these 3 files to your forum directory and run the database script which adds 1 new field to FORUM_FORUM called F_THEME_ID. The one to run is called My Forum Themes V3.4
----------------------------------------------
Open inc_header.asp
Look for:
set my_Conn = Server.CreateObject("ADODB.Connection")
my_Conn.Open strConnString
Immediately below it add:
%>
<!--#include file="my_theme2.asp"-->
<%
OPTIONAL
If you want to use this MOD and the My Personalization Themes at the same time use this code in inc_header.asp and inc_header_short.asp:
if not Request.Cookies(strUniqueID & "User")("Name") = "" then
'##Get Member Page Configuration from Table FORUM_MY_CONFIG
id = getMemberID(Request.Cookies(strUniqueID & "User")("Name"))
strSQL = "SELECT THEME_ID FROM " & strTablePrefix & "MY_CONFIG WHERE MEMBER_ID='" & id & "'"
Set objRS = my_Conn.Execute(strSQL)
if objRS.EOF then
themeid = 0 'default theme is named as zero
else
themeid = objRS("THEME_ID")
end if
objRS.Close
set objRS = Nothing
else
themeid = 0 'not logged in
End if
If themeid <> "0" then
%>
<!--#include file="my_theme.asp"-->
<%
else
%>
<!--#include file="my_theme2.asp"-->
<%
end if
What this does is check to see if you have selected a theme. If not then your themeid is 0 so the code goes to the My Forum Themes as set by admin and uses whatever themes you have selected for your forums. You could reverse this if you want. But this way you get to levels of customization.
1. User selected themes
2. Admin Selected themes
------------------------------------------------
Open admin_home.asp
Look for:
" <LI><span class=""spnMessageText""><a href=""javascript:openWindow3('admin_config_order.asp')"">Category/Forum Order Configuration</a></span></LI>" & vbNewLine & _
Immediately below it add:
" <LI><span class=""spnMessageText""><a href=""javascript:openWindow3('my_forum_config.asp')"">Forum Theme Configuration</a></span></LI>" & vbNewLine & _
That's it! Now just go into your admin area and select the color themes you wish each forum to be. The default is zero and all start out this way. You can edit the themese to be whatever you want. You can even have a unique Title Image for each forum. If you create an entirely new theme you will need to add the name of it and it's ID to my_forum_config.asp to the select box.
Have fun!
@tomic |
SportsBettingAcumen.com |
Edited by - @tomic on 29 December 2002 05:43:05 |
|
|
Bassman
Junior Member
Netherlands
256 Posts |
Posted - 26 September 2002 : 10:53:31
|
Very nice Tomic  works in 5 min.
But in the readme.txt you only point to the "Open inc_header.asp". i ges i need to add the code also in inc_header_shot.asp !
Thanks. |
 |
|
|
@tomic
Senior Member
USA
1790 Posts |
|
|
PeeWee.Inc
Senior Member
United Kingdom
1893 Posts |
Posted - 26 September 2002 : 13:49:31
|
just bout to add this to my forum.
I was thinking of this while at work today and it was goin to be my first mod but no need now, thanx for saving my time  |
De Priofundus Calmo Ad Te Damine |
|
|
|
PeeWee.Inc
Senior Member
United Kingdom
1893 Posts |
Posted - 26 September 2002 : 14:04:45
|
| I just added it but, all i want it for is to have new banner/titles on each forum, i cant work out how to add/make your own theme |
De Priofundus Calmo Ad Te Damine |
|
|
|
@tomic
Senior Member
USA
1790 Posts |
Posted - 26 September 2002 : 14:11:14
|
If that's all you want then this MOD is overkill. You would be better off with a MOD that just changes the banner/titles. Although this one can do that. You don't even need to make a new theme. You would just rename the theme, chop out all the color/font references and have only title image and text.
@tomic |
SportsBettingAcumen.com |
|
|
|
PeeWee.Inc
Senior Member
United Kingdom
1893 Posts |
Posted - 26 September 2002 : 14:25:39
|
Case 15 '####"BlacknBlue"
strDefaultFontFace = "Verdana, Arial, Helvetica" 'Default Font Face
strDefaultFontSize = 1
strHeaderFontSize = 2
strFooterFontSize = 1
strPageBgColor = "000000"
strDefaultFontColor = "FFFFFF"
strLinkColor = "6699CC"
strLinkTextDecoration = "underline"
strVisitedLinkColor = "6699CC"
strVisitedTextDecoration = "underline"
strActiveLinkColor = "6699CC"
strHoverFontColor = "FFFFFF"
strHoverTextDecoration = "underline"
strHeadCellColor = "000033"
strHeadFontColor = "FFFFFF"
strCategoryCellColor = "003366"
strCategoryFontColor = "FFFFFF"
strForumFirstCellColor = "191944"
strForumCellColor = "191944"
strAltForumCellColor = "191919"
strForumFontColor = "FFFFFF"
strForumLinkColor = "6699CC"
strTableBorderColor = "003366"
strPopUpTableColor = "191944"
strPopUpBorderColor = "003366"
strNewFontColor = "FFFFFF"
would i add
strNewTitle = "Title.gif"
to have a new title/header? ("Title.gif being the name of the new gif i want to use)
<option value="16" <% if rsForum("F_THEME_ID")="15" then Response.Write("selected")%>>bravo</option>
what other things?
|
De Priofundus Calmo Ad Te Damine |
|
|
|
@tomic
Senior Member
USA
1790 Posts |
Posted - 26 September 2002 : 14:29:34
|
quote:
would i add
strNewTitle = "Title.gif"
to have a new title/header? ("Title.gif being the name of the new gif i want to use)
<option value="16" <% if rsForum("F_THEME_ID")="15" then Response.Write("selected")%>>bravo</option>
Well, to be consistent I would make it:
strForumTitle = "My Title"
strTitleImage = "MyTitleImage.gif"
Careful with this part:
<option value="16" <% if rsForum("F_THEME_ID")="15" then Response.Write("selected")%>>bravo</option>
The part in red should be 16 or you will have problems. If you don;t want the colors and fonts to change, just delete them.
@tomic |
SportsBettingAcumen.com |
|
|
|
PeeWee.Inc
Senior Member
United Kingdom
1893 Posts |
Posted - 26 September 2002 : 14:33:28
|
| what would i add to My_forum_config.asp |
De Priofundus Calmo Ad Te Damine |
|
|
|
@tomic
Senior Member
USA
1790 Posts |
Posted - 26 September 2002 : 14:40:19
|
Only something like:
<option value="16" <% if rsForum("F_THEME_ID")="16" then Response.Write("selected")%>>New Wacky Theme</option> needs to be added to my_forum_config.asp in the appropriate area. If you don't intend to use anything than the title image I seriously suggest you use another MOD though.
@tomic |
SportsBettingAcumen.com |
|
|
|
@tomic
Senior Member
USA
1790 Posts |
Posted - 28 September 2002 : 01:18:25
|
This MOD allows for more than just colors. I have played with changing the icons and began a Halloween skin on my beta site. Does anyone have ideas to add to this functionality. Or even just an idea for a skin? I can easily include this in the download or provide a separate zip for people that would like to have completely unique sets of icons and colors.
@tomic |
SportsBettingAcumen.com |
|
|
|
@tomic
Senior Member
USA
1790 Posts |
Posted - 28 September 2002 : 01:20:22
|
I have also mae a MOD, so far unreleased for dynamic gradient headers, that I could include with this if desired so that the header/category images change to fit your theme. If you even want to bother with these.
@tomic |
SportsBettingAcumen.com |
|
|
|
PeeWee.Inc
Senior Member
United Kingdom
1893 Posts |
Posted - 28 September 2002 : 01:54:57
|
quote:
Originally posted by @tomic
I have also mae a MOD, so far unreleased for dynamic gradient headers, that I could include with this if desired so that the header/category images change to fit your theme. If you even want to bother with these.
@tomic
Yay! when is this goin to be up for download? |
De Priofundus Calmo Ad Te Damine |
|
|
|
@tomic
Senior Member
USA
1790 Posts |
Posted - 28 September 2002 : 03:28:06
|
Not sure yet. There are a few more things to add then I could provide the entire thing as a download. I have a few people working on on some skins I would like to include but I hope to be done by the end of the month. Don't quote me on that...
@tomic |
SportsBettingAcumen.com |
|
|
|
PeeWee.Inc
Senior Member
United Kingdom
1893 Posts |
Posted - 28 September 2002 : 12:17:21
|
| i'm goin to work on a new skin now, it will be dark... might be black or gray, would you like it when i'm done? |
De Priofundus Calmo Ad Te Damine |
|
|
|
@tomic
Senior Member
USA
1790 Posts |
Posted - 28 September 2002 : 12:24:21
|
Sure, I can include lots and lots of skin options and people can paste in which ones they want.
@tomic |
SportsBettingAcumen.com |
|
|
|
Topic |
|
Topic Locked
