<% if request.querystring("action") = "complete" then 'the user has set a start date... 'show them the results Set Conn = server.createObject("ADODB.connection") Conn.open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\") & "\data\NothingToIt.mdb;UID=;PWD=;" startDateVar = CDate(request.form("startDate")) durationVar = CINT(request.form("weeks")) * 7 enddateVar = CDate(startDateVar + durationVar) 'testing... response.write "

" response.write telldayofweek(startdateVar)&", "& startdateVar & " is startdate
" response.write durationVar & " is number of days
" response.write telldayofweek(enddateVar)&", "&enddateVar & " is enddate
" response.write "

" SQL = "SELECT * FROM Class_tbl" Set RS = server.createObject("adodb.recordset") rs.open SQL, CONN, 2 While not RS.EOF response.write "" rs.movenext WEND rs.close set RS = nothing conn.close set conn = nothing else 'this is the first time the visitor has been here... 'show them the blank form response.write "
" response.write " Start Date

" response.write " Duration

" response.write "" response.write"
" End if %>