<%
'Detectamos el pais del usuario
pais = Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")
'A partir de los dos primeros caracteres detectamos el idioma
idioma = Left(pais, 2)
IPAddress = Request.ServerVariables("REMOTE_ADDR")
urldelavisita=request.serverVariables("HTTP_REFERER")
Software = Request.ServerVariables("SERVER_SOFTWARE")
Protocol = Request.ServerVariables("SERVER_PROTOCOL")
SET MyFileObject = Server.CreateObject("Scripting.FileSystemObject")
'Editar la ubicación del archivo segun corresponda
SET MyCouNtFile = MyFileObject.OpenTextFile(Server.MapPath("contador.txt"))
do while MyCouNtFile.AtEndOfStream <> true
Visitas = MyCouNtFile.ReadLine
loop
'cierra el objeto
MyCountFile.close
SET MyFileObject = Server.CreateObject("Scripting.FileSystemObject")
SET MyCouNtFile = MyFileObject.OpenTextFile(Server.MapPath("contador.txt"),8,true)
MyCountFile.WriteLine now
MyCountFile.WriteLine IPAddress
MyCountFile.WriteLine urldelavisita
MyCountFile.WriteLine idioma
MyCountFile.WriteLine pais
MyCountFile.WriteLine Visitas+1
MyCountFile.Close
%>
 
|
Neolab
Argentina |
José
de Amenábar 1673 5°A |
C1426AKD
-Capital Federal |
Tel/Fax:
+
54
11 4706 1692
|
|
|
Productos 
