<%@ 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 %> The Evason Hua Hin Resort & Spa - Hua Hin Hotels & Resorts Thailand Discount - Hua Hin Hotel Reservations
The Evason Hua Hin Resort & Spa

Special Rates for Internet Users
** Payment will be made directly to the hotel **
Period 21 Apr 03-31 Oct 03
Room Type Single/Twin Extra Bed
The Evason Room 3,200 1,000
The Evason Studio 3,900 1,000
The Evason Deluxe Studio 4,900 1,000
The Evason Romantic Beachfront Studio 5,900 1,000
The Evason Pool Villa 9,200 1,000
Pool Villas occupied on the night of 31 December will require a minimum 10 night stay.
Rates are quoted in Thai Baht, inclusive of service charge and government tax.

Enquiry or Booking
Pick-up service from Bangkok Airport to hotel can be arranged. Please click here for details
Currency Converter | Terms & Conditions

Back | The Evason Hua Hin Resort

Welcome to Hua Hin Hotels & Resort, budget hotel rates and guide to hotels in Hua Hin Thailand with hua hin hotels guide map. Click here for a complete listing of Cha Am Hotels & Hua Hin Hotels. Please click here print out for Hotel's Address

E-Biz Travel, the website that provides all you need to travel Thailand, information on Thailand and a wide range of hotels in Thailand. Whatever accommodation Thailand style you're looking for. We will find the best Thailand Hotels for your pleasure.