Soler & Solca - Andorra

<% Set fs = CreateObject("Scripting.FileSystemObject") Wfile=server.mappath("\") & "\cgi-bin\counter386882.txt" on error resume next Set a = fs.OpenTextFile(Wfile) hits = Clng(a.ReadLine) hits = hits + 1 a.close if error then hits = 1 end if Set a = fs.CreateTextFile(Wfile,True) a.WriteLine(hits) a.Close %> <% =hits %>






	> Aquesta pàgina web està optimitzada per Internet Explorer 5.5 o superior. > Si no pot veure el botó Entra, descarregui el Flash Plug-in. > Esta pagina web està optimizada para Internet Explorer 5.5 o superior. > Si no puede ver el boton Entra, descarge el Flash Plug-in.