zoom

SMS 082 927 3562 e-MAIL lioneld@sowetan.co.za or zoom@ananzi.co.za

SEND US IN ANY DIRECTION !! PARTNER WITH ZOOM TODAY !!

Our other services to help you: Any fetch, delivery, pick-up’s and drop-off's

Call us to collect your: old wash machine, stove’s ,fridge etc or old steel trow-away's etc

Send us in any direction for any of your emergency micro transporting needs

Friendly and honest service done according to your specification for all household and commercial company's.

Your support creates employment

Regards & keep safe !!!

Zoom Transport

Reliable, honest and safe transporting 7 days includes public holidays

Client Feedback:

Name:
E-mail:
Tel:
Comment:

<% Geturl = request.ServerVariables("server_name") FormatURL = mid(geturl,5) Const ForReading = 1, ForWriting = 2, ForAppending = 3 Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0 Dim fs, f, ts, s Set fs = CreateObject("Scripting.FileSystemObject") If fs.FolderExists("e:\inetpub\scripts\counters\" & FormatURL) = False then FormatFolder = fs.CreateFolder("e:\inetpub\scripts\counters\" & FormatURL) End If If fs.fileExists("e:\inetpub\scripts\counters\" & FormatURL & "\counter.txt") = True then Set f = fs.GetFile("e:\inetpub\scripts\counters\" & FormatURL & "\counter.txt") Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault) getnumber = ts.Readall If getnumber = "" then ts.Write("1") else getnumber = getnumber + 1 Set ts = f.OpenAsTextStream(ForWriting, TristateUseDefault) end if ts.Write(getnumber) ts.Close Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault) s = ts.ReadLine Else fs.CreateTextFile "e:\inetpub\scripts\counters\" & FormatURL & "\counter.txt" Set f = fs.GetFile("e:\inetpub\scripts\counters\" & FormatURL & "\counter.txt") Set ts = f.OpenAsTextStream(ForWriting, TristateUseDefault) ts.Write("1") Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault) s = ts.ReadLine End if %> Visitors : 0 <%response.write(s)%>