St Teath and Port Isaac Holiday Cottages - Cornwall Online Guide
Self-catering Cottages st Teath, Port Isaac, Port Gaverne & Port Quinn Holiday Rentals

Port Isaac Holiday Cottages - Holiday Apartments in Port Isaac .
Holiday Cottage and apartment rental in the St Teath and Port Isaac - direct from the owners.

Click Here to visit the Cornwall Online Website

The Cornwall Online Guide - Holiday Rental properties <% sql = "SELECT TOP 52 * From Clients WHERE ([Local Area] Like '%port isaac%' AND [Show] NOT LIKE '%Hide%'AND [HolidayAgency] NOT LIKE '%') " sql = sql & " ORDER BY rnd(INT(NOW*id)-NOW*id)" %> <%' 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-domains\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 property in this area" Else Response.write " Cornwall Online has " & objRec.RecordCount & " Featured Holiday accommodation, Holiday Rental and B&B properties this 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="#E6E6FF" aligncode="right" Else bgcolor="White" aligncode="right" End If %>

" target="_blank"><%=objRec("Establishment and Town")%> - " target="_blank"> <%=objRec("Town")%> holiday accommodation

<%if objRec("stamp")= "Yes" Then %> " target="_blank">/main.jpg" class="w3-image" alt="<%=objRec("Establishment and Town")%> - <%= objRec("Accommodation_Type")%> " > <%end if%> <% IF (objRec("Current_Offer_End") >= Now() AND objRec("Current_Offer")<> "") THEN %> <%end if%> <%if objRec("Telephone")<> "" Then %>

phone <%=objRec("Telephone")%> <%end if%>

<%if InStr(1,objRec("Accommodation_Type"),"Bed")>0 Then %> " target="_blank"> <%if objRec("en-suite")= "En Suite" Then %> En-suite <%end if%> Bed & Breakfast Stays, <%end if%> <%if InStr(1,objRec("Accommodation_Type"),"Hotel")>0 Then %> " target="_blank"> Hotel Room Accommodation, <%end if%> <%if InStr(1,objRec("Accommodation_Type"),"Self")>0 Then %> " target="_blank"> Self- catering Holiday <%if InStr(1,objRec("Establishment and Town"),"Cottage")>0 Then %> Cottage <%end if%> <%if InStr(1,objRec("Establishment and Town"),"Lodge")>0 Then %> Lodge <%end if%> <%if InStr(1,objRec("Establishment and Town"),"Apartment")>0 Then %> Apartment <%end if%> Rental, <%end if%> <%if InStr(1,objRec("Accommodation_Type"),"Static")>0 Then %> " target="_blank">Static Holiday Caravan Stays, <%end if%> <%if InStr(1,objRec("Accommodation_Type"),"Camping")>0 Then %> " target="_blank"> Camping and Touring Pitches, <%end if%> <%if InStr(1,objRec("Accommodation_Type"),"Park")>0 Then %> " target="_blank"> Holiday Park vacation, <%end if%>

<%if objRec("Change_Over")<> "" Then %> Changeover Day = <%=objRec("Change_Over")%> <%end if%>

<%if objRec("LOW TARIFF")<> "" Then %> Prices from <%=objRec("LOW TARIFF")%> <%end if%> <%if objRec("HIGH TARIFF")<> "" Then %> to <%=objRec("HIGH TARIFF")%> <%end if%>

<%=objRec("WCTB/ETB/CTB")%>   <%=objRec("Checked Gradings")%>

<%if objRec("Pool")= "Pool" Then %> Holidays in <%=objRec("Town")%> with the " target="_blank">benefit of an onsite swimming pool - to help you enjoy your Holiday in Cornwall. <%end if%> <%=objRec("Website Text")%>

<%if InStr(1,objRec("Facilities for the Disabled"),"Yes")>0 Then %> <%=objRec("Establishment and Town")%> has Limited Disabled Facilities, please call <%=objRec("Telephone")%> for details.
<%end if%> <%if objRec("Facilities for the Disabled")<> "" Then %> <%end if%> <%if InStr(1,objRec("Facilities for the Disabled"),"1")>0 Then %> Category 1 - Please check facilities with owner <%end if%> <%if InStr(1,objRec("Facilities for the Disabled"),"2")>0 Then %> Category 2 - Please check facilities with owner <%end if%> <%if InStr(1,objRec("Facilities for the Disabled"),"3i")>0 Then %> Category 3 Assisted - Please check facilities with owner <%end if%> <%if InStr(1,objRec("Facilities for the Disabled"),"3a")>0 Then %> Category 3 Independant - Please check facilities with owner <%end if%> <%if InStr(1,objRec("FACEBOOK"),"Face")>0 Then %> " target="_blank"> <%end if%> <%if InStr(1,objRec("FACEBOOK"),"Twit")>0 Then %> " target="_blank"> <%end if%>

