COMPTEUR DE HITS EN ASP .NET (VB) - ASP .NET COUNTER (VB)

<%@ Page Language="vb" %>
<%@ Import Namespace="System.IO" %>
<%@ Import Namespace="System.Web.UI.Webcontrols" %>
<%@ Import Namespace="Microsoft.VisualBasic" %>

<%
'Création des variables d'appel
Dim fichier as string
Dim objReader as StreamReader
Dim objWriter as StreamWriter

'Variable contenant le nom et l'emplacement du fichier
fichier = server.mappath("hits.txt")

'Si le fichier n'existe pas alors le créer en inscrivant le nombre 0
If not File.Exists(fichier) then 
objWriter  = File.CreateText(fichier)
objWriter.Write("0")
objWriter.Close
End if

'Lecture du fichier contenant le nombre de hits
objReader = File.OpenText(fichier)
Dim sCount as string = objReader.ReadToEnd()
objReader.Close

'Ecriture du fichier contenant le nombre de hits + 1
objWriter  = File.CreateText(fichier)
objWriter.Write(scount + 1)
objWriter.Close
scount = scount + 1

'Afficher à l'écran le nombre de hits obtenu
Response.Write (scount + " hits")
%>     

03 février 2005 21:53:31 :

07 mars 2006 20:59:51 :

Correction syntaxique du code

14 mai 2006 22:46:04 :

Correction syntaxique.