© Steelco. All right reserved. - Ala Data System - Recommended Resolution 1024 X 768 <% dim mysite, mon, referer 'below we must enter the full name of our site mysite = "http://www.steelco.it/default.asp" mon = len ( mysite) referer = request.servervariables ("HTTP_REFERER") Set Fil = CreateObject ("Scripting.FileSystemObject") Set inf = Fil.OpenTextFile (Server.MapPath ("contatore.txt"), 1, true) text = inf.ReadLine () inf.Close Set inf = Nothing if session ("visited") <> "yes" and left (referer, mon) <> left (mysite, mon) then text = text + 1 session ("visited") = " yes "end if Set out = Fil.CreateTextFile (Server.MapPath (" counter.txt "), true) out.WriteLine (text) out. Visits: <% = text%> To view the page correctly, download the Flash Plug-in click here