<%
Dim objFSO, objCountFile ' object vars for FSO and File
Dim strCountFileName ' filename of count text file
Dim iCount ' count variable
Dim UseImages ' boolean whether or not to use images
Dim I ' standard looping var
UseImages = False
strCountFileName = Server.MapPath("includes/counter.cnt")
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
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
%>
Indonesia's leading and most complete two-way radio communication
stop, Versakom offers the following range
of extensive products:
Amateur
Land Mobile
Marine
Request for More Information