<%
Application.Lock
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
' Set HtFile = FileObject.OpenTextFile (Server.MapPath("/counts") + "\rileycnt.txt")
Set HtFile = FileObject.OpenTextFile ("c:\inetpub\wwwroot\counts\rileycnt.txt")
Application("rileyhits") = HtFile.Readline
If Not IsNumeric(Application("rileyhits")) Then
Application("rileyhits") = 1
else
Application("rileyhits") = Application("rileyhits") + 1
End if
Set OutFile = FileObject.CreateTextFile ("c:\inetpub\wwwroot\counts\rileycnt.txt", TRUE, FALSE)
OutFile.WriteLine(application("rileyhits"))
Set Outfile = Nothing
Set FileObject = Nothing
' response.write " Welcome, you are visitor number " & Application("rileyhits") & "
"
Application.Unlock
%>
For comments or questions please contact webmaster@car-nection.com.
If you are a supplier of Riley parts or services you can advertise on this page and/or others on this site.