<% DIM objConn Set objConn = Server.CreateObject("ADODB.Connection") objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= D:\Domains\chifed.org\db\fed.mdb" objConn.Open DIM mySQL mySQL = "SELECT * FROM dinghy2018 WHERE mnth LIKE 'Apr' ORDER BY Field2" 'mySQL = "SELECT * FROM inghy WHERE month IN ('apr') ORDER BY ID" 'mySQL = "SELECT * FROM dinghy WHERE date(=Date()<=5) DIM objRS Set objRS = Server.CreateObject("ADODB.Recordset") objRS.Open mySQL, objConn %> <% DO WHILE NOT objRS.EOF %> <% no = no + 1 objRS.MoveNext Loop %>
<% Response.Write objRS("date_") %> <% Response.Write objRS("club") %> <% Response.Write objRS("event") %>