<%@LANGUAGE="VBSCRIPT"%> <% Dim rsCities Dim rsCities_numRows Set rsCities = Server.CreateObject("ADODB.Recordset") rsCities.ActiveConnection = "DRIVER={Microsoft Access Driver (*.mdb)};" & _ "DBQ=F:\wwwroot\domains\DSE-INC.com\seminars.mdb" rsCities.Source = "SELECT CityCode, CityName FROM CityCodes ORDER BY CityCode ASC" rsCities.CursorType = 0 rsCities.CursorLocation = 2 rsCities.LockType = 1 rsCities.Open() rsCities_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsCities_numRows = rsCities_numRows + Repeat1__numRows %>

<% While ((Repeat1__numRows <> 0) AND (NOT rsCities.EOF)) %>

<%=(rsCities.Fields.Item("CityName").Value)%>

<% Dim rsAgendas Dim rsAgendas_numRows Set rsAgendas = Server.CreateObject("ADODB.Recordset") rsAgendas.ActiveConnection = "DRIVER={Microsoft Access Driver (*.mdb)};" & _ "DBQ=F:\wwwroot\domains\DSE-INC.com\seminars.mdb" rsAgendas.Source = "SELECT * FROM Agendas WHERE City = '" & rsCities.Fields.Item("CityName") & "' ORDER BY WE_Date1 ASC" rsAgendas.CursorType = 0 rsAgendas.CursorLocation = 2 rsAgendas.LockType = 1 rsAgendas.Open() rsAgendas_numRows = 0 Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 rsAgendas_numRows = rsAgendas_numRows + Repeat2__numRows While ((Repeat2__numRows <> 0) AND (NOT rsAgendas.EOF)) If CDate(rsAgendas("WE_Date2")) >

<% If AgendaIsActive then %>

<% Else ' grey out the buttons %> <% End If ' AgendaIsActive then %> <% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 rsAgendas.MoveNext() Wend %>

width="172" id="b1">Agenda<%=(rsAgendas.Fields.Item("Agenda").Value)%>

width="258" id="b1"><%=DoDateTime(rsAgendas.Fields.Item("WE_Date1").Value,1,4105)%> - <%=DoDateTime(rsAgendas.Fields.Item("WE_Date2").Value,1,4105)%>

#top">

<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsCities.MoveNext() Wend %>

<% rsCities.Close() Set rsCities = Nothing %> <% rsAgendas.Close() Set rsAgendas = Nothing %>