

|
Communication
has to play an important role in any society whose members
are situated far and wide today, in this growing world. As such,
Telecommunications provide vital infrastructure.
|
|
Your active participation and cooperation will definitely provide us stimulant for improvements. |
<%
Dim fsoObject
Dim tsObject
Dim filObject
Dim lngVisitorNumber
Dim intWriteDigitLoopCount
Set fsoObject = Server.CreateObject("Scripting.FileSystemObject")
Set filObject = fsoObject.GetFile(Server.MapPath("hitcount.txt"))
Set tsObject = filObject.OpenAsTextStream
lngVisitorNumber = CLng(tsObject.ReadAll)
lngVisitorNumber = lngVisitorNumber + 1
Set tsObject = fsoObject.CreateTextFile(Server.MapPath("hitcount.txt"))
tsObject.Write CStr(lngVisitorNumber)
Set fsoObject = Nothing
Set tsObject = Nothing
Set filObject = Nothing
Response.Write("Visitor Number - ")
For intWriteDigitLoopCount = 1 to Len(lngVisitorNumber)
Response.Write("")
Next
%>