Line Counter source program (with source code)

<%
Buseimages = CBool (Request.QueryString ("Images"))
Strcountfilename = Server.MapPath (Request.ServerVariables ("Script_name") & ". Dat")
Set objFSO = Server.CreateObject ("Scripting.FileSystemObject")
' Open the ' file as a text stream (1 = ForReading, True = Create)
Set objcountfile = objFSO.OpenTextFile (strcountfilename, 1, True)
If not Objcountfile.atendofstream Then
icount = CLng (Objcountfile.readall)
Else
icount = 0
End If
Objcountfile.close
Set Objcountfile = Nothing
icount = icount + 1
Set objcountfile = objFSO.CreateTextFile (Strcountfilename, True)
Objcountfile.write icount
Objcountfile.close
Set Objcountfile = Nothing
Set objFSO = Nothing
If buseimages Then
For I = 1 to Len (icount)
Response.Write "Response.Write Mid (Icount, I, 1)
Response.Write ". gif" "alt=" ""
Response.Write Mid (Icount, I, 1)
Response.Write "" "Width=20 height=27>"
Next
Else
Response.Write icount
End If
%>