WWW.ROOTWEB.IT

Contatore di Accesso

  <% Language=VBScript %>
  <%
myfile = Server.MapPath("\public\layot1\contatore1") & "\" & "counter.txt"

  Set fs=CreateObject("Scripting.FileSystemObject")
  Set a=fs.OpenTextFile(myfile)
  visita=CInt(a.ReadLine)
  if Len(Session("visita"))=0 then 
   Session("visita")=visita
   visita=visita+1
  a.close
  Set a=fs.CreateTextFile(myfile, True)
  a.WriteLine(visita) 
  end if
  a.Close
  lung=CInt(Len(visita))
  visita=CStr(visita)
  
Response.Write "Sei il visitatore n. "
  for i=1 to lung 

   %>
  <img src = "immagini/cont<%=Mid(visita,  i, 1)%>.gif" align="middle">
  <%
  next

%>