|
Gateway Freight Systems (GFS) is a leading freight company operating
through Egypt, providing high quality House Hold Moving services to individual
and corporate clients. It was established 1998, based on an international
household goods moving concept for the Japanese community in Egypt.
Quickly, Gateway became one of the largest companies of its type in
Egypt.
Gateway Freight Systems Provides a Wide range of Integrated Logistics
Solutions, GFS Core Business Activities Include Air/Sea Freight forwarding.
FCL, LCL and general cargo services from/to major ports and markets round the
globe, regardless of the size and weight of your shipments, we give you the best
choice that meets your requirements.
Inbound and Outbound Door- to Door Worldwide, Ground & Road Transport,
Consolidations Licensed Customs Clearance Household Goods Moving and Project
Forwarding.
We arrange full Logistics plans and ensure that goods on time at requested
place.
By constantly investing in the development of staff through the training,
Gateway Can say with confidence that it possesses the experiences, the
logistics know-how, And above all, the people, to ensure that every client
receives the highest possible level of personal attention. | 
<%
' Declare variables
Dim ObjCounterFile, ReadCounterFile, WriteCounterFile
Dim CounterFile
Dim CounterHits
Dim FixedDigitCount
Dim DigitCount
Dim DigitCountLength
Dim DigitZerosToAdd
Dim DigitZeroCount
Dim ShowDigits
Dim DigitPath
' (FixedDigitCount) will add zeros to the front of your count
' if the count is less then the (FixedDigitCount)
' just like "frontpage" counters let you do
FixedDigitCount = 5
DigitPath = "/images/digits/fblue"
On Error Resume Next
Set ObjCounterFile = Server.CreateObject("Scripting.FileSystemObject")
CounterFile = ("d:\ftp\gatewayeg/shared/read_write/counter.txt")
Set ReadCounterFile= ObjCounterFile.OpenTextFile (CounterFile, 1, True)
If Not ReadCounterFile.AtEndOfStream Then
CounterHits = Trim(ReadCounterFile.ReadLine)
If CounterHits = "" Then CounterHits = 0
Else
CounterHits = 0
End If
ReadCounterFile.Close
Set ReadCounterFile = Nothing
CounterHits = CounterHits + 1
Set WriteCounterFile= ObjCounterFile.CreateTextFile (CounterFile, True)
WriteCounterFile.WriteLine(CounterHits)
WriteCounterFile.Close
Set WriteCounterFile = Nothing
Set ObjCounterFile = Nothing
DigitCountLength = Len(CounterHits)
If DigitCountLength < FixedDigitCount Then
DigitZerosToAdd= FixedDigitCount - DigitCountLength
DigitZeroCount = 1
For DigitZeroCount = DigitZeroCount to DigitZerosToAdd
ShowDigits = ShowDigits & "
