GeoLiteCity em asp

[kania 0]

Olá pessoal, alguém já conseguiu algum tutorial do GeoLiteCity da http://www.maxmind.com para asp?

Vasculhei a net e só encontrei exemplos em php.

Até achei um em asp porem não do GeoLiteCity mas sim do GeoIP.

 

Se alguém souber algo vai me ajudar bastante.

[kania 0]

Gente acabei achando outro componente de GeoIp na net, agora esotu tentando pegar os dados dele via xml, podem me dar uma mão:

 

Aqui o retorno da url

 

<HostipLookupResultSet version="1.0.1" xmlns:gml="http://www.opengis.net/gml" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:noNamespaceSchemaLocation="http://www.hostip.info/api/hostip-1.0.1.xsd">
<gml:description>
This is the Hostip Lookup Service
</gml:description>
<gml:name>
hostip
</gml:name>
<gml:boundedBy>
<gml:Null>
inapplicable
</gml:Null>
</gml:boundedBy>
<gml:featureMember>
<Hostip>
<ip>
200.175.4.31
</ip>
<gml:name>
Curitiba
</gml:name>
<countryName>
BRAZIL
</countryName>
<countryAbbrev>
BR
</countryAbbrev>
<!-- Co-ordinates are available as lng,lat -->
<ipLocation>
<gml:pointProperty>
<gml:Point srsName="http://www.opengis.net/gml/srs/epsg.xml#4326">
<gml:coordinates>
-49.2833,-25.4167
</gml:coordinates>
</gml:Point>
</gml:pointProperty>
</ipLocation>
</Hostip>
</gml:featureMember>
</HostipLookupResultSet>

 

Meu Script

 

ip_usuario = Request.ServerVariables("REMOTE_ADDR")

' creating an object of XMLDOM
Set objXML = Server.CreateObject("Microsoft.XMLDOM")
objXML.setProperty "ServerHTTPRequest", True
objXML.async = False

'Locating our XML database
objXML.Load("http://api.hostip.info/get_xml.php?ip="&ip_usuario)
If objXML.parseError.errorCode <> 0 Then
Response.Write "<p><font color=red>A Url está incorreta.</font></p>"
Response.End
End If

Set objLst = objXML.getElementsByTagName("Hostip")

For i = 0 To objLst.Length - 1 
Set subLst = objLst.item(i)
Response.Write "<strong>IP:</strong> "&subLst.childNodes(0).childNodes(0).Text
Response.Write "<br><strong>Cidade:</strong> "&subLst.childNodes(1).childNodes(0).Text
Response.Write "<br><strong>Pais:</strong> "&subLst.childNodes(2).childNodes(0).Text
Response.Write "<br><strong>Sigla Pais:</strong> "&subLst.childNodes(3).childNodes(0).Text
Next

 

A principio tudo correto porem como pego o item do nó gml:coordinates? Só falta ele para pegar que é a latitude e longitude

[saloeric 1]

tinha aqui uma classe que dava para recolher os dados mas não estou a conseguir postar o fórum está a cortar a meio...

[kania 0]

Opa saloeric, se quiser me mandar no e-mail jorgekania@hotmail.com.

Obbrigado

 

Gente, vejam só que estranho, eu tensto o código acima em nosso servidor interno e ele roda certinho, porem quando rodo no servidor Dedicado da Locaweb ele sempre diz que a Urlestá incorreta vejam http://www.buscapremiada.com.br/maxmind/exemploGeoIP.asp

 

Script

 

Server.ScriptTimeout = 2000
'ip_usuario = Request.ServerVariables("REMOTE_ADDR")
ip_usuario = "200.176.3.142"
Url = "http://api.hostip.info/get_xml.php?ip="&ip_usuario&""
Response.Write ip_usuario&"<br>"&Url&"<br>"

' creating an object of XMLDOM
Set objXML = Server.CreateObject("Microsoft.XMLDOM")
objXML.setProperty "ServerHTTPRequest", True
objXML.async = False

'Locating our XML database
objXML.Load(Url)
If objXML.parseError.errorCode <> 0 Then
Response.Write "<p><font color=red>A Url está incorreta.</font></p>"
Response.End
End If

Set objLst = objXML.getElementsByTagName("Hostip")

For i = 0 To objLst.Length - 1 
Set subLst = objLst.item(i)
Response.Write "<strong>IP:</strong> "&subLst.childNodes(0).childNodes(0).Text
Response.Write "<br><strong>Cidade:</strong> "&subLst.childNodes(1).childNodes(0).Text
Response.Write "<br><strong>Pais:</strong> "&subLst.childNodes(2).childNodes(0).Text
Response.Write "<br><strong>Sigla Pais:</strong> "&subLst.childNodes(3).childNodes(0).Text
'Response.Write "<br><strong>Latitude:</strong> "&subLst.childNodes(4).childNodes(0).Text
Next

[xanburzum 169]

ele gera algum número de erro ?

[kania 0]

Então xanburzum, da erro 500 somente, não apresenta o erro em si, segundo o pessoal da LocaWeb quando eles configuram uma página especifica para o erro 404 automaticamente eles desabilitam o debug do asp por questões de segurança do servidor dedicado, porem este motivo acabo não conseguindo ver exatamente onde é o erro, porem como falei, aqui no servidor interno não apresenta este erro, logo deduzo que o problema deve estar com o componente Microsoft.XMLDOM ou o método ServerHTTPRequest, mas como saber o que esta acontecendo? ai vem outra pegunta, é possível simular nestes casos o erro e identifica-lo de outra forma um vez que o debug do asp esta desativado?

[jrcardozo 4]

Seu problema está no servidor remoto. Coloquei no meu servidor

 

http://sirimania.com.br/geoip.asp

 

Veja com o suporte se não há algum lugar no painel para ver o log de erros, normalmente eles fornecem essa informação.

 

 

Opa saloeric, se quiser me mandar no e-mail jorgekania@hotmail.com.

Obbrigado

 

Gente, vejam só que estranho, eu tensto o código acima em nosso servidor interno e ele roda certinho, porem quando rodo no servidor Dedicado da Locaweb ele sempre diz que a Urlestá incorreta vejam http://www.buscaprem...xemploGeoIP.asp

 

Script

 

Server.ScriptTimeout = 2000
'ip_usuario = Request.ServerVariables("REMOTE_ADDR")
ip_usuario = "200.176.3.142"
Url = "http://api.hostip.info/get_xml.php?ip="&ip_usuario&""
Response.Write ip_usuario&"<br>"&Url&"<br>"

' creating an object of XMLDOM
Set objXML = Server.CreateObject("Microsoft.XMLDOM")
objXML.setProperty "ServerHTTPRequest", True
objXML.async = False

'Locating our XML database
objXML.Load(Url)
If objXML.parseError.errorCode <> 0 Then
Response.Write "<p><font color=red>A Url está incorreta.</font></p>"
Response.End
End If

Set objLst = objXML.getElementsByTagName("Hostip")

For i = 0 To objLst.Length - 1 
Set subLst = objLst.item(i)
Response.Write "<strong>IP:</strong> "&subLst.childNodes(0).childNodes(0).Text
Response.Write "<br><strong>Cidade:</strong> "&subLst.childNodes(1).childNodes(0).Text
Response.Write "<br><strong>Pais:</strong> "&subLst.childNodes(2).childNodes(0).Text
Response.Write "<br><strong>Sigla Pais:</strong> "&subLst.childNodes(3).childNodes(0).Text
'Response.Write "<br><strong>Latitude:</strong> "&subLst.childNodes(4).childNodes(0).Text
Next