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
 Include location in sidebar... (under avatar)		  New Topic  Topic Locked
 Printer Friendly
Author Previous Topic Topic Next Topic  

techknow
Junior Member

USA
149 Posts
Posted - 12 September 2004 :  13:19:49  Show Profile  Visit techknow's Homepage
I have a client that would like to include the users location (i.e. California, Arkansas, Guam... Wherever) under their avatars.

It would seem to me that it would be relatively simple to implement. Of course I am a rookie.

Can anybody help?

This guy is keeping me really busy.
Best Regards,
Techknow
http://myinternetfunnies.com
Edited by - techknow on 12 September 2004 19:58:28

cripto9t
Average Member

USA
881 Posts
Posted - 13 September 2004 :  08:02:01  Show Profile
http://www.snitzbitz.com/mods/details.asp?Version=All&mid=111

I think you need the add on. It says it's for version 3.3, but it looks like 3.4 to me.

I have a drop down box for states somewhere. It would keep members from typing in La La Land or whatever. I'll post it here if I find it.
    _-/Cripto9t\-_
Go to Top of Page

cripto9t
Average Member

USA
881 Posts
Posted - 13 September 2004 :  11:51:41  Show Profile
if your interested, here's a state drop down box for profiles.


Copy and this code and save to your forum folder as "inc_statelist.asp"

<%

Response.Write  "                         <select name=""state"" size=""1"">" & vbNewLine
if strMode <> "Register" then
	Response.Write("                           <option selected value=""" & rs("M_STATE") & """>" & ChkString(rs("M_STATE"), "display") & "</option>" & vbNewLine)
else
	Response.Write	"                           <option value=""""></option>" & vbNewLine
end if
Response.Write	"                           <option value="""">None</option>" & vbNewLine
arrStates = array("Alabama","Alaska","Arizona","Arkansas","California","Colorado","Connecticut","Delaware","District of Columbia","Florida","Georgia","Hawaii","Idaho","Illinois","Indiana","Iowa","Kansas","Kentucky","Louisiana","Maine","Maryland","Massachusetts","Michigan","Minnesota","Mississippi","Missouri","Montana","Nebraska","Nevada","New Hampshire","New Jersey","New Mexico","New York","North Carolina","North Dakota","Ohio","Oklahoma","Oregon","Pennsylvania","Rhode Island","South carolina","South Dakota","Tennessee","Texas","Utah","Vermont","Virginia","Washington","West Virginia","Wisconsin","Wyoming")

for i = 0 to ubound(arrStates)
Response.Write  "                           <option value=""" & arrStates(i) & """>" & arrStates(i) & "</option>" & vbNewLine
next
Response.Write  "                         </select>" & vbNewLine
%>



Find this code in "inc_profile.asp" around line 319

	if strState = "1" then
		Response.Write	"                    <tr>" & vbNewLine & _
				"                      <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>State: </font></b></td>" & vbNewLine & _
				"                      <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""State"" size=""25"" maxLength=""50"" value="""
		if strMode <> "Register" then Response.Write(rs("M_STATE"))
		Response.Write	"""></font></td>" & vbNewLine & _
				"                    </tr>" & vbNewLine
	end if


Replace that with this

	if strState = "1" then
		Response.Write	"                    <tr>" & vbNewLine & _
				"                      <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>State: </font></b></td>" & vbNewLine & _
                                "                      <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine
%>
<!--#INCLUDE FILE="inc_statelist.asp""-->
<%
                 Response.Write	"                      </font></td>" & vbNewLine & _
				"                    </tr>" & vbNewLine
	end if
    _-/Cripto9t\-_
Go to Top of Page

techknow
Junior Member

USA
149 Posts
Posted - 13 September 2004 :  19:02:20  Show Profile  Visit techknow's Homepage
You The Man!


Now I just have to make the thing work.

Do I need to install the mod first? or can I just drop the code in?

Thanks in Advance~
Best Regards,
Techknow
http://myinternetfunnies.com
Go to Top of Page

cripto9t
Average Member

USA
881 Posts
Posted - 14 September 2004 :  07:16:03  Show Profile
The code I posted is for a drop down box with all the states in it. You don't need it for the mod. I just thought I'd throw it in . People are probably more likely to choose a state if they don't have to type it in.

The stuff at Snitz Bitz gives you the state in the author's box.
    _-/Cripto9t\-_
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 2.89 seconds. Powered By: Snitz Forums 2000 Version 3.4.07