%
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")
%>
Romyen Residence Serviced Apartment
<%if banner1 <> "" then%>
<%if Desc1 <> "" then%>
<%else%>
<%end if%>
<%end if%>
Romyen Residence Serviced Apartment
7 Soi Pattanakarn 17, Pattanakarn Road,
Suang Luang, Bangkok 10250
Tel:02-3190048 - 55, 02-7172400-9
Map
Details
An ideal alternative for modern living, Romyen Residence is definitely conceived as the kind of today´s living space and lively community with peaceful garden on Pattanakarn Road. The residence service apartment offers suits that are furnished individually in different warn and cozy decorations. Whilst here, you will be comfortable with the rooms functional and more space. Moreover, you can indulge yourself to the fullest and turn on your feeling as a private house with full modernity, relaxation, privacy, warmth and safety. Romyen Residence service apartment comes with the best of what you are looking for with the best price, location, full services and facilities for your own comfort and pleasure. Romyen service apartment comfortable like your home.
Room Rate & Room Type
Suite Room
80 sqm./2 bedrooms, 2 bathrooms/pantry area and living room
Deluxe Room
45 sqm./Room with pantry area
Studio Room
32 sqm./Spacious room area
Guest Service & Amenities
Air conditioner
TV/Satellite TV
High Speed Internet
Parking Lots
Minimart
Restaurant
Meeting Facilities
Secretary Service
Beauty Salon/Manicure
Laundry/Valet Service
Private Dining Service
24 Hours Reception & Security Service
ID Card Access Control
Location
About 15 minutes from Suvarnabhumi Airport
Many routes for access to downtown
Only 1 hour to Pattaya
Expressway Pay Tolls on next door
Home | About Us | Member | Advertise | Link Exchange | Contact Us