Upcoming Events

<% Set conn = Server.CreateObject("ADODB.Connection") conn.Provider = "Microsoft.Jet.OLEDB.4.0" conn.Open "d:/ushistory/private/db/cals/washcrossing.mdb" %> <% set rs=Server.CreateObject("ADODB.recordset") sql = "SELECT * from calendar WHERE [show]=true ORDER BY [order-by date]" rs.Open sql, conn do until rs.EOF x_title = rs("title") x_date = rs("date") x_description = rs("description") x_location = rs("location") x_fee = rs("fee") x_picture = rs("picture") x_link = rs("link") x_linktext = rs("link text") %> <% rs.MoveNext loop rs.close conn.close %>