<% username = Request.cookies("user-name") set RecordSet1 = Server.CreateObject("ADODB.RecordSet") Recordset1.ActiveConnection = DBPath Recordset1.Source = "SELECT * FROM events WHERE username = '"&username&"' ORDER BY enddate DESC;" Recordset1.CursorType = 0 Recordset1.LockType = 3 Recordset1.Open() %> <% D = Date() Dim x x=0 Do While Not RecordSet1.EOF%> <%x=x+1%> <% RecordSet1.MoveNext%> <%loop%>

<%Response.Write(x)%>

<%Response.Write(RecordSet1("event_title"))%>

"><%Response.Write("Edit")%>

">view event

"><%Response.Write("delete")%>

<%If RecordSet1("enddate")>=D then%> current <%else%> expired <%end if%>