<%if objRec("Pets")= "Pets Allowed" Then %>

" target="_blank">Pets are Welcome at <%=objRec("Establishment and Town")%> in <%=objRec("Town")%> -We are a Dog friendly establishment.

<%end if%> " target="_blank">

Facilities

<%if objRec("Sleeps")= "2" Then %> Sleeps: 2 max.
<%end if%> <%if objRec("Sleeps")= "3" Then %> Sleeps: 3 max.
<%end if%> <%if objRec("Sleeps")= "4" Then %> Sleeps: 4 max.
<%end if%> <%if objRec("Sleeps")= "5" Then %> Sleeps: 5 max.
<%end if%> <%if objRec("Sleeps")= "6" Then %> Sleeps: 6 max.
<%end if%> <%if objRec("Sleeps")= "7" Then %> Sleeps: 7 max.
<%end if%> <%if objRec("Sleeps")= "8" Then %> Sleeps: 8 max.
<%end if%> <%if objRec("Sleeps")= "9" Then %> Sleeps: 9 max.
<%end if%> <%if objRec("Sleeps")=> 10 Then %> Sleeps: 10+ max.
<%end if%> <%if objRec("LARGE GROUPS")= "LG" Then %> people Suitable for Large / Family Groups
<%end if%>     Location: <%=objRec("Town")%>
beach_access Nearest Beach: <%if objRec("Beach")= "0-1" Then %> 0-1 mile <%end if%> <%if objRec("Beach")= "1-3" Then %> 1-3 miles <%end if%> <%if objRec("Beach")= "3-10" Then %> 3-10 miles <%end if%> <%if objRec("Beach")= "10+" Then %> 10+ miles <%end if%>

<%if objRec("Availability")= "Yes" Then %> Online Availability
<%end if%> <%if objRec("Credit Cards")= "Credit Cards" Then %> credit_card Credit/Debit Cards Accepted
<%end if%> <%if objRec("Pets")= "Pets Allowed" Then %> pets Pets Welcome
<%end if%> <%if objRec("Parking")<> " " Then %> local_parking Parking Available
<%end if%> <%if objRec("Internet access")= "Internet Access" Then %> wifi Internet Access
<%end if%> <%if objRec("Sea views")= "Sea Views" Then %> Sea Views
<%end if%> <%if objRec("en-suite")= "En Suite" Then %> En-Suite Facilities
<%end if%> <%if objRec("Pool")= "Pool" Then %> pool Swimming Pool
<%end if%> <%if objRec("Bar")= "Bar" Then %> Bar
<%end if%> <%if objRec("RESTAURANT")= "Restaurant" Then %> Restaurant <%end if%> <%if objRec("Facilities for the Disabled")<> "" Then %>
Disabled Facilities- Please call to discuss your requirements - before booking ! <%end if%> <%if objRec("Telephone")<> "" Then %>

phone <%=objRec("Telephone")%> <%end if%>

" target="_blank">Click Here for more information about holidays at
<%=objRec("Establishment and Town")%>,  <%=objRec("Town")%>


" target="_blank">

<%=objRec("Establishment and Town")%> ,  <%if InStr(1,objRec("Accommodation_Type"),"Self")>0 Then %> <%=objRec("Town")%> Self-catering Holiday <%if InStr(1,objRec("Establishment and Town"),"Cottage")>0 Then %> Cottage <%end if%> rental <%if objRec("Sea views")= "Sea Views" Then %> with Sea Views. <%end if%>   <%end if%> <%if InStr(1,objRec("Accommodation_Type"),"Caravan")>0 Then %> Self-catering Holiday Caravan accommodation in <%=objRec("Town")%>. <%if objRec("Sea views")= "Sea Views" Then %> with Sea Views. <%end if%>   <%end if%> <%if InStr(1,objRec("Accommodation_Type"),"Bed")>0 Then %> <%if objRec("en-suite")= "En Suite" Then %> En-Suite <%end if%> Bed & Breakfast (B&B) Holiday Stays in <%=objRec("Town")%> <%if objRec("Sea views")= "Sea Views" Then %> with Sea Views. <%end if%>   <%end if%> <%if InStr(1,objRec("Accommodation_Type"),"Camping")>0 Then %> Camping and Touring | Camp sites in <%=objRec("Town")%> <%if objRec("Sea views")= "Sea Views" Then %> with Sea Views. <%end if%>   <%end if%> <%if InStr(1,objRec("Establishment and Town"),"Apartment")>0 Then %> <%=objRec("Town")%> Holiday Apartment Rental <%if objRec("Sea views")= "Sea Views" Then %> with Sea Views. <%end if%> <%end if%>

<% objRec.MoveNext x=x+1 loop objRec.Close Set objRec = Nothing objConn.Close Set objConn=Nothing %>