<%@ 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 %> Angkhang Nature Resort - Chiang Mai / Chiang Rai Hotels & Resorts - Reservations Accommodation Thailand
Chiang-Rai-Thailand-Hotel-Reservations.com 

Angkhang Nature Resort Map

Angkhang Nature Resort, Chiang Mai - Map
Location
Angkhang Nature Resort is situated a comfortable, three-hour drive from Chiang Mai through some of Thailand's most spectacular scenery. Its mountain location, cool climate and the scenic beauty of the surrounding countryside make it the ideal getaway for nature lovers.

From

Distance

Time

By

Chiang Mai Airport

162 km

3 hrs

Car

Chiang Mai Railway

164 km

3 hrs

Car

Fang Bus Station

40 km

45 mins

Car

Royal Agricultural Research Project

1.8 km

3 mins

Car

Myanmar Border

6 km

10 mins

Car

Hilltribe Villages (there are several in the vicnity of Angkhang Nature Resort)

Varies

10 to 15mins

Car

Angkhang Nature Resort | Chiang Mai / Chiang Rai Hotels | Thailand Hotel Reservations

---------------------------------------------------------------------------------------------------

Chiang Rai hotels & resorts guide to great hotel deals at best discounted wholesale rates and Chiang Mai package tours. Click here for alphabetical listing of Chiang Mai / Chiang Rai Hotels & Resorts.
Enjoy this special discount hotels rate with Chiang Rai Thailand Hotels Reservations.

Let you join E-biz travel; 24 hours Thailand accommodation online reservations The site provides information on thailand, a large choice of Thailand Hotels at discounted prices and special package tours. You can find hotels in major cities of thailand such as Bangkok Hotels, Chiang mai Hotels, Phuket Hotels and more.