<% if not request("newtitle") = "" then newtitle = request("newtitle") & " - " else newtitle = "" end if Dim RsHotels__MMColParam RsHotels__MMColParam = "8" if (Request.QueryString("region") <> "") then RsHotels__MMColParam = Request.QueryString("region") %> <% set RsHotels = Server.CreateObject("ADODB.Recordset") sqlstr = "SELECT hotels.hotelid, hotels.hotelname, hotels.address, hotels.0870no, hotels.town, images.imageid, priority.prioritydescription, priority.priorityorder, min(roomtypetarrif.rate) as rate, satellitehotel.satelliteid FROM hotel_display_bb, hotels inner join images on hotels.hotelid = images.hotelid inner join priority on hotels.priorityid = priority.priorityid inner join roomtypetarrif on hotels.hotelid = roomtypetarrif.hotelid inner join satellitehotel on hotels.hotelid = satellitehotel.hotelid AND images.defaultimage= 1 and satelliteid = 1 WHERE hotels.hotelid = hotel_display_bb.hotelid GROUP BY hotels.hotelid ORDER BY priority.priorityorder ASC, hotels.hotelname" RsHotels.Open sqlstr,MM_caliet_STRING RsHotels_numRows = 0 %> <% Dim RsRegions__MMColParam RsRegions__MMColParam = "8" if (Request.QueryString("region") <> "") then RsRegions__MMColParam = Request.QueryString("region") %> <% set RsRegions = Server.CreateObject("ADODB.Recordset") RsRegions.ActiveConnection = MM_caliet_STRING RsRegions.Source = "SELECT * FROM region WHERE regionid = " + Replace(RsRegions__MMColParam, "'", "''") + "" RsRegions.CursorType = 0 RsRegions.CursorLocation = 2 RsRegions.LockType = 3 RsRegions.Open() RsRegions_numRows = 0 %> <% Dim RsRegionSelector__MMColParam RsRegionSelector__MMColParam = "1" if (Request("MM_EmptyValue") <> "") then RsRegionSelector__MMColParam = Request("MM_EmptyValue") %> <% set RsRegionSelector = Server.CreateObject("ADODB.Recordset") RsRegionSelector.ActiveConnection = MM_caliet_STRING RsRegionSelector.Source = "SELECT * FROM region WHERE countryid = " + Replace(RsRegionSelector__MMColParam, "'", "''") + " ORDER BY regionname ASC" RsRegionSelector.CursorType = 0 RsRegionSelector.CursorLocation = 2 RsRegionSelector.LockType = 3 RsRegionSelector.Open() RsRegionSelector_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 RsHotels_numRows = RsHotels_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Repeat2__numRows = -1 Dim Repeat2__index Repeat2__index = 0 RsRegionSelector_numRows = RsRegionSelector_numRows + Repeat2__numRows %> Best Scottish luxury B and B bed and breakfast accommodation guest houses Scotland and Highlands Scotland





<%=newtitle%>Our Best B&Bs and Guest Houses in Scotland

<%if not newtitle = "" then%>

Your search: <%=replace(newtitle,"-","")%>

<%end if%>

Below we have selected 10 of our favourite bed and breakfast experiences and guest houses in Scotland. Where you can be guaranteed the warmest of personal welcomes and the very individual, personal service not always possible in the larger hotel. 'Small is beautiful' properties in some great locations in Scotland with owners who understand, care passionately about, and provide the very best in Scottish hospitality, as well as offering great local area information and advice from first hand experience of the very best things to do and see in some wonderful destinations for holidays and short breaks in Scotland.

<% If RsHotels.EOF And RsHotels.BOF Then %>

We have no accommodation in <%=(RsRegions.Fields.Item("regionname").Value)%> at the moment.
Why not try Asking Hamish for some personalised travel help instead!

<% End If ' end RsHotels.EOF And RsHotels.BOF showHotels = 1 %> <% if (showHotels = 1) THen While ((Repeat1__numRows <> 0) AND (NOT RsHotels.EOF)) %>
.gif" alt="DS Grading" width="18" height="18" hspace="10" align="right" />

"><%=(RsHotels.Fields.Item("hotelname").Value)%>


<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 RsHotels.MoveNext() Wend end if %>
<% RsHotels.Close() %> <% RsRegions.Close() %> <% RsRegionSelector.Close() %>