<%@ 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 %> Imperial Mae Ping Hotel - Chiang Mai / Chiang Rai Hotels & Resorts - Reservations Accommodation Thailand
Chiang-Rai-Thailand-Hotel-Reservations.com 

Imperial Mae Ping Hotel Map

Imperial Mae Ping Hotel, Chiang Mai - Map
In the heart of the city :
The Imperial Mae Ping Hotel is located in the middle of Chiang Mai city. It is within an easy time just five minutes walking through the exotic shopping's paradise, the "Night Bazaar", where you'll find many interesting handicraft of Thai souvenirs. The hotel is also close the remains of the city walls that once had been protected this ancient city. Moreover you'll find the glorious temples dating to the 14th century. You can also marvel the natural wonders of the city. The Mae Ping River flows quietly through the center, while the imperial peak of Doi Suthep majestically guards the city. From The Imperial Mae Ping Hotel, you're just only drive 10 minutes to the Chiang Mai International Airport and 5 minutes to Chiang Mai Railway Station.

Imperial Mae Ping Hotel | 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.