Search Engine Optimization(SEO) Case study

Search Engine Optimization Solutions
Search Engine Optimization Consultation
SEO packages Search Engine Optimization Gold Pack Search Engine Optimization Silver Pack Search Engine Optimization Value Pack
Search Engine Optimization Search Engine Optimization Search Engine Optimization Search Engine Optimization


 








ePromotionz IP Tracker  





 
<% On Error Resume Next ad=request("ipadd") dim anscunt,regin,city,ip ip = ad if ad <> "" then %> <% country = Countryname(ad) Response.write ""& country &"" %>
IP Address <% Response.write "" & ip & "" %>
Country Name
<% else country="" ip="" Response.write "Please Enter IP Address" end if %>

 

This is IP Tracking Report by ePromotionz™ .



CONTACT US




Top Back


  Contact Us | Sitemap | Suggest Our Services | Privacy Policy
© Copyright 2003-2007 ePromotionz. All rights reserved.
http://www.ePromotionz.com/

<% Public Function Countryname(iptest) Dim intTemp Dim aryIP Dim IPnumber Dim rsCount1 aryIP=split(iptest,".") IPnumber = (Int(aryIP(0)) * 16777216) + (Int(aryIP(1)) * 65536) + (Int(aryIP(2)) * 256) + Int(aryIP(3)) dim db,dbf,MySql dim my_Conn,rs1,con Dim strTemp,strConn strTemp = "SERVER=64.239.114.137;Database=ip2location;UID=ruser;PWD=123456;" strConn = "DRIVER={SQL Server};" & strTemp Set con = Server.CreateObject("ADODB.Connection") con.Mode = 3 '3 = adModeReadWrite con.CommandTimeout = 120 con.ConnectionTimeout = 30 con.Open strConn set rs1=con.Execute("Select * from COUNTRY Where fromip<=" & IPnumber & " AND toip >=" & IPnumber & ";") If Not rs1.Eof Then intTemp = rs1("country_name") region = rs1("region") city = rs1("city") Else intTemp = "Unknown" End If rs1.Close Set rs1 = Nothing Dim tmlm tmlm = ""& intTemp & "" if region <> "-" then tmlm=tmlm & "City" tmlm=tmlm & "" & city & "" tmlm=tmlm & "Region" tmlm=tmlm & "" & region & "" end if Countryname = tmlm End Function %>