<% 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 Cruiser2019 WHERE mnth LIKE 'Apr' ORDER BY Field1" 'mySQL = "SELECT * FROM dinghy WHERE date = # " & Date() & " # " 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") %>
<% ' Don't forget to close your connection after you display your data. objRS.Close Set objRS = Nothing objConn.Close Set objConn = Nothing %>