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

Chiangmai Gate Hotel Map

Chiangmai Gate Hotel Map, Chiang Mai Thailand
Chiang Mai Gate Hotel is conveniently located on Suriyarong Road, only about 200 meters from Chiang Mai Gate and the heart of the old city- 5 min. drive from Chiang Mai Airport and 10 min. drive from the Night Bazaar. Yet, it is in a quiet area where guests can feel fully relaxed. Furthermore, the location is easily linked to shopping malls, middle ring and outer ring roads.

Chiangmai Gate Hotel

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

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.