IP to Country

Snitz™ Forums 2000
https://forum.snitz.com/forumTopic/Posts/69987?pagenum=1
05 November 2025, 01:31

Topic

Carefree
IP to Country
22 August 2011, 10:39


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.

 

Replies ...

superskytten1
24 August 2011, 04:24


carefree i think there is a small "error" in the read me file in the inc_header.asp kim smile


Carefree
24 August 2011, 17:33


I had to replace the symbols with gt & lt to prevent it interpreting them, sorry about that.
superskytten1
28 August 2011, 02:32


smile but nice work carefree,you do a GREAT job for snitz users, many thanks carefree
Carefree
28 August 2011, 17:53


You're welcome.
Todd
06 October 2011, 20:54


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

Code:
<%
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
07 October 2011, 19:30


Let me know what the output is after doing this:
Code:

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
08 October 2011, 11:04


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
08 October 2011, 14:05


Well, that should work. The issue must be that Image has removed the My_Conn definition.
Before line 3, insert this:
Code:

set my_Conn = Server.CreateObject("ADODB.Connection")
Todd
11 October 2011, 21:44


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.
© 2000-2021 Snitz™ Communications