<%@LANGUAGE="VBSCRIPT"%> <% 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, 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.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 %> <%=newtitle%>Recent Hotels





<%=newtitle%>Our New Accommodation and Hotels in Scotland

<%if not newtitle = "" then%>

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

<%end if%>

Please select your choice of hotels, self catering, guest houses or bed and breakfasts from the list of Scottish accommodation below.

<% 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 %>