Hotel accommoadation in St. Ives

<%@ LANGUAGE="VBSCRIPT" %>


Self Catering Accommodation in the St. Ives area

<% response.write "Please wait a few seconds whilst we generate the page" %>

<% 'sql = "SELECT [Accommodation_Type], [ID], [Town], [Local Area], [Postcode], [Website Text], [Establishment and Town],[URL],[Show],[HolidayAgency] From Clients WHERE ([Local Area] Like '%St. Ives%'AND [Accommodation_Type] Like '%hotel%'AND [Show] NOT LIKE '%Hide%' AND [HolidayAgency] NOT LIKE '%Y%') " sql = "SELECT [Accommodation_Type], [ID], [Town], [Local Area], [Postcode], [Website Text], [Establishment and Town],[URL],[Show],[HolidayAgency] From Clients WHERE ([Local Area] Like '%ives%'AND [Accommodation_Type] Like '%hotel%'AND [Show] NOT LIKE '%Hide%'AND [HolidayAgency] NOT LIKE '%') " randomize timer ordervalue = Int((6 * Rnd()) + 1) 'response.write "The Value is now:" & ordervalue Select Case ordervalue Case 1 sql = sql & " ORDER BY [Establishment and Town] desc " Case 2 sql = sql & " ORDER BY [Postcode] desc" Case 3 sql = sql & " ORDER BY [ID]" Case 4 sql = sql & " ORDER BY [Establishment and Town] " Case 5 sql = sql & " ORDER BY [ID]desc" Case 6 sql = sql & " ORDER BY [Postcode]" 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 Hotel property in this area" Else Response.write " Cornwall Online has " & objRec.RecordCount & " Hotel properties in the St. Ives 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" Else bgcolor="White" End If %> > > <% objRec.MoveNext x=x+1 loop objRec.Close Set objRec = Nothing objConn.Close Set objConn=Nothing %>


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