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

D2 Hotel Chiangmai Map

D2 Hotel Chiangmai Map
Hotel Location
The D2hotel chiang mai is on Chang Klan Road, within walking distance of Chiang Mai city centre and its famous Night Bazaar. The hotel is also only five kilometres from the train station and seven kilometres from the bus station and Chiang Mai International Airport. Whatever Chiang Mai attractions you want to visit, you will find them all within easy reach. Revel in the atmosphere of downtown Chiang Mai or explore the temples and mountains of northern Thailand from the D2hotel, the perfect base from which to explore Chiang Mai and beyond.

Chiang Mai Attractions Close to the Hotel
- Bo Sang / San Kamphaeng
- Butterfly and orchid farms
- Chiang Mai Cultural Centre
- Chiang Mai Old City
- Doi Intanon National Park
- Elephant show
- Night Bazaar
- Wat Chedi Luang
- Wat Ku Tao

D2 Hotel Chiangmai

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

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.