Snitz Forums 2000
Snitz Forums 2000
Home | Profile | Register | Active Topics | Members | Search | FAQ
 All Forums
 Snitz Forums 2000 MOD-Group
 MOD Add-On Forum (W/Code)
 IP to Country

Note: You must be registered in order to post a reply.
To register, click here. Registration is FREE!
Before posting, make sure you have read this topic!

Screensize:
UserName:
Password:
Format Mode:
Format: BoldItalicizedUnderlineStrikethrough Align LeftCenteredAlign Right Horizontal Rule Insert HyperlinkInsert EmailInsert Image Insert CodeInsert QuoteInsert List
   
Message:

* HTML is OFF
* Forum Code is ON
Smilies
Smile [:)] Big Smile [:D] Cool [8D] Blush [:I]
Tongue [:P] Evil [):] Wink [;)] Clown [:o)]
Black Eye [B)] Eight Ball [8] Frown [:(] Shy [8)]
Shocked [:0] Angry [:(!] Dead [xx(] Sleepy [|)]
Kisses [:X] Approve [^] Disapprove [V] Question [?]

 
Check here to subscribe to this topic.
   

T O P I C    R E V I E W
Carefree Posted - 22 August 2011 : 10:39:44
This little mod adds a variable "strLocale" to the forum. The variable holds the actual country a visitor is in based upon IP lookup. I added it to the pending member registration but it can be used anywhere.
9   L A T E S T    R E P L I E S    (Newest First)
Todd Posted - 11 October 2011 : 21:44:54
I will try that, thanks. Makes sense. Will get back to you later this week, have bigger fish to fry right now. Appreciate the help and suggestions.
Carefree Posted - 08 October 2011 : 14:05:13
Well, that should work. The issue must be that Image has removed the My_Conn definition.

Before line 3, insert this:

set my_Conn = Server.CreateObject("ADODB.Connection")
Todd Posted - 08 October 2011 : 11:04:27
After adding those lines to inc_locale.asp all pages now return the following text.

SELECT IPSTART, IPEND, IPCOUNTRY FROM FORUM_IPTOCOUNTRY WHERE IPSTART <= '24.149.253.241' AND IPEND >= '24.149.253.241'

That is the IP I currently have on my client.
Carefree Posted - 07 October 2011 : 19:30:43
Let me know what the output is after doing this:

After this line:

strSql="SELECT IPSTART, IPEND, IPCOUNTRY FROM " & strTablePrefix & "IPTOCOUNTRY WHERE IPSTART <= '" & Request.ServerVariables("Remote_Addr") & "' AND IPEND >= '" & Request.ServerVariables("Remote_Addr") & "'"

Insert these lines:

Response.Write	strSql
Response.End
Todd Posted - 06 October 2011 : 20:54:44
Hi,

Once I include the inc_locale.asp in the header page I get the following error.

Microsoft VBScript runtime error '800a01a8'

Object required: ''

/tyco/forum/inc_locale.asp, line 3


My Locale.asp hasn't been changed from the code that was downloaded. Line 3 ends up being the Set rsLocale line

<%
strSql="SELECT IPSTART, IPEND, IPCOUNTRY FROM " & strTablePrefix & "IPTOCOUNTRY WHERE IPSTART <= '" & Request.ServerVariables("Remote_Addr") & "' AND IPEND >= '" & Request.ServerVariables("Remote_Addr") & "'"
Set rsLocale= my_Conn.Execute(strSql)
If NOT (rsLocale.BOF or rsLocale.EOF) Then
	strLocale=rsLocale("IPCOUNTRY")
	rsLocale.Close
End If
Set rsLocale = Nothing
%>



I have followed all the steps in the instructions. All 4 database mods were run.
Carefree Posted - 28 August 2011 : 17:53:12
You're welcome.
superskytten1 Posted - 28 August 2011 : 02:32:38
but nice work carefree,you do a GREAT job for snitz users, many thanks carefree
Carefree Posted - 24 August 2011 : 17:33:27
I had to replace the symbols with gt & lt to prevent it interpreting them, sorry about that.
superskytten1 Posted - 24 August 2011 : 04:24:45
carefree i think there is a small "error" in the read me file in the inc_header.asp kim




Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.04 seconds. Powered By: Snitz Forums 2000 Version 3.4.07