<%@ Language=VBScript %> <% dim HotelDAL dim MainConnectString dim MainDatabasePrefix Set HotelDAL = Server.CreateObject("HotelDAL.Hotel") MainConnectString = HotelDAL.GetMainConnectString() MainDatabasePrefix = HotelDAL.GetMainDatabasePrefix() %> <% Function BuildRateTable(HotelID) dim cnn dim rs Dim rsHotel Set rsHotel = HotelDAL.GetWebRates(clng(HotelID)) Response.Write "" Response.Write"" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write"" While Not rsHotel.EOF Response.Write "" Response.Write "" if isnull(rsHotel("SINGLEAD").Value) then Response.Write "" else Response.Write "" end if if isnull(rsHotel("DOUBLEAD").Value) then Response.Write "" else Response.Write "" end if if isnull(rsHotel("TripleAd").Value) then Response.Write "" else Response.Write "" end if if isnull(rsHotel("ExtraGuest").Value) then Response.Write "" else Response.Write "" end if Response.Write "" rsHotel.MoveNext Wend set cnn = Server.CreateObject("ADODB.Connection") cnn.ConnectionString = MainConnectString cnn.Open() Response.Write "

" & "" & "Room Type" & "" & "	" & "" & "Single" & "" & "	" & "" & "Double" & "" & "	" & "" & "Triple" & "" & "	" & "" & "Extra Guest" & "" & "
" & rsHotel("ROOMTYPENAME").Value & "	" & "N/A" & "	" & rsHotel("SINGLEAD").Value & "	" & "N/A" & "	" & rsHotel("DOUBLEAD").Value & "	" & "N/A" & "	" & rsHotel("TRIPLEAD").Value & "	" & "N/A" & "	" & rsHotel("ExtraGuest").Value & "

" Response.Write "
" set rs = cnn.Execute("select RateDescription from tblHotels where HotelID = " & HotelID,,adCmdText) if not rs.eof then Response.write("" & rs("RateDescription") & "") end if End Function Function CheckNoShowCharge(HotelID) CheckNoShowCharge = HotelDAL.GetNoShowCharge(HotelID) End Function Function CheckGroundTransportation(HotelID) CheckGroundTransportation = HotelDAL.GetAirportPickup(HotelID) End Function %> <% const HotelDirectPayment = &H00000001 %> <% Function BuildBookingOptions(intHotelID) BuildBookingOptions = "" BuildBookingOptions = BuildBookingOptions & BuildEnquery(intHotelID) BuildBookingOptions = BuildBookingOptions & " " BuildBookingOptions = BuildBookingOptions & BuildBookRoom(intHotelID) if CheckAbilityToBuy(intHotelID) then BuildBookingOptions = BuildBookingOptions & "
or " BuildBookingOptions = BuildBookingOptions & BuildBuyRoom(intHotelID) end if BuildBookingOptions = BuildBookingOptions & "" End Function Function BuildBuyRoom(intHotelID) strCookie = Request.Cookies("ebizaid") BuildBuyRoom = "To purchase a room on-line" End Function Function BuildEnquery(intHotelID) strCookie = Request.Cookies("ebizaid") BuildEnquery = "

Click Here to Enquire

" End Function Function BuildBookRoom(intHotelID) strCookie = Request.Cookies("ebizaid") BuildBookRoom = "

Click Here to Book

" End Function Function CheckAbilityToBuy(intHotelID) dim cnn dim sqlstring dim rs CheckAbilityToBuy = false set cnn = Server.CreateObject("ADODB.Connection") cnn.ConnectionString = MainConnectString cnn.Open sqlstring = "select Flags from " & MainDatabasePrefix & "tblHotels where HotelID = " & intHotelID set rs = cnn.Execute(sqlstring,,adCmdText) if (Not rs.EOF) then if (CLNG(rs("Flags")) and CLNG(HotelDirectPayment)) <> 0 Then CheckAbilityToBuy = true end if end if set rs = Nothing set cnn = Nothing end function %> Krabi National Park Success Resort - Phi Phi Thailand Hotel Reservations - Hotels & Travel in Krabi

Phi Phi Thailand Hotel Reservations

Krabi National Park Success Resort

Location :
Beach-front on the Nop-parat Bay and next to Krabi National Park, 20 Minutes to Krabi Airport.

Nearby attractions :
Ao nang Village, Beach Front Plaza, Thai Boxing Stadium and National Park.

Hotel Address For Print Out | Phi Phi Thailand Hotel Reservations

Hotels in Ao Nang Beach | Lanta Island | Railay Beach | Krabi Town & Other | Phi Phi Island

Krabi National Park Success Resort

Travel guide to Ko Phi Phi by Phi Phi Thailand Hotel Reservations, contains information about Phi Phi Island and details on accommodation in Phi Phi. Your great directory of discount Ko Phi Phi Hotels & Resorts online reservation with cheap internet rates.

Easy to book hotels in Thailand online with E-Biz Travel. We offer the wide range of Thailand Hotels from budget to luxury hotels for travel and business purpose, sight seeing tour, packages and information on Thailand. Enjoy great savings of Thailand Hotels.