% dim sql, rs, conn Set conn = Server.CreateObject("ADODB.Connection") conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/dbeez") & "\duty.mdb" Set rs = Server.CreateObject("ADODB.Recordset") sql = "SELECT * FROM tblHealth" rs.open sql, conn, 3, 3 %>
** Type your first and last name in an empty cell to volunteer for a specific starting time, day and duty period. DO NOT USE APOSTROPHES AND PLEASE DO NOT TYPE OVER SOMEONE ELSE'S NAME OR TYPE TWO NAMES IN THE SAME CELL. When you have completed typing your name, left click on the "Save Changes" button on the bottom right corner of the form (or press the "enter" key) and follow the directions on the next screen. Thank you for volunteering your time.
<% set rs = nothing set conn = nothing %>