|
Cottages and Self catering
in Port Isaac -
|
||
|
Cottages
& Self Catering Accommodation in the Port Isaac area
|
||
|
|
||
Cottages in Port Isaac, self catering in Port Isaac, Holiday Homes 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 %>
|
|||||||||||||
|
|||||||||||||
|
|
|||||||||||||
![]() |
|
Promoting
your business on Cornwall Online |
|
Cornwall
Online Website by Internet Trading Systems Ltd. Tel 01579 384778
(To Advertise on this site) |
ref: 06-OCT -