Visitor: <% on error resume next 'cipta objek fail sistem Set objFSO = CreateObject("Scripting.FileSystemObject") 'this is the path to our counter file FailKira = Server.MapPath("kira.txt") Set objkira = objFSO.OpenTextFile(FailKira) kirapelawat = CLng(objkira.ReadLine) if Session("kirapelawat") = "" then Session("kirapelawat") = kirapelawat kirapelawat = kirapelawat + 1 objkira.close Set objkira = objFSO.CreateTextFile(FailKira, True) objkira.WriteLine(kirapelawat) end if objkira.Close 'papar bilangan pelawat Response.Write kirapelawat %>