<%@LANGUAGE="VBSCRIPT"%>
<%
dim miosito,lun
dim numtesto
dim testo
const fsoForReading = 1
' qui sotto dobbiamo inserire il nome completo del nostro sito
'miosito="http://www.scarazzai.com"
'lun=24
if Session("visitato")= "" then
Session("visitato") = "no"
end if
Set Fil=CreateObject("Scripting.FileSystemObject")
Set inf = Fil.OpenTextFile(Server.MapPath("\public\contatoreITA.txt"),fsoForReading,true)
testo = trim(inf.ReadLine())
numtesto=int(testo)
inf.Close
Set inf = Nothing
if Session("visitato") <> "si" then 'and left(referer,lun) <> left(miosito,lun) then '
numtesto=numtesto + 1
Session("visitato") = "si"
Set out=Fil.openTextFile(Server.MapPath("\public\contatoreITA.txt"),2)
testo = CStr(numtesto)
out.WriteLine (trim(testo))
out.Close
end if
Set out=Nothing
Set Fil=Nothing
%>
B&B el Palaz