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.

China Cargo
Alliance Co.LTD

Egyptian International
Freight Forwarding

International Federation
of Freight Forwarders

<% ' 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 & "" Next End If DigitCount = 1 For DigitCount = DigitCount to DigitCountLength ShowDigits = ShowDigits & "" Next %> <% =ShowDigits %>