IP to Country - نوشته شده در (2774 Views)
Advanced Member
Carefree
مطلب: 4224
4224
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.
 پیش‌فرض مرتب‌سازی برای تاریخ DESC به معنی جدیدترین است  
 تعداد در صفحه 
نوشته شده در
New Member
superskytten1
مطلب: 94
94
carefree i think there is a small "error" in the read me file in the inc_header.asp kim smile


نوشته شده در
Advanced Member
Carefree
مطلب: 4224
4224
I had to replace the symbols with gt & lt to prevent it interpreting them, sorry about that.
نوشته شده در
New Member
superskytten1
مطلب: 94
94
smile but nice work carefree,you do a GREAT job for snitz users, many thanks carefree
نوشته شده در
Advanced Member
Carefree
مطلب: 4224
4224
You're welcome.
نوشته شده در
New Member
Todd
مطلب: 63
63
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.
نوشته شده در
Advanced Member
Carefree
مطلب: 4224
4224
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
نوشته شده در
New Member
Todd
مطلب: 63
63
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.
نوشته شده در
Advanced Member
Carefree
مطلب: 4224
4224
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")
نوشته شده در
New Member
Todd
مطلب: 63
63
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.
 
شما باید یک متن وارد کنید