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)
 Small add-on for the My Personalization Mod...
 New Topic  Topic Locked
 Printer Friendly
Author Previous Topic Topic Next Topic  

BikerBob
Junior Member

137 Posts

Posted - 03 December 2001 :  16:44:39  Show Profile
My first attempt at a mod, so to speak, was more of a copy and paste mod

I don't know if this will be usefull but, just thought I'd share it with u all. It does involve quite a bit of work, editing all the files.


This addon requires the My Personalization Mod 1.3, by Mohammmed Faizul Wahid, which was modified by Kenno (http://khmersite.net).
---------------------------------------------------------------------
First off make a backup of all your forum files before continuing, then

Copy the following files to your forum folder,

my_icons.asp
dbs_my_icons.asp

Create a folder "my_icons" and then add your icons to this folder, and just make
the appropriate changes to the "my_icons.asp"


Modified files, (only replace them if u have not made any changes to these files)

my_edit_config.asp
config.asp
---------------------------------------------------------------------

INSTALLATION INSTRUCTIONS.........
---------------------------------------------------------------------
Run the database Setup using Mod Setup in Admin configuration. Select
"My Icons" and click on update.

---------------------------------------------------------------------
Open "config.asp"

Around line 71, look for,

dim strVersion, strForumTitle, strCopyright, strTitleImage, strHomeURL, strForumURL, strCookieURL



And Add this code below it,

dim strIconFolder, strIconFolderArchive, strIconFolderArchived, strIconFolderClosedTopic, strIconFolderDelete, strIconFolderHold, strIconFolderHot, strIconFolderLocked, strIconFolderNew, strIconFolderNewHot, strIconFolderModerate, strIconFolderNewLocked, strIconFolderNewTopic, strIconFolderOpen, strIconFolderOpenTopic, strIconFolderPencil, strIconFolderUnlock, strIconFolderUnlocked, strIconFolderUnModerated




Around line 195, look for,

strTitleImage = Application(strCookieURL & "STRTITLEIMAGE")



And Add this code below it,

strIconFolder = Application(strCookieURL & "STRICONFOLDER")
strIconFolderArchive = Application(strCookieURL & "STRICONFOLDERARCHIVE")
strIconFolderArchived = Application(strCookieURL & "STRICONFOLDERARCHIVED")
strIconFolderClosedTopic = Application(strCookieURL & "STRICONFOLDERCLOSEDTOPIC")
strIconFolderDelete = Application(strCookieURL & "STRICONFOLDERDELETE")
strIconFolderHold = Application(strCookieURL & "STRICONFOLDERHOLD")
strIconFolderHot = Application(strCookieURL & "STRICONFOLDERHOT")
strIconFolderLocked = Application(strCookieURL & "STRICONFOLDERLOCKED")
strIconFolderNew = Application(strCookieURL & "STRICONFOLDERNEW")
strIconFolderNewHot = Application(strCookieURL & "STRICONFOLDERNEWHOT")
strIconFolderModerate = Application(strCookieURL & "STRICONFOLDERMODERATE")
strIconFolderNewLocked = Application(strCookieURL & "STRICONFOLDERNEWLOCKED")
strIconFolderNewTopic = Application(strCookieURL & "STRICONFOLDERNEWTOPIC")
strIconFolderOpen = Application(strCookieURL & "STRICONFOLDEROPEN")
strIconFolderOpenTopic = Application(strCookieURL & "STRICONFOLDEROPENTOPIC")
strIconFolderPencil = Application(strCookieURL & "STRICONFOLDERPENCIL")
strIconFolderUnlock = Application(strCookieURL & "STRICONFOLDERUNLOCK")
strIconFolderUnlocked = Application(strCookieURL & "STRICONFOLDERUNLOCKED")
strIconFolderUnModerated = Application(strCookieURL & "STRICONFOLDERUNMODERATED")



Thats it for config.asp
---------------------------------------------------------------------

Open "inc_top.asp"


Around line 41, look for:

my_Conn.Open strConnString

%>
<!--#include file="my_theme.asp"-->
<%

Add this code below it,

%>
<!--#include file="my_icons.asp"-->
<%



Thats it for inc_top.asp
---------------------------------------------------------------------

Open "my_edit_config.asp"


Around line 138, look for,

Case "ApplyTheme"

strSQL = "UPDATE " & strTablePrefix & "MY_CONFIG SET "
strSQL = strSQL & "THEME_ID='" & Request.QueryString("themeid") & "' "
strSQL = strSQL & "WHERE MEMBER_ID=" & id
'Response.Write strSQL
ObjDB.Execute(strSQL)
%>
<BR><BR><BR>
<center>

<font face="<%=strDefaultFontFace%>" size="<%=strHeaderFontSize%>" color="<%=strDefaultFontColor %>">New theme updated successfully!
<BR><BR><a href="<%=strForumURL%>my.asp">Return to your Personal Page</a>
<meta http-equiv="Refresh" content="3; URL=my_edit_config.asp">
<BR><BR>
</font>
</center>


Add this code below it,

<%
Case "ApplyIcon"

strSQL = "UPDATE " & strTablePrefix & "MY_CONFIG SET "
strSQL = strSQL & "ICON_ID='" & Request.QueryString("iconid") & "' "
strSQL = strSQL & "WHERE MEMBER_ID=" & id
'Response.Write strSQL
ObjDB.Execute(strSQL)
%>

<BR><BR><BR>
<center>

<font face="<%=strDefaultFontFace%>" size="<%=strHeaderFontSize%>" color="<%=strDefaultFontColor %>">New icons updated successfully!
<BR><BR>
<a href="<%=strForumURL%>my.asp">Return to your Personal Page</a>
<meta http-equiv="Refresh" content="3; URL=my_edit_config.asp">
<BR><BR>
</font>
</center>


Around line 238, look for,

<!--End code for Change Theme-->


Add this code below it,

<table width="100%">
<tr>
<td bgcolor="<%=strCategoryCellColor%>" colspan="100%">
<font face="<%=strDefaultFontFace%>" size="<%=strDefaultFontSize%>">
<img src="<% =strIconFolderOpen %>" border="0"> <B>Edit Icons</B></font>
</td>
</tr>

<tr>
<td align=center>
<font face="<%=strDefaultFontFace%>" size="<%=strDefaultFontSize%>">Currently Using Icons : <B>

<Form method="GET" action="my_edit_config.asp">
<select name="iconid">

<option value="0" <% if objRS("ICON_ID")="0" then Response.Write("selected")%>>Default</option>
<option value="1" <% if objRS("ICON_ID")="1" then Response.Write("selected")%>>Spider Blue Icons</option>

</select>
<input type="hidden" name="mode" Value="ApplyIcon">
<input type="submit" value="Apply Icon">
</form>
</B></font>

</td>
</tr>
</table>



Thats it for my_edit_config.asp
---------------------------------------------------------------------

Now the worst part is to edit all the files, to change the images to
the following variables,

icon_folder.gif = <% =strIconFolder %>
icon_folder_archive.gif = <% =strIconFolderArchive %>
icon_folder_archived.gif = <% =strIconFolderArchived %>
icon_folder_closed_topic.gif = <% =strIconFolderClosedTopic %>
icon_folder_delete.gif = <% =strIconFolderDelete %>
icon_folder_hold.gif = <% =strIconFolderHold %>
icon_folder_hot.gif = <% =strIconFolderHot %>
icon_folder_locked.gif = <% =strIconFolderLocked %>
icon_folder_new.gif = <% =strIconFolderNew %>
icon_folder_new_hot.gif = <% =strIconFolderNewHot %>
icon_folder_moderate.gif = <% =strIconFolderModerate %>
icon_folder_new_locked.gif = <% =strIconFolderNewLocked %>
icon_folder_new_topic.gif = <% =strIconFolderNewTopic %>
icon_folder_open.gif = <% =strIconFolderOpen %>
icon_folder_open_topic.gif = <% =strIconFolderOpenTopic %>
icon_folder_pencil.gif = <% =strIconFolderPencil %>
icon_folder_unlock.gif = <% =strIconFolderUnlock %>
icon_folder_unlocked.gif = <% =strIconFolderUnlocked %>
icon_folder_unmoderated.gif = <% =strIconFolderUnModerated %>


If image is located in a response.write statement then change it to,

icon_folder.gif = "& strIconFolder &"
icon_folder_archive.gif = "& strIconFolderArchive &"
icon_folder_archived.gif = "& strIconFolderArchived &"
icon_folder_closed_topic.gif = "& strIconFolderClosedTopic &"
icon_folder_delete.gif = "& strIconFolderDelete &"
icon_folder_hold.gif = "& strIconFolderHold &"
icon_folder_hot.gif = "& strIconFolderHot &"
icon_folder_locked.gif = "& strIconFolderLocked &"
icon_folder_new.gif = "& strIconFolderNew &"
icon_folder_new_hot.gif = "& strIconFolderNewHot &"
icon_folder_moderate.gif = "& strIconFolderModerate &"
icon_folder_new_locked.gif = "& strIconFolderNewLocked &"
icon_folder_new_topic.gif = "& strIconFolderNewTopic &"
icon_folder_open.gif = "& strIconFolderOpen &"
icon_folder_open_topic.gif = "& strIconFolderOpenTopic &"
icon_folder_pencil.gif = "& strIconFolderPencil &"
icon_folder_unlock.gif = "& strIconFolderUnlock &"
icon_folder_unlocked.gif = "& strIconFolderUnlocked &"
icon_folder_unmoderated.gif = "& strIconFolderUnModerated &"

---------------------------------------------------------------------


The file can be downloaded here http://freeaspcode.net/snitz/default.asp

just look for My Icons


rick7165
Senior Member

USA
1094 Posts

Posted - 03 December 2001 :  17:17:33  Show Profile  Visit rick7165's Homepage
You need to explain what this mod does. Some will never know.



Test Site:
EastPasco Huw's Code 3.3.10 SQL 2000
Snitz Mod Resource
Email
Go to Top of Page

BikerBob
Junior Member

137 Posts

Posted - 03 December 2001 :  17:20:30  Show Profile
ooops sorry, thought I had it all covered.

What it does, is allow the user to change the default folders, to a different set of folder icons.

Go to Top of Page

GauravBhabu
Advanced Member

4288 Posts

Posted - 03 December 2001 :  17:23:16  Show Profile
This will give the user to select a personal set of icons. Of course you need to provide the choice and make available different sets of icons for users to select. Nice.


GauravBhabu - It is difficult to IMPROVE on Perfection, There is no harm in Keep Trying.
Go to Top of Page

Kenno
Average Member

Cambodia
846 Posts

Posted - 03 December 2001 :  17:24:39  Show Profile  Visit Kenno's Homepage
Good job! I've done a similar way, but very unprofessional. Since I already have My Personalization installed, I just add the variables that whole the value of those icons, for example: strIconFolder = "xp/strIconFolder.gif" for my XP theme. Then I changed all variables that use the file name: "icon_folder.gif" to <% =strIconFolder %>.

I'll update to the one you have soon. :)

It's good to do the Impossible, But it's no longer call the impossible when it's doable.
Go to Top of Page

BikerBob
Junior Member

137 Posts

Posted - 03 December 2001 :  17:29:33  Show Profile
I was going to include spider food's set of blue icons which where available in the dl page of this site, but I was waiting for his permission to include them. If he does allow me, I will update the zip, and I am busy working on some new folder icons.

Go to Top of Page

rick7165
Senior Member

USA
1094 Posts

Posted - 04 December 2001 :  22:21:17  Show Profile  Visit rick7165's Homepage
Anyone get the dbs file to setup in SQL?

Test Site:
EastPasco Huw's Code 3.3.10 SQL 2000
Snitz Mod Resource
Email
Go to Top of Page

BikerBob
Junior Member

137 Posts

Posted - 05 December 2001 :  12:30:33  Show Profile
I took a look here,

http://forum.snitz.com/forum/topic.asp?TOPIC_ID=18522

but I can't see anything wrong with the way it is. Otherwise I'm missing something.

Go to Top of Page

rick7165
Senior Member

USA
1094 Posts

Posted - 05 December 2001 :  14:11:47  Show Profile  Visit rick7165's Homepage
I'll take a look at it later... It's not allowing me to insert NULLS


Test Site:
EastPasco Huw's Code 3.3.10 SQL 2000
Snitz Mod Resource
Email
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.56 seconds. Powered By: Snitz Forums 2000 Version 3.4.07