<% Sub GetFiles(ffolder) Dim oFS, oFolder, oFile Set oFS = Server.CreateObject("Scripting.FileSystemObject") Set oFolder = oFS.getFolder(FILE_FOLDER & "\" & ffolder) Dim FileArray() ReDim Preserve FileArray(oFolder.Files.Count, 1) Dim intCounter intCounter = 0 For Each oFile in oFolder.Files strFileName = oFile.Name strFileSize = oFile.Size strFilePath = oFile.Path FileArray(intCounter, 0) = strFileName FileArray(intCounter, 1) = "" & strFileName & "" intCounter = (intCounter + 1) Next intRows = uBound(FileArray, 1) intCols = uBound(FileArray, 2) For x = 0 To intRows -1 Echo("") For z = 0 To intCols If z > 0 Then BuildTableCol(FileArray(x, z)) End IF Next Echo("") Next end sub Function Echo(str) Echo = Response.Write(str & vbCrLf) End Function Function EchoB(str) EchoB = Response.Write(str & "
" & vbCrLf) End Function Sub Cleanup(obj) IF isObject(obj) Then Set obj = Nothing End IF End Sub Function StripFileName(strFile) StripFileName = Left(strFile, inStrRev(strFile, "\")) End Function Sub BuildTableCol(strData) Echo("" & strData & "") End Sub %>

Perkhidmatan Sea-Taxi

Lembaga Pelabuhan Johor telah memperkenalkan salah satu jalan alternatif melalui Feri ke Desaru, Johor Bahru dan ke Changi Singapura yang dikenali sebagai perkhidmatan Sea-Taxi.

Perkhidmatan ini menghubungkan ke Lokasi-lokasi perlancongan dari Desaru, Kota Tinggi ke Bahagian Tenggara Johor Bahru.

Jadual Perjalanan:-

	Stulang Laut Ke Tanjung Belungkor	Tanjung Belungkor Ke Stulang Laut
Trip Pertama	0945	0815
Trip Kedua	1945	1830

 

 

 

Harga tambang bagi perkhidmatan Sea-Taxi:-

                                                   Dari Stulang Laut                     Dari Tanjung Belungkor

	Sehala	Pergi / Balik	Sehala	Pergi/ Balik
Dewasa	RM34.00	RM44.00	RM34.00	RM44.00
Kanak-Kanak	RM24.00	RM34.00	RM24.00	RM34.00

 

       

Nikmatilah pengalaman menarik menggunakan perkhidmatan terbaru yang ditawarkan dan untuk keterangan lanjut sila hubungi kaunter tiket di talian:-

Tel       : 07-2520268        Kaunter Tanjung Belungkor

Fax      : 07-2520263

Tel       : 07-2211677         K aunter Stulang Laut          

Fax      : 07-2211676        

                                      

Kembali