Untitled Document

<% strConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("visitantes/reg_visitas.mdb") Set cnn = Server.CreateObject("ADODB.Connection") cnn.Open strConnectionString strSQL = "INSERT INTO visitantes (ip, hora) VALUES ('" & request.servervariables("remote_addr") & "','" & now() & "')" cnn.Execute strSQL,,adCmdText + adExecuteNoRecords Set rs = Server.CreateObject("ADODB.Recordset") rs.CursorType = 3 rs.Open "SELECT * FROM bloqueo", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("visitantes/reg_visitas.mdb") do until rs.EOF if request.servervariables("remote_addr") = rs ("bloqueo") then%> <% end if rs.movenext loop%> Untitled Document

GRUPO SCOUT PINAR	<% u_ip=request.servervariables("remote_addr") %>


Tu ip: <%= u_ip %>		<% '/**/comentado por javi pa quitar errores 19/05/2005 'Dim fsoObject 'Dim tsObject 'Dim filObject 'Dim lngVisitorNumber 'Dim intWriteDigitLoopCount 'Set fsoObject = Server.CreateObject("Scripting.FileSystemObject") 'Set filObject = fsoObject.GetFile(Server.MapPath("http://msc.scouts-es.net/pinar/contador/hit_count.txt")) 'Set tsObject = filObject.OpenAsTextStream 'lngVisitorNumber = CLng(tsObject.ReadAll) 'lngVisitorNumber = lngVisitorNumber + 1 'Set tsObject = fsoObject.CreateTextFile(Server.MapPath("http://msc.scouts-es.net/pinar/contador/hit_count.txt")) 'tsObject.Write CStr(lngVisitorNumber) 'Set fsoObject = Nothing 'Set tsObject = Nothing 'Set filObject = Nothing 'Response.Write(lngVisitorNumber) %> Visitas