<%@ LANGUAGE="VBSCRIPT" %>
Cottages and Self catering in Port Isaac -
Cottages & Self Catering Accommodation in the Port Isaac area
Cornish Holiday Accommodation Guide

Cottages in Port Isaac, self catering in Port Isaac, Holiday Homes in Port Isaac,

<% response.write "Please wait a few seconds whilst we generate the page" %>
Main Lists:  Hotels & Bed & Breakfast in Port Isaac | Self catering in Port Isaac | Full Accommodation List
Specific Search Lists: Hotels in Port Isaac | Bed & Breakfast in Port Isaac | Self-catering in Port Isaac
<% 'sql = "SELECT [Accommodation_Type], [ID], [Town], [Local Area], [Postcode], [Website Text], [Establishment and Town],[URL],[Show],[HolidayAgency] From Clients WHERE ([Local Area] Like '%Port Isaac%'AND [Accommodation_Type] Like '%cater%'AND [Show] NOT LIKE '%Hide%' AND [HolidayAgency] NOT LIKE '%Y%') " sql = "SELECT [Accommodation_Type], [ID], [Town], [Local Area], [Telephone], [Postcode], [Website Text], [Establishment and Town],[URL],[Show],[HolidayAgency], [WCTB/ETB/CTB], [Checked Gradings], [Facilities for the Disabled], [stamp] From Clients WHERE ([Local Area] Like '%Isaac%'AND [Accommodation_Type] Like '%cater%'AND [Show] NOT LIKE '%Hide%'AND [HolidayAgency] NOT LIKE '%') " randomize timer ordervalue = Int((18 * Rnd()) + 1) 'response.write "The Value is now:" & ordervalue Select Case ordervalue Case 1 sql = sql & " ORDER BY [Establishment and Town]" Case 2 sql = sql & " ORDER BY [Postcode]" Case 3 sql = sql & " ORDER BY [ID], [Establishment and Town]" Case 4 sql = sql & " ORDER BY [Telephone] " Case 5 sql = sql & " ORDER BY [Website Text] " Case 6 sql = sql & " ORDER BY [Town] " Case 7 sql = sql & " ORDER BY [Establishment and Town] desc" Case 8 sql = sql & " ORDER BY [Postcode] desc" Case 9 sql = sql & " ORDER BY [ID], [Establishment and Town] desc" Case 10 sql = sql & " ORDER BY [Telephone] desc" Case 11 sql = sql & " ORDER BY [Website Text] desc" Case 12 sql = sql & " ORDER BY [Town] desc " Case 13 sql = sql & " ORDER BY [Establishment and Town], [Telephone] desc" Case 14 sql = sql & " ORDER BY [Postcode], [Telephone] desc" Case 15 sql = sql & " ORDER BY [ID] desc , [Establishment and Town]" Case 16 sql = sql & " ORDER BY [Telephone], [Website Text]" Case 17 sql = sql & " ORDER BY [Website Text] , [ID] desc" Case 18 sql = sql & " ORDER BY [Town], [ID] desc " End Select ' sql = sql & " ORDER BY [Accommodation_Type] desc " %> <%' Open Connection dim objConn dim objRec set objConn = Server.CreateObject("ADODB.Connection") set objRec = Server.CreateObject("ADODB.Recordset") ' set the cursor location for record count objRec.CursorLocation = 3 objConn.Open "Driver={Microsoft Access driver (*.mdb)};DBQ=d:\wwwdata\pub\www.westcountry-online.com\accommodationdata\database\accommodationdata.mdb" objRec.Open sql, objConn 'objRec.Open "Clients", objConn, 0,1,2 %> <% ' trap any errors On Error Resume Next ' count the number of records found if objRec.RecordCount = 1 Then Response.write "Cornwall Online has one Self-catering property in this area" Else Response.write " Cornwall Online has " & objRec.RecordCount & " self-catering properties in the Port Isaac area " End if ' Say if their are no records found if objRec.eof Then Response.Write " - " End If ' Process Row objRec.MoveFirst x = 0 intCount = 0 do while Not objRec.eof intCount = intCount + 1 If intCount mod 2 = 0 Then bgcolor="#F0ECBD" aligncode="right" Else bgcolor="White" aligncode="left" End If %> > > <% objRec.MoveNext x=x+1 loop objRec.Close Set objRec = Nothing objConn.Close Set objConn=Nothing %>

"><%=objRec("Establishment and Town")%>
"><%=objRec("Town")%>

">Click here to view website

<%if objRec("stamp")= "Yes" Then %> "> /stamp.jpg" width="100" height="70" border="0" alt="<%=objRec("Establishment and Town")%>" align=<%=aligncode%>> <%end if%>

"><%= objRec("Accommodation_Type")%> <%=objRec("Website Text")%>
<%if objRec("Facilities for the Disabled")<> "" Then %> <%=objRec(" align="absmiddle"> <%end if%>   <%=objRec("WCTB/ETB/CTB")%>  <%=objRec("Checked Gradings")%> Tel: <%=objRec("Telephone")%>

ACCOMMODATION IN PORT ISAAC

Here you will find the accommodation you need: Cottage and self catering Accommodation - Port Isaac, Cornwall UK -

BED &
BREAKFAST 		FARM
HOLIDAYS
HOTELS
& INNS
SELF CATERING

 
Main Lists:  Hotels & Bed & Breakfast in Port Isaac | Self catering in Port Isaac | Full Accommodation List
Specific Search Lists: Hotels in Port Isaac | Bed & Breakfast in Port Isaac | Self-catering in Port Isaac
Click here to find out more about Cornwall and Devon

Promoting your business on Cornwall Online
Copyright ©1994 - 2006 - Disclaimer

Cornwall Online Website by Internet Trading Systems Ltd. Tel 01579 384778 (To Advertise on this site)

 

ref: 06-OCT -