<% '---------------' 'Make Connection' '---------------' Set DBConnection = server.CreateObject("ADODB.connection") Conn="Provider=Microsoft.Jet.OLEDB.4.0;" 'Staff.mdb database '------------------ Conn=Conn & "Data Source=C:\Inetpub\niall\Atlantic.mdb;" '-------------------- 'recordsets '-------------------- set oRs_TimeTableFull= Server.CreateObject("ADODB.Recordset") On Error Resume Next DBConnection.open Conn 'Error Trap '-------------------------------- response.write err.description on error goto 0 '-------------------------------- FOR Each Item in Request.Form FOR iCount = 1 to Request.Form(Item).Count IF Request.Form(Item)(iCount) <> "" then response.write "item:" & Item IF Item <> ("DropDown_OneOff") AND Item <> ("B1") THEN '------------------------------- ' Assign Value of Button Pressed '------------------------------- SelectedItem = Item ELSE IF Item = ("DropDown_OneOff") THEN varSelection = Request.Form(Item) session("varSelection")=varSelection response.write varSelection END IF END IF END IF NEXT NEXT IF SelectedItem = "Administration" THEN response.redirect "timetable_Admin_Sec.htm" 'response.redirect "default.asp" ELSE '--------------------------------------------*** ' GENEATES SQL TO Return Searched Record '--------------------------------------------*** strSQL_TimeTableFull=fnSQL_TimeTableFull() oRs_TimeTableFull.OPen strSQL_TimeTableFull, DBConnection '--------------------------------------------*** ' Sets output table % '--------------------------------------------*** tblTimeTableFull="" tblTimeTableAdmin="" CALL Setup_TimeTable_Display() '--------------------------------------------*** ' Output Results in tables '--------------------------------------------*** response.write tblTimeTableFull response.write tblTimeTableAdmin END IF DBConnection.Close %>

  Top of Page

Copyright Atlantic Challenge 2004 Site by Niall Julian