%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rsNextGig Dim rsNextGig_numRows Set rsNextGig = Server.CreateObject("ADODB.Recordset") rsNextGig.ActiveConnection = MM_NorthernShineData_STRING rsNextGig.Source = "SELECT * FROM Gigs WHERE GigDate > Now - 1 AND IncludeOnIndex = 'Y' ORDER BY GigDate ASC" rsNextGig.CursorType = 0 rsNextGig.CursorLocation = 2 rsNextGig.LockType = 1 rsNextGig.Open() rsNextGig_numRows = 0 %>
![]() |
||||||
|
|