IP to Country

 
  <% 
   
  dim ipadress, ipno 
   
  ipadress = Request.ServerVariables("REMOTE_ADDR") 
   
  'ip yi donusturur. 
  mySplit = Split(ipadress, ".") 
  ipno = (mySplit(0)*(256*256*256)) + (mySplit(1)*(256*256)) + (mySplit(2)*256) + (mySplit(3)) 
   
  Dim conn, rs, strsql, accessdb, strconn 
  			 
  			' select MS-Access database using DSNless connection 
      		accessdb = server.mappath("access_db/iptocountry.mdb") 
  			strconn = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" 
  			strconn = strconn & accessDB & ";" 
  			Set conn = Server.CreateObject("ADODB.Connection") 
  			conn.open strconn 
  			 
  			' query string to lookup the country by matching the range of IP address number 
  			strsql = "SELECT * FROM iptocountry WHERE " & ipno & " BETWEEN ipFROM AND ipTO" 
  			 
  			' execute the query 
  			Set rs = conn.execute(strsql) 
  			 
  			' deneme 
  			If rs("countrySHORT") = "TR" Then 
  	             Response.write("tr") 
  	        Else 
                   Response.write("tr diil") 
              End if 
  			 
  			rs.close 
  			set rs = nothing 
  			conn.close 
  			set conn = nothing 
  			          
   %>