<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% accessdb = server.mappath("/mdb/eastrising.mdb") DSN_STRING = "PROVIDER = Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & accessdb %> <% Set RS = Server.CreateObject("ADODB.Recordset") RS.ActiveConnection = DSN_STRING RS.Source = "SELECT * FROM Performances" RS.CursorType = 0 RS.CursorLocation = 2 RS.LockType = 1 RS.Open() %> <% i = 0 %> <% While (not RS.EOF) %> <% If (i MOD 2 <> 0) Then %> <% i = i + 1 %> <% Else %> <% i = i + 1 %> <% End If %> <% RS.movenext() Wend RS.close() set RS = Nothing %>

Performance Name	Date	Description	Edit
<%=RS.fields.item("Event Name").value%>	<%=RS.fields.item("Date").value%>	<%=RS.fields.item("Description").value%>	">Edit
<%=RS.fields.item("Event Name").value%>	<%=RS.fields.item("Date").value%>	<%=RS.fields.item("Description").value%>	">Edit