Il contatore azzurro da il numero di visitatori (persone) diversi che entrano almeno una volta nella giornata,invece quello verde da le visite totali nella giornata quindi conta anche le entrate multiple di un singolo visitatore

AZIONARIATO POPOLARE

Mischia

<% conn.Close %>

<% Set conn = Server.CreateObject("ADODB.Connection") conn.Open data Set rst = Server.CreateObject("ADODB.Recordset") sql="SELECT * FROM news Order By ID DESC" rst.cursorlocation=3 rst.Open sql, conn, 3, 3 If Request.QueryString("page") = "" Then iCurrentPage = 1 Else iCurrentPage = CInt(Request.QueryString("page")) End If rst.PageSize = 10 If rst.PageCount > 0 then rst.AbsolutePage = iCurrentPage Else iCurrentPage = 0 End If Session("CurrentPage") = iCurrentPage Do While rst.AbsolutePage = iCurrentPage And (not rst.EOF) %> <% rst.MoveNext Loop %>  <%= Server.HTMLEncode(rst("posted")) %> <%= Server.HTMLEncode(rst("titolo")) %>  <% response.write(Replace(Server.HTMLEncode(rst("messaggio")), vbCrLf," ")) %>

<% If rst.PageCount > 1 then 'Print Previous Page if required If iCurrentPage <> 1 then Response.Write "<<Prec" Else Response.Write "<<Prec" End If 'Print direct access page numbers. For intCount = 1 to rst.PageCount If intCount = 1 then Response.Write " | " End If If intCount = iCurrentPage then Response.Write "" & intCount & " | " Else Response.Write "" & intCount & " | " End If Next 'Print Next Page if required If iCurrentPage <> rst.PageCount then Response.Write "Succ>>" Else Response.Write "Succ>>" End If End If Response.Write " Pagina " & iCurrentPage & " di " & rst.PageCount & "" %>

Area riservata