<% Set conn = Server.CreateObject("ADODB.Connection") conn.Open myDNS set rs = server.createobject("ADODB.recordset") set rss = server.createobject("ADODB.recordset") set rsss = server.createobject("ADODB.recordset") ID = request("ID") if ID = "" then ID = 2 Field_Select = "ItemID, ItemName, ItemDesc, ItemPic,ItemDesc2,col_ItemName,col_ItemDesc,col_ItemDesc2,ad_ItemDesc,ad_ItemDesc2,ItemPic2,ItemPic3,col_ItemPic,col_ItemPic2,ad_ItemPic" & _ ",wel_ItemDesc,wel_ItemPic,wel_ItemPic2,bar_col,bar_ad,bar_hight,bar_pro,bar_news,bar_web,detail" SQLs = "SELECT " & Field_Select & _ " FROM Item" & _ " WHERE ID = " & ID 'Response.Write vbCrLf & "" &vbCrLf rs.Open SQLs, conn, 0, 1 if not rs.EOF then ItemID = rs(0) ItemName = outtext(rs(1)) ItemDesc = outtext(rs(2)) ItemPic = outtext(rs(3)) ItemDesc2 = outtext(rs(4)) col_ItemName = outtext(rs(5)) col_ItemDesc = outtext(rs(6)) col_ItemDesc2 = outtext(rs(7)) Ad_ItemDesc = outtext(rs(8)) Ad_ItemDesc2 = outtext(rs(9)) ItemPic2 = outtext(rs(10)) ItemPic3 = outtext(rs(11)) col_ItemPic = outtext(rs(12)) col_ItemPic2 = outtext(rs(13)) ad_ItemPic = outtext(rs(14)) wel_ItemDesc = outtext(rs(15)) wel_ItemPic = outtext(rs(16)) wel_ItemPic2 = outtext(rs(17)) bar_col = rs(18) bar_ad = rs(19) bar_hight = rs(20) bar_pro = rs(21) bar_news = rs(22) bar_web = rs(23) detail = rs(24) end if rs.Close BID1 = BannerRndPic(ID,1) BID2 = BannerRndPic(ID,2) BID3 = BannerRndPic(ID,3) BID4 = BannerRndPic(ID,4) Banner1 = FindItemName2(BID1, "bannerbig","ItemPic") Banner2 = FindItemName2(BID2, "bannerbig","ItemPic") Banner3 = FindItemName2(BID3, "bannerbig","ItemPic") Banner4 = FindItemName2(BID4, "bannerbig","ItemPic") BshowUpdate(BID1) BshowUpdate(BID2) BshowUpdate(BID3) BshowUpdate(BID4) Desc1 = FindItemName2(BID1, "bannerbig","ItemDesc") Desc2 = FindItemName2(BID2, "bannerbig","ItemDesc") Desc3 = FindItemName2(BID3, "bannerbig","ItemDesc") Desc4 = FindItemName2(BID4, "bannerbig","ItemDesc") %> Chateau de Bangkok

Apartment Bangkok

<%if banner1 <> "" then%> <%if Desc1 <> "" then%>

<%else%>

<%end if%> <%end if%>

Chateau de Bangkok

29 Soi Ruamrudee 1, Ploenchit Road,
Lumpini Patumwan, Bangkok 10330
Tel: (+66)2-6514400
http://www.chateaubkk.com

Map

Details

Welcome to Chateau de Bangkok, the fully serviced, furnished luxury serviced apartments for corporate and personal housing in the heart of Bangkok.

Chateau de Bangkok has been styled and furnished to extremely high standard along the lines of modern minimalism meets glam opulence. The apartments are comprised of Studio, 1-Bedroom and 2-Bedroom Suite with panoramic views of the city.

Chateau de Bangkok is a pretty good solution for a larger group or family to stay in a nice facility in a good location, safe neighborhood, lots of embassies around, at a good price.

Hotel Facilities:

Babysitting
Business Center
Concierge
Fitness Centre
High Speed Internet Access
Laundry
Parking
Room Service
Steam/Sauna
WiFi

Bar/Pub/Lounge
Coffee Shop
Conference Facilities
Foreign Exchange
Jacuzzi
Massage
Restaurant
Souvenir Shop
Swimming Pool