<%@LANGUAGE="VBSCRIPT"%>
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_g66connect_STRING
Recordset1.Source = "SELECT * FROM Table1"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
%>
<%
' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables
Dim Recordset1_total
Dim Recordset1_first
Dim Recordset1_last
' set the record count
Recordset1_total = Recordset1.RecordCount
' set the number of rows displayed on this page
If (Recordset1_numRows < 0) Then
Recordset1_numRows = Recordset1_total
Elseif (Recordset1_numRows = 0) Then
Recordset1_numRows = 1
End If
' set the first and last displayed record
Recordset1_first = 1
Recordset1_last = Recordset1_first + Recordset1_numRows - 1
' if we have the correct record count, check the other stats
If (Recordset1_total <> -1) Then
If (Recordset1_first > Recordset1_total) Then
Recordset1_first = Recordset1_total
End If
If (Recordset1_last > Recordset1_total) Then
Recordset1_last = Recordset1_total
End If
If (Recordset1_numRows > Recordset1_total) Then
Recordset1_numRows = Recordset1_total
End If
End If
%>
<%
' *** Recordset Stats: if we don't know the record count, manually count them
If (Recordset1_total = -1) Then
' count the total records by iterating through the recordset
Recordset1_total=0
While (Not Recordset1.EOF)
Recordset1_total = Recordset1_total + 1
Recordset1.MoveNext
Wend
' reset the cursor to the beginning
If (Recordset1.CursorType > 0) Then
Recordset1.MoveFirst
Else
Recordset1.Requery
End If
' set the number of rows displayed on this page
If (Recordset1_numRows < 0 Or Recordset1_numRows > Recordset1_total) Then
Recordset1_numRows = Recordset1_total
End If
' set the first and last displayed record
Recordset1_first = 1
Recordset1_last = Recordset1_first + Recordset1_numRows - 1
If (Recordset1_first > Recordset1_total) Then
Recordset1_first = Recordset1_total
End If
If (Recordset1_last > Recordset1_total) Then
Recordset1_last = Recordset1_total
End If
End If
%>
G66 Live - Events
This is the contact page. If you would
like to give us some feedback, general comments or simply ask a question, use
this page to find out how you can.
The G66+ Live Home page, with photos and an
introduction to the official festival web site.
The events page contains all the information
you will need to go to your favourite events. Venues times and information are
all here!
The posters page contains some individual advertising posters for some of the events.
This page contains some information and history
on G66+ Live and gives you an insight to what the festival is all about.
On this page you can find out who is involved
in the organisation of this fantastic event.
Each day, the G66+ Live website features
a different photo showing an image from the local area.
Find out about the latest news related to
G66+ Live, this page is updated regularly. If you have any news that you would
like to go on this page, email us on info@g66live.org.uk
G66+ Live :: 4th Community Cultural Festival :: 15-22 June 2008
Events
Welcome to the Events Online - updated daily to keep you in
tune with G66+ Live.
There are details of <%=(Recordset1_total)%> events for you to view online.
To see the list of G66+ Live 2008 Events, click below
