Gig List

4th jan 2009
El Cheringeto Calpe (on seafront)

27th DECEMBER 2008
THE HITHERGREEN RAILWAYMENS CLUB,BEACON RD,SE12.

2ND JAN-20TH FEBRUARY 2009
COSTA BLANCA SPAIN.

25TH FEB 2009
PRIVATE FUNCTION, CAMBRIDGE.

11TH APRIL
PRIVATE FUNCTION,MILTON KEYNES,BEDS.

3RD MAY
THE NEW ELTHAM SOCIAL CLUB,AVERY HILL,SE9.

13TH SEPTEMBER
THE NEW ELTHAM SOCIAL CLUB,AVERY HILL,SE9.
 

<% 'Dimension variables Dim adoCon 'Holds the Database Connection Object Dim rsGuestbook 'Holds the recordset for the records in the database Dim strSQL 'Holds the SQL query for the database 'Create an ADO connection odject Set adoCon = Server.CreateObject("ADODB.Connection") 'Set an active connection to the Connection object using a DSN-less connection adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("giglist/gigdb.mdb") 'Set an active connection to the Connection object using DSN connection 'adoCon.Open "DSN=guestbook" 'Create an ADO recordset object Set rsGuestbook = Server.CreateObject("ADODB.Recordset") 'Initialise the strSQL variable with an SQL statement to query the database strSQL = "SELECT tblComments.Name, tblComments.Comments, tblComments.Order FROM tblComments ORDER BY tblComments.Order ASC;" 'Open the recordset with the SQL query rsGuestbook.Open strSQL, adoCon 'Loop through the recordset Do While not rsGuestbook.EOF 'Write the HTML to display the current record in the recordset Response.Write ("
") Response.Write (rsGuestbook("Name")) Response.Write ("
") Response.Write (rsGuestbook("Comments")) Response.Write ("
") 'Move to the next record in the recordset rsGuestbook.MoveNext Loop 'Reset server objects rsGuestbook.Close Set rsGuestbook = Nothing Set adoCon = Nothing %>