strReturn: " & strReturn & "
" Set xobj = nothing GetHash = Mid(strReturn,InStr(strReturn,"
| " End If If Not objPagingRS.EOF Then for c = 0 to ubound(colList) 'Dim colNo colNo = Val(colList(c)) DisplayByPage = DisplayByPage & " | " & objPagingRs.Fields(colNo).Name & " | " next End If DisplayByPage = DisplayByPage & "|
| " DisplayByPage = DisplayByPage & "" DisplayByPage = DisplayByPage & " | " end if for c = 0 to ubound(colList) 'Dim colNo colNo = Val(colList(c)) If colLink > -1 and colNo = colLink Then DisplayByPage = DisplayByPage & "" DisplayByPage = DisplayByPage & "" DisplayByPage = DisplayByPage & " " & objPagingRs(colNo) & "" DisplayByPage = DisplayByPage & " | " Else DisplayByPage = DisplayByPage & ""
DisplayByPage = DisplayByPage & " " & objPagingRs(colNo) & " " DisplayByPage = DisplayByPage & " | "
End If
next
DisplayByPage = DisplayByPage & "
" End If If Session("Amount") <> Amount Then ErrCnt = ErrCnt + 1 ErrMsg = ErrMsg & "Payment amount from Mobile88 does not match ours" & "
" End If 'response.write "my sign is " & GetSignature(PaymentId,RefNo,Amount,Status) & "
" If GetSignature(PaymentId,RefNo,Amount,Status) <> Signature Then ErrCnt = ErrCnt + 1 ErrMsg = ErrMsg & "Signatrue from Mobile88 does not match ours" End If If ErrCnt = 0 Then SecurePayment = 1 Else Bdy = "There is an unsecured payment for booking " & Session("RefNo") & " with the following errors." & "
" Bdy = Bdy & ErrMsg SendEmail FromEmail,FromEmail,"","","Unsecure Payment - " & Session("RefNo"),Bdy,"" SecurePayment = 0 End If End Function Function SendToPaymexInq(byval MerchantCode, RefNo, Amount) QString="MerchantCode=" & MerchantCode & "&RefNo=" & RefNo & "&Amount=" & Amount URL = "https://www.mobile88.com/epayment/enquiry.asp" strReturn = "" Set xobj = Server.CreateObject ("MSXML2.ServerXMLHTTP") xobj.open "POST", URL, false xobj.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" xobj.send QString strReturn = xobj.responseText Set xobj = nothing SendToPaymexInq = strReturn End Function Function CheckRoomRate(HotelNo, RoomCode, AccoDate) Dim adoRsRT, strSQL, Normal, Rate, IsNormal Set adoRsRT = Server.CreateObject("ADODB.recordset") strSQL = "SELECT * FROM tbHotelRateType WHERE HotelNo = " & HotelNo & " ORDER BY RateTypeNo DESC" adoRsRT.Open strSQL, adoConn IsNormal = true 'response.write "AccoDate=" & AccoDate & "
" Do While Not adoRsRT.EOF 'response.write adoRsRT("RateTypeNo") & "
" 'response.write "PublicHOliday=" & adoRsRT("PublicHoliday") & "
" 'response.write "SchoolHOliday=" & adoRsRT("SchoolHoliday") & "
" 'response.write "Other=" & adoRsRT("Other") & "
" If adoRsRT("PublicHoliday")=0 and adoRsRT("SchoolHoliday")=0 and adoRsRT("Other")=0 and adoRsRT("Friday")=0 and adoRsRT("Saturday")=0 and adoRsRT("Sunday")=0 Then Normal = adoRsRT("RateTypeNo") End If If adoRsRT("Other") = 1 Then ' if other holiday charge other holiday rate 'response.write "Other flag" If IsOtherHoliday(AccoDate,adoRsRT("RateTypeNo")) Then Rate = GetRate(HotelNo,RoomCode,adoRsRT("RateTypeNo")) 'response.write HotelNo & "
" 'response.write adoRsRT("RateTypeNo") & "
" IsNormal = false Exit Do End If End If ' if publicholiday charge publicholiday rate If adoRsRT("PublicHoliday") = 1 Then 'response.write "PublicHoliday flag" If IsHoliday(AccoDate) Then Rate = GetRate(HotelNo,RoomCode,adoRsRT("RateTypeNo")) IsNormal = false Exit Do End If End If If adoRsRT("SchoolHoliday") = 1 Then ' if schoolholiday charge schoolholiday rate 'response.write "SchoolHoliday flag" If IsSchoolHoliday(AccoDate) Then Rate = GetRate(HotelNo,RoomCode,adoRsRT("RateTypeNo")) IsNormal = false Exit Do End If End If If adoRsRT("Friday") = 1 and Weekday(DateValue(AccoDate)) = 6 Then ' if friday 'response.write "Friday
" Rate = GetRate(HotelNo,RoomCode,adoRsRT("RateTypeNo")) IsNormal = false Exit Do End If If adoRsRT("Saturday") = 1 and Weekday(DateValue(AccoDate)) = 7 Then ' if saturday 'response.write "Saturday
" Rate = GetRate(HotelNo,RoomCode,adoRsRT("RateTypeNo")) IsNormal = false Exit Do End If If adoRsRT("Sunday") = 1 and Weekday(DateValue(AccoDate)) = 1 Then ' if sunday 'response.write "Sunday
" Rate = GetRate(HotelNo,RoomCode,adoRsRT("RateTypeNo")) IsNormal = false Exit Do 'Else 'normal 'Rate = GetRate(HotelNo,RoomCode,Normal) 'Exit Do End If adoRsRT.MoveNext Loop adoRsRT.Close If IsNormal Then Rate = GetRate(HotelNo,RoomCode,Normal) End If CheckRoomRate = Rate End Function Function IsHoliday(AccoDate) Dim adoRsHol, strSQL, holiday Set adoRsHol = Server.CreateObject("ADODB.recordset") holiday = false strSQL = "SELECT * FROM tbHoliday WHERE (HolidayDate = '" & MySQLDate(DateValue(AccoDate)) & "' AND PublicHoliday = 1) OR (HolidayDate = '" & MySQLDate(DateValue(AccoDate)) & "' AND EvePublicHoliday=1)" adoRsHol.Open strSQL, adoConn If Not adoRsHol.EOF Then holiday = true End If adoRsHol.Close IsHoliday = holiday End Function Function IsSchoolHoliday(AccoDate) Dim adoRsHol, strSQL, holiday Set adoRsHol = Server.CreateObject("ADODB.recordset") holiday = false strSQL = "SELECT * FROM tbHoliday WHERE HolidayDate = '" & MySQLDate(DateValue(AccoDate)) & "' AND SchoolHoliday = 1" adoRsHol.Open strSQL, adoConn If Not adoRsHol.EOF Then holiday = true End If adoRsHol.Close IsSchoolHoliday = holiday End Function Function IsOtherHoliday(AccoDate, RateTypeNo) Dim adoRsHol, strSQL, holiday Set adoRsHol = Server.CreateObject("ADODB.recordset") holiday = false strSQL = "SELECT * FROM tbHotelRateTypeOther WHERE RateDate = '" & MySQLDate(DateValue(AccoDate)) & "' AND RateTypeNo = " & RateTypeNo adoRsHol.Open strSQL, adoConn 'response.write strSQL & "
" If Not adoRsHol.EOF Then holiday = true End If adoRsHol.Close IsOtherHoliday = holiday End Function Function GetRate(HotelNo,RoomCode,RateTypeNo) Dim adoRsRate, strSQL, rate Set adoRsRate = Server.CreateObject("ADODB.recordset") strSQL = "SELECT * FROM tbHotelRoomRate WHERE HotelNo = " & HotelNo & " AND RoomCode = '" & RoomCode & "' AND RateTypeNo = " & RateTypeNo adoRsRate.Open strSQL, adoConn rate = adoRsRate("Rate") adoRsRate.Close 'response.write strSQL & "
" 'rate = 0 GetRate = rate End Function Function GetRunningNo() Dim adoRs strSQL = "SELECT RunningNo FROM tbOnlinePayment" if adoConn.ConnectionString = "" then adoConn.open mbhDB end if Set adoRs = adoConn.execute(strSQL) PKey = Replace(PKey, "'", "''") If Not adoRs.eof Then If Not IsNull(adoRs.Fields("RunningNo")) Then GetRunningNo = adoRs.Fields("RunningNo") adoRs.Close adoRs.Open "UPDATE tbOnlinePayment SET RunningNo = " & GetRunningNo + 1 , adoConn Else GetRunningNo = -1 End If Else GetRunningNo = -1 End If End Function Function IsUrgentBooking(CheckInDate) 'booking 7 days in advance (incl. sat & sun) is consider as urgent booking If DateDiff("d",Date(),DateValue(CheckInDate)) <= 7 Then IsUrgentBooking = True Else IsUrgentBooking = False End If End Function Function CheckRoomAvailability(HotelNo,RoomCode,AccoDate,NoUnit) Dim adoRs, strSQL Dim Allotment, BookedUnit, HeldUnit, AvailableUnit, BlockedUnit Set adoRs = Server.CreateObject("ADODB.recordset") strSQL = "SELECT Allotment FROM tbHotelRoom WHERE HotelNo = " & HotelNo & " AND RoomCode = '" & RoomCode & "'" adoRs.Open strSQL, adoConn Allotment = CInt(adoRs("Allotment")) adoRs.Close strSQL = "SELECT NoRoom FROM tbHotelBooking WHERE HotelNo = " & HotelNo & " AND RoomCode = '" & RoomCode & "' AND CheckIn <= '" & MySQLDate(AccoDate) & "' AND CheckOut > '" & MySQLDate(AccoDate) & "'" adoRs.Open strSQL, adoConn If Not adoRs.EOF Then BookedUnit = CInt(adoRs("NoRoom")) Else BookedUnit = 0 End If adoRs.Close strSQL = "SELECT SessionId, NoRoom FROM tbHotelRoomHold WHERE HotelNo = " & HotelNo & " AND RoomCode = '" & RoomCode & "' AND AccoDate = '" & MySQLDate(AccoDate) & "'" adoRs.Open strSQL, adoConn If Not adoRs.EOF Then Do While Not adoRs.EOF If CStr(Session("SessionID")) <> CStr(adoRs("SessionId")) Then HeldUnit = HeldUnit + CInt(adoRs("NoRoom")) End If adoRs.MoveNext Loop Else HeldUnit = 0 End If adoRs.Close 'check blocked unit strSQL = "SELECT BlockedUnit FROM tbHotelRoomBlock WHERE HotelNo = " & HotelNo & " AND RoomCode = '" & RoomCode & "' AND FromDate <= '" & MySQLDate(AccoDate) & "' AND ToDate >= '" & MySQLDate(AccoDate) & "'" adoRs.Open strSQL, adoConn If Not adoRs.EOF Then BlockedUnit = adoRs("BlockedUnit") Else BlockedUnit = 0 End If adoRs.Close AvailableUnit = Allotment - BookedUnit - HeldUnit - BlockedUnit If CInt(AvailableUnit) >= CInt(NoUnit) Then CheckRoomAvailability = NoUnit HoldRoom AccoDate Else CheckRoomAvailability = 0 End If End Function Sub UnholdRoom() Dim adoRs, strSQL Set adoRs = Server.CreateObject("ADODB.recordset") strSQL = "DELETE FROM tbHotelRoomHold WHERE TIMEDIFF(NOW(),CreatedDate) > TIME('00:02:00')" adoRs.Open strSQL, adoConn End Sub Sub HoldRoom(AccoDate) Dim adoRs, strSQL, HoldId Set adoRs = Server.CreateObject("ADODB.recordset") HoldId = GetNextNo("HoldId", "tbHotelRoomHold") adoRs.Open "SELECT * FROM tbHotelRoomHold WHERE SessionId = " & Session("SessionId") & " AND HotelNo=" & Session("HotelNo") & " AND RoomCode='" & Session("RoomCode") & "' AND AccoDate='" & MySQLDate(AccoDate) & "'", adoConn If adoRs.EOF Then strSQL = "INSERT INTO tbHotelRoomHold (HoldId,HotelNo,RoomCode,SessionId,CreatedDate,NoRoom,AccoDate) VALUES (" & HoldId & "," & Session("HotelNo") & ",'" & Session("RoomCode") & "'," & Session("SessionID") & ",Now()," & Session("NoUnit") & ",'" & MySQLDate(AccoDate) & "')" Else strSQL = "UPDATE tbHotelRoomHold SET HotelNo=" & Session("HotelNo") & ", RoomCode='" & Session("RoomCode") & "',NoRoom=" & Session("NoUnit") & ",AccoDate='" & MySQLDate(AccoDate) & "' WHERE SessionId=" & Session("SessionId") End If adoRs.Close adoRs.Open strSQL, adoConn 'response.write "HoldId=" & Session("HoldId") 'adoRs.Open strSQL, adoConn End Sub Sub ReleaseHoldedRoom(AccoDate) Dim adoRs, strSQL Set adoRs = Server.CreateObject("ADODB.recordset") strSQL = "DELETE FROM tbHotelRoomHold WHERE SessionId = " & Session("SessionId") & " AND HotelNo=" & Session("HotelNo") & " AND RoomCode='" & Session("RoomCode") & "' AND AccoDate='" & MySQLDate(AccoDate) & "'" adoRs.Open strSQL, adoConn End Sub Function GetMenu() Dim CurPath, ArrCurPath, ArrFolder CurPath = LCase("http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("URL")) ArrCurPath = split(CurPath,LCase(Domainname)) ArrFolder = split(ArrCurPath(1), "/") GetMenu = ArrFolder(1) End Function Function AccessRights(role,hotelno) Dim adoRs, access Set adoRs = Server.CreateObject("ADODB.recordset") adoRs.Open "SELECT * FROM tbUserRole UR INNER JOIN tbRole R ON UR.RoleId=R.RoleId WHERE R." & role & "=1 AND UR.UserId=" & Session("UserId"), memberConn 'response.write "SELECT * FROM tblACUserRole UR INNER JOIN tblACRole R ON UR.RoleId=R.RoleId WHERE R." & role & "=1 AND UR.UserId=" & Session("UserId") If adoRs.EOF Then access = false Else access = true End If adoRs.Close 'if User is hotel and hotelno<>empty, check whether hotelno=user If hotelno<>"" Then adoRs.Open "SELECT * FROM tbUserHotel WHERE UserId=" & Session("UserId") & " AND HotelNo=" & hotelno, adoConn If adoRs.EOF Then access = false Else access = true End If End If 'adoRs.Close AccessRights = access End Function Function GetHotelNo(UserId) Dim adoRs, HotelNo, strSQL Set adoRs = Server.CreateObject("ADODB.recordset") strSQL = "SELECT HotelNo FROM tbUserHotel WHERE UserId=" & UserId 'response.write strSQL adoRs.Open strSQL, adoConn If adoRs.EOF Then HotelNo = 0 Else HotelNo = adoRs("HotelNo") End If 'adoRs.Close GetHotelNo = HotelNo End Function Function IsBlockAll(HotelNo, RoomCode, AccoDate) Dim BlockAll 'check blocked unit strSQL = "SELECT BlockedUnit FROM tbHotelRoomBlock WHERE HotelNo = " & HotelNo & " AND RoomCode = '" & RoomCode & "' AND FromDate <= '" & MySQLDate(AccoDate) & "' AND ToDate >= '" & MySQLDate(AccoDate) & "' AND BlockType='All'" adoRs.Open strSQL, adoConn If Not adoRs.EOF Then BlockAll = true Else BlockAll = false End If adoRs.Close 'response.write "blockall=" & BlockAll IsBlockAll = BlockAll End Function Function GetPaymentMethodId(PaymentMethod) Select Case PaymentMethod Case "ATM" GetPaymentMethodId= 0 Case "Credit Card" GetPaymentMethodId= 2 Case "Maybank" GetPaymentMethodId= 6 Case "Alliance" GetPaymentMethodId= 8 Case "RHB" GetPaymentMethodId= 14 Case "Hong Leong" GetPaymentMethodId= 15 Case "FPX" GetPaymentMethodId= 16 End Select End Function dim ss, ds, ts, qs ss = "one,two,three,four,five,six,seven,eight,nine" ds = "ten,eleven,twelve,thirteen,fourteen,fifteen,sixteen," & _ "seventeen,eighteen,nineteen" ts = "twenty,thirty,forty,fifty,sixty,seventy,eighty,ninety" qs = ",thousand,million,billion" Function nnn2words(iNum) a = split(ss,",") i = iNum mod 10 if i > 0 then s = a(i-1) ii = int(iNum mod 100)\10 if ii = 1 then s = split(ds,",")(i) elseif ((ii>1) and (ii<10)) then s = split(ts,",")(ii-2) & " " & s end if i = (iNum \ 100) mod 10 if i > 0 then s = a(i-1) & " hundred " & s nnn2words = s End Function Function num2words(iNum) i = iNum if i < 0 then b = true: i = i*-1 if i = 0 then s="zero" elseif i <= 2147483647 then a = split(qs,",") for j = 0 to 3 iii = i mod 1000 i = i \ 1000 if iii > 0 then s = nnn2words(iii) & _ " " & a(j) & " " & s next else s = "out of range value" end if if b then s = "negative " & s num2words = trim(s) End Function Function GetEncrypt(byval stringToBeEncrypted) QString="stringToBeEncrypted=" & stringToBeEncrypted & "&RefNo=" & RefNo & "&Amount=" & Amount URL = "http://malaysiabudgethotel.com/AddBook.asmx/HelloWorld" strReturn = "" Set xobj = Server.CreateObject ("MSXML2.ServerXMLHTTP") xobj.open "POST", URL, false xobj.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" xobj.send QString strReturn = xobj.responseText Set xobj = nothing GetEncrypt = strReturn End Function Function GetAdsPacType(ByVal HotelNo) Dim AdsPacType AdsPacType = "" adoConn.Open mbhDB Set adoRs = Server.CreateObject("ADODB.recordset") strSQL = "SELECT AdsPacType FROM tbHotelAdsPac WHERE HotelNo = " & CInt(HotelNo) adoRs.Open strSQL, adoConn If Not adoRs.EOF Then AdsPacType = adoRs("AdsPacType") End If adoConn.Close() GetAdsPacType = AdsPacType End Function %>
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Sabah > Taman Pertanian Sabah
Taman Pertanian Sabah is a visitor friendly park which offers you more than just any other parks. It was opened by ex-Prime Minister Datuk Seri Dr Mahathir Mohamad on 2001. During the park launch, the Prime Minister commented that the park is the best and most beautiful in the Asean region especially the Park’s orchid center.
The Evolution Park where replicas of different plant species on various development stage are displayed. The Sabah Agricultural Park is located at Lagud Sebrang which is about 15km from Tenom town. On normal days the park charges RM10 – RM25 for adults. Students will be charged half of this normal rate. In and around the park are places worth checking out notably: Native Orchid Centre
This centre is known and recognized worldwide as the major for its indigenous Borneo Orchid’s collections and is reputedly to be the largest in this region. It has some 400 species of the 1,500 orchid species identified in the Island of Borneo including some rare and endangered species. Would you like to know more about Orchid such as What is Orchid all about & what makes them so special? You will get all answers in this 2 acres garden. Living Crop Museum
The theme of the garden is to demonstrate to visitors the great diversity of Tropical crop plants and how man uses these plants. In a sense, it is also an ethno-botanical garden. This museum has collection of more than 400 species of economic value grouped in accordance to their uses such as medicines, spices and condiments, beverages, oil, fibers, fruits, handicrafts and nuts. In the Perfume section, are found plants that produce scents or aromatic oils. For example, the flowers of the “Kenanga” tree ( Canaga odorata ), also known as “ylang-ylang” emit a fragrance, which is an important ingredient in producing the Channel 5 perfume industry. Do not leave this museum without seeing the Tropical Fruits Section where there are over 200 species of local and wild fruits as well as introduced fruits, some of which came from as far as South America, Africa, India and Australia . During fruiting season, visitors have the opportunities to sample and taste the fruits! However, for your own safety, always follow the Guide’s instruction or read the labels on the plants before you eat anything. Bee Centre
The Bee Centre is located at about 2.5 km from the Park HQ area, set in a 4 ha. (10 acres) site, arranged with Beehives around an English style Herbaceous Border Garden utilizing Tropical plants. What you can see and do in this Park?? You may have the chance to get close as a foot to a live hive of honeybees, to see how honey is being extracted from the honeycomb, and what a modern beehive looks like compared to a native beehive called a ‘gelodog’. You need to make an arrangement with the Park’s Management prior to your visit. Germplasm Collection
The germplasm collections comprise of the Ginger, Bamboo and Palm garden. The Park has a collection of almost 100 species of the native gingers. The palm collection highlights its uses. The park also has in its collection, the strongest structurally of all bamboos, which is endemic of Peru. Ornamental Garden
Hoya Garden
Evolution Garden
Agro-forestry The Agro-forestry projects are located in the back hill area of the Agriculture Research Station. There are basically eight projects where visitors can get to see and learn about Agro-forestry. They are the Bamboo Garden, Palm Garden, Ginger collection, Rattan Plot, Medicinal Trees Plot, Native Fruit Plot, Man Made Forest and the Recreational Forest. Visitors are advised to contact the Park Management in advance if they wish to visit this part of the Park.
Ginger Garden This collection is established within the palms in a valley. The main collection is of native gingers, with almost more than 100 species. The in introduced Zingeberales naturalized species such as the culinary ginger (Zingiber officinale), turmeric (Curcuma domestica) or “Kunyit” and cardamoms are also planted in this in the collection. There is also a section covering the ornamental Zingiberales for the cut flower industry including the Costaceae and the Heliconiaceae families. Rattan Plot This plot is devoted to the rattans, mainly those that are commercial species. As they are climbers, the plot was establish in secondary forests where they can climb up the trees. Both native and introduced species are planted here. Man Made Forest The objective of this Man-made Forest is to demonstrate to visitors the great diversity of plant species useful to man that are found in our Borneo forests. It covers the timber trees, the spice trees, medicinal herbs, bamboos, palm, ornamental flowering shrubs, native orchid, plants of Horticultural potential and many food plants. Visitors may see more than ten colonies of Bee hanging on branches of the 50 meters tall “Mengaris” tree. The Park provided a Bee watching platform at a nearby hill for the Bee researcher to have a closer look at this Bee.
Native Fruit Planted with only the fruit which is native to this region like Pangi (Pangium Edule), Durian (Durio Oxleyanus), and Takob-akob ( Garcinia Parrifolia). Some of the fruit are wildly from the jungle. Lake Sapong
The lake is well landscaped and lit with garden lamps, which makes it an ideal place for evening stroll. The water Garden is a must –visit stop. The garden is planted with aquatic plants, which adorn the banks and the surrounding water surfaces. If you are fortunate enough, you will be able to see the majestic flower of The Giant Water Lily ( Victoria amazonica) that blooms early in the morning. Located in the middle of the lake are two islands called Padas Island and Bird Island, a haven for birds that sprawled over an area of two acres. Lake Rundum
You have got to be here to enjoy the panoramic view and experience the wondrous of nature surrounding the Lake Rundum. This lake is a showcase of nature-based activities such as fishing and picnicking. The lake is filled with fish of endemic to this region like Tilapia, Grass and Common Carp, Patin, Toman, Kalui, Lampam Jawa to name a few. For reasonable fee one can try their fishing skill and your name could be on the park’s record for the biggest ever caught. Animal Park
The Animal Park is equivalent to a mini zoo, covers an area of 4 acres of grazing land. Here, are kept some of the more common animals found on a farm such as Goat and Sheep. In addition, there are the exotic species, which many would like to see, namely, the great Black African Ostriches (Struthio camelus), Guinea Fowl, Peacocks and various breeds of poultry such as Geese, Ducks, Turkey and Quails. The park has three types of deer namely Sambar deer which is local deer, Chital deer (Axis axis) and Timorensis deer (Cervus timorensis) are Indonesian deers and lastly, the Australian deer. The children especially, will find this Animal Park a favorite place to visit. Do not miss seeing, just adjacent to this park on lake Sapong, the Water Birds, farm ducks, Muscovy ducks and Geese. Jungle Trekking
The second trail which is only 400 m longer than the first one is call Tropical Trail (Brown Colour trail). It is a knowledge oriented trail where you may treasure the collection of Palms, Borneo Ginger (the best Ginger collection in Malaysia), useful Bamboos (local & exotic) in the Agro-forestry plots and gardens. You won’t feel that you had gone through quite a long distance as you are walking under the shade of the dipterocarps trees and most part of the trail trails is in concrete/hardwood steps or a gravel path. Take a few minutes break in the Rest House (Built sometimes in 70’s) and enjoy the serenity of it’s garden and surrounding. Soft and cold drinks is normally available for sell at the Rest House, please ask the housekeeper in charge to serve you. The next journey from the Rest House to the end point will be a bit tough and challenging. There are gullies to cross over, a steep and slippery slopes to climb but the most exciting part is that once you reach the top of a Cliff, you will see a better and beautiful view looking over the tops of some 50 m tall of trees and the whole Park area. While journeying through this challenging trail, try not to be missed to see the medicinal trees e.g. ‘Tongkat Ali’ (Grewia umbellata) grow naturally in the forest, The ‘Tongkat Ali’ is reputed to have aphrodisiac properties.
Other Recreational Activities Other recreational activities such as Fishing, Boating, Cycling and Sport activities also can be done at the Park. For Sport activities, visitors can have their on games or have a friendly match with the Park staff.
For Night activity, The Park can provide a Karaoke set or organize a cultural performance (at cost) base on request by the visitors. Visiting Schedule Operation Hours: 9am – 4.30pm ( Tuesday – Sunday ) Closed : Monday ( except Public Holiday ) Entrance Fee & Rental Charges
** Discounts are given for Malaysian - please show your NRIC
All rates are subject to changes without prior notice . Contact For further information and reservation please contact: Kota Kinabalu Office: (6) 088-258529 (Tel/Fax) Mr. Joseph Fung/Ms. Paula Chung Mr. Zainal Abidin/Mr. Rauji A. Baluga Getting There The Park is accessible by vehicle through 200 km of sealed road from KK (Kota Kinabalu). The journey from KK to Tenom takes about 3 hours, journeying through the mountainous Crocer Range and down to the Tambunan Valley, passing through quaint, tradisional Kadazandusun villages, continuing on to Keningau and finally, Tenom. One can also make the journey from KK to Beaufort, by train through the scenic Tenom Gorge and return journey by road via Keningau, Tambunan. Hired taxi or bus is available at the Bus Terminal near the Padang Merdeka in the city. The taxis or buses depart daily from KK to Tenom between 6.00 am to 5.00 pm. If you choose to travel by bus or train, you have to change buses at Tenom town which is about 15 km from Taman Pertanian Sabah. Transport Charges from Kota Kinabalu City to Tenom town
Transport Charges from Tenom town to Taman Pertanian Sabah
The train charges is RM 7.50 for adults ( 13 years and above ) and RM 3.75 for children ( 3-13 years ). The journey by train starts from Tanjung Aru to Tenom takes about 4-5 hours. If you are rushing for times, you can follow the earliest Railcar service From Beaufort at 6.30 am and reach Tenom by 8.30 am (but of course you have to drive early to get to Beaufort in time). The Railcar fare is RM8.05 one way. Accommodations Sabah Agriculture Park provides Hostel & Camping. A Hostel with capacity of 88 persons at a time, with 12 dormitory room is available for booking. Please book in advance to avoid any disappointment, Hostel normally fully booked during School and Public holidays. The Hostel is located at the centre of the garden and very closed to the Park’s Restaurant. A Camping Ground which located within the island of Lake Melalap is another choice of an adventures stay. The charges of the hostels and camping are pretty cheap that are RM15 – RM25/person/night, whereas camping is about RM10/person/night including camping gear. If you are looking for the better and more comfortable accommodations, these are the one:
|
<% On Error Resume Next adoConn.Open mbhDB Set adoRs = Server.CreateObject("ADODB.recordset") adoRs.Open "SELECT * FROM tbDestination D INNER JOIN tbState S ON D.State=S.StateCode WHERE S.Country='Malaysia' ORDER BY Destination", adoConn %>
<%Select Case LCase(GetMenu()) Case "accommodation" %>
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Home | About Us | FAQ | /tell-your-friends.html','Tell_your_friends');>Tell your friends | Forum | Sitemap | Contact Us | Travel Links | Link Exchange Copyright © 2006 - 2008 Hot Travel Station - MalaysiaBudgetHotel. All Rights Reserved. |
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
