|
rick7165
Senior Member
USA
1094 Posts |
 Posted - 28 February 2001 : 06:46:48
|
Ok.. I've taken (Correct me if I'm wrong) Kycable's MOD And changed it from Country Flags to State Flags.
This MOD uses the US state flags in the Topics. I've got animated Flags for the MOD.
It needs some tweaking if anyone is interested in it let me know. It only requires
2 files to be mod. No DB changes are needed.
I would like to see the Country Flags work also, just haven't been able to get them
to run with the State Flags.
First time doing this.... So here goes. PLEASE NOTE: This was done on HuwR's MOD Forum:
Download Flags here: http://www.eastpasco.com/uploaded/admin/flags.zip
Open inc_profile.asp look for this code:
<tr>
<td bgColor="<% =strPopUpTableColor %>" align=right nowrap valign=top><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><FONT color=#ff0000>*</FONT> State: </font></b></td>
<td bgColor="<% =strPopUpTableColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><input name="State" value="<% =rs("M_STATE") %>"></font></td>
</tr>
and replace it with this code:
<tr>
<td bgColor="<% =strPopUpTableColor %>" align=right nowrap valign=top><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><FONT color=#ff0000>*</FONT> State: </font></b></td>
<td bgColor="<% =strPopUpTableColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><select name="State" size="1">
<option value="<% =RS("M_STATE") %>"><% = ChkString(rs("M_STATE"), "display") %></option>
<option value="Florida">Florida</option>
<option value="Alabama">Alabama</option>
<option value="Alaska">Alaska</option>
<option value="Arizona">Arizona</option>
<option value="Arkansas">Arkansas</option>
<option value="California">California</option>
<option value="Colorado">Colorado</option>
<option value="Connecticut">Connecticut</option>
<option value="Deleware">Deleware</option>
<option value="DC">DC</option>
<option value="Georgia">Georgia</option>
<option value="Hawaii">Hawaii</option>
<option value="Idaho">Idaho</option>
<option value="Illinois">Illinois</option>
<option value="Indiana">Indiana</option>
<option value="Iowa">Iowa</option>
<option value="Kansas">Kansas</option>
<option value="Kentucky">Kentucky</option>
<option value="Louisiana">Louisiana</option>
<option value="Maine">Maine</option>
<option value="Maryland">Maryland</option>
<option value="Massechusetts">Massechusetts</option>
<option value="Michigan">Michigan</option>
<option value="Minnesota">Minnesota</option>
<option value="Mississippi">Mississippi</option>
<option value="Missouri">Missouri</option>
<option value="Montana">Montana</option>
<option value="Nebraska">Nebraska</option>
<option value="Nevada">Nevada</option>
<option value="New Jersey">New Jersey</option>
<option value="New Mexico">New Mexico</option>
<option value="New York">New York</option>
<option value="New Hampshire">New Hampshire</option>
<option value="North Carolina">North Carolina</option>
<option value="North Dakota">North Dakota</option>
<option value="Ohio">Ohio</option>
<option value="Oklahoma">Oklahoma</option>
<option value="Oregon">Oregon</option>
<option value="Pennsylvania">Pennsylvania</option>
<option value="Rhode Island">Rhode Island</option>
<option value="South Carolina">South Carolina</option>
<option value="South Dakota">South Dakota</option>
<option value="Tennessee">Tennessee</option>
<option value="Texas">Texas</option>
<option value="Utah">Utah</option>
<option value="Vermont">Vermont</option>
<option value="Virginia">Virginia</option>
<option value="Washington">Washington</option>
<option value="West Virginia">West Virginia</option>
<option value="Wisconsin">Wisconsin</option>
<option value="Wyoming">Wyoming</option>
</select></font></td>
</tr>
Now open topic.asp:
Look for this code: Should be about line 380
<% if strShowRank = 2 or strShowRank = 3 then %>
<br><% = getStar_Level(rs("M_LEVEL"), rs("M_POSTS")) %>
<% end if %>
Add this Code right After the above code:
<br>
<% IF rs("M_STATE") <> "" THEN
strState= Replace(rs("M_STATE"), " ", "_") %>
<br><img src="<%=strImageURL %><% =strState %>.gif" height=32 width=50 alt="State" border="0">
<% end if %>
Now go down to about Line 550 and look for this code:
<% if strShowRank = 2 or strShowRank = 3 then %>
<br><% = getStar_Level(rs("M_LEVEL"), rs("M_POSTS")) %>
<% end if %>
Now place this code under the above code:
<br>
<% IF rs("M_STATE") <> "" THEN
strState= Replace(rs("M_STATE"), " ", "_") %>
<br><img src="<%=strImageURL %><% =strState %>.gif" height=32 width=50 alt="State" border="0">
<% END IF %>
Now just drop the Flags images into the image directory
NOTE: This is done with HuwR's MOD Forum CODE.
You can see the MOD Demo on my Test site.
My Site is Running on HuwR's Forum MOD Code. (Snitz SR4)
Thanks,
Rick
Test Site
www.eastpasco.com
Running on HuwR's SR4 release. Colors and Graphic scheme done by Richard Kinser.
Edited by - rick7165 on 28 February 2001 08:14:24
Edited by - rick7165 on 28 February 2001 08:19:14 |
|
Topic Locked
