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