Objeto navigator
Publicado por Santi (1 intervención) el 10/05/2007 09:38:03
Bueno aki les dejo el codigo de una pagina ke me está volviendo loco... Es el index de la pagina y lo que hace es añadir un registro a la tabla visitas para llevar las estadísticas. Me interesaba guardar además de la IP, el pais de origen (para eso baje la clase GeoIP), el navegador y el sistema operativo.
El problema viene al intentar acceder con javascript al objeto navigator, para conocer navigator.appname i navigator.platform.
Me dice que el 'navigator' no está definido...
Si alguien fuera tan amable de encontrar el problema le estaría agradecido.
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<head>
<title>Bronkitis Krónika - Punk-Rock Palamós</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="estilos.css" rel="stylesheet" type="text/css" />
<script runat="server" language="JavaScript">
function navegador(){
return navigator.AppName;
}
function sistema(){
return navigator.platform;
}
</script>
</head>
<body>
<!--#include file=".\libPlantilla.asp"-->
<!--#include file=".\geoIP.asp"-->
<% call cabecera
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open Server.MapPath("mdb-database\dades.mdb")
set rs = Server.CreateObject("ADODB.RecordSet")
sql = "SELECT IP,pais, navegador, so, fecha FROM VISITAS"
rs.Open sql, conn, 3, 3
rs.Addnew
rs.Fields("IP") = request.ServerVariables("REMOTE_ADDR")
rs.Fields("navegador") = navegador()
rs.Fields("so") = sistema()
Dim oGeoIP,strErrMsg
Dim strIP,strCountryName
Set oGeoIP = New CountryLookup
oGeoIP.GeoIPDataBase = Server.MapPath("GeoIP.dat")
If oGeoIP.ErrNum(strErrMsg) <> 0 Then
Response.Write(strErrMsg)
Else
strIP = request.ServerVariables("REMOTE_ADDR")
strCountryName = oGeoIP.lookupCountryName(strIP)
strCountryCode = oGeoIP.lookupCountryCode(strIP)
End If
Set oGeoIP = Nothing
rs.Fields("pais") = strCountryName
rs.Fields("fecha") = date()
rs.update
rs.close
conn.close
set rs = nothing
set conn = nothing
'Response.Redirect("Noticias.asp")
call pie %>
</body>
</html>
El problema viene al intentar acceder con javascript al objeto navigator, para conocer navigator.appname i navigator.platform.
Me dice que el 'navigator' no está definido...
Si alguien fuera tan amable de encontrar el problema le estaría agradecido.
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<head>
<title>Bronkitis Krónika - Punk-Rock Palamós</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="estilos.css" rel="stylesheet" type="text/css" />
<script runat="server" language="JavaScript">
function navegador(){
return navigator.AppName;
}
function sistema(){
return navigator.platform;
}
</script>
</head>
<body>
<!--#include file=".\libPlantilla.asp"-->
<!--#include file=".\geoIP.asp"-->
<% call cabecera
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open Server.MapPath("mdb-database\dades.mdb")
set rs = Server.CreateObject("ADODB.RecordSet")
sql = "SELECT IP,pais, navegador, so, fecha FROM VISITAS"
rs.Open sql, conn, 3, 3
rs.Addnew
rs.Fields("IP") = request.ServerVariables("REMOTE_ADDR")
rs.Fields("navegador") = navegador()
rs.Fields("so") = sistema()
Dim oGeoIP,strErrMsg
Dim strIP,strCountryName
Set oGeoIP = New CountryLookup
oGeoIP.GeoIPDataBase = Server.MapPath("GeoIP.dat")
If oGeoIP.ErrNum(strErrMsg) <> 0 Then
Response.Write(strErrMsg)
Else
strIP = request.ServerVariables("REMOTE_ADDR")
strCountryName = oGeoIP.lookupCountryName(strIP)
strCountryCode = oGeoIP.lookupCountryCode(strIP)
End If
Set oGeoIP = Nothing
rs.Fields("pais") = strCountryName
rs.Fields("fecha") = date()
rs.update
rs.close
conn.close
set rs = nothing
set conn = nothing
'Response.Redirect("Noticias.asp")
call pie %>
</body>
</html>
Valora esta pregunta


0