<% 'This is where we get data to build the table 'We are going to use our already established connection. ' response.write ("Chk:" + Request.Form("chkBasketballNBAFull")) if Request.Form("chkNBAFull") <> "" then sLength = "Game" sLeague = "NBA" sTableSwitch = "Final" sCaption = "NBA Basketball [Full Game]" Set oRS = Server.CreateObject("ADODB.Recordset") oRS.CursorType = 3 oRS.CursorLocation = 3 Set oRS = GetAvailableLines("AvailableBasketballLinesFull", "NBA", 1) 'oRS.Open "Exec AvailableBasketballLinesFull NBA", oConn %> <% Do while not oRS.EOF 'response.write ("Recordcount :") & oRS.recordcount %> <% 'This is where we get data to build the table 'We are going to use our already established connection. if Request.Form("chkNBAHalf") <> "" then sLength = "1stHalf" sLeague = "NBA" sTableSwitch = "1stHalfTime" sCaption = "NBA Basketball [1st Half Time]" Set oRS = Server.CreateObject("ADODB.Recordset") oRS.CursorType = 3 oRS.CursorLocation = 3 Set oRS = GetAvailableLines("AvailableBasketballLines1stHalf", "NBA", 1) 'oRS.Open "Exec AvailableBasketballLines1stHalf NBA", oConn %> <% Do while not oRS.EOF 'response.write ("Recordcount :") & oRS.recordcount %> <% 'This is where we get data to build the table 'We are going to use our already established connection. if Request.Form("chkNBAHalf") <> "" then sLength = "2ndHalf" sLeague = "NBA" sTableSwitch = "2ndHalfTime" sCaption = "NBA Basketball [2nd Half Time]" Set oRS = Server.CreateObject("ADODB.Recordset") oRS.CursorType = 3 oRS.CursorLocation = 3 Set oRS = GetAvailableLines("AvailableBasketballLines2ndHalf", "NBA", 1) 'oRS.Open "Exec AvailableBasketballLines2ndHalf NBA", oConn %> <% Do while not oRS.EOF 'response.write ("Recordcount :") & oRS.recordcount %> <% 'This is where we get data to build the table 'We are going to use our already established connection. if Request.Form("chkNBAQuarter") <> "" then sLength = "1stQtr" sLeague = "NBA" sTableSwitch = "1st" sCaption = "NBA Basketball [1st Quarter]" Set oRS = Server.CreateObject("ADODB.Recordset") oRS.CursorType = 3 oRS.CursorLocation = 3 Set oRS = GetAvailableLines("AvailableBasketballLines1stQuarter", "NBA", 1) 'oRS.Open "Exec AvailableBasketballLines1stQuarter NBA", oConn %> <% Do while not oRS.EOF 'response.write ("Recordcount :") & oRS.recordcount %> <% 'This is where we get data to build the table 'We are going to use our already established connection. if Request.Form("chkNBAQuarter") <> "" then sLength = "2ndQtr" sLeague = "NBA" sTableSwitch = "2nd" sCaption = "NBA Basketball [2nd Quarter]" Set oRS = Server.CreateObject("ADODB.Recordset") oRS.CursorType = 3 oRS.CursorLocation = 3 Set oRS = GetAvailableLines("AvailableBasketballLines2ndQuarter", "NBA", 1) 'oRS.Open "Exec AvailableBasketballLines2ndQuarter NBA", oConn %> <% Do while not oRS.EOF 'response.write ("Recordcount :") & oRS.recordcount %> <% 'This is where we get data to build the table 'We are going to use our already established connection. if Request.Form("chkNBAQuarter") <> "" then sLength = "3rdQtr" sLeague = "NBA" sTableSwitch = "3rd" sCaption = "NBA Basketball [3nd Quarter]" Set oRS = Server.CreateObject("ADODB.Recordset") oRS.CursorType = 3 oRS.CursorLocation = 3 Set oRS = GetAvailableLines("AvailableBasketballLines3rdQuarter", "NBA", 1) 'oRS.Open "Exec AvailableBasketballLines3rdQuarter NBA", oConn %> <% Do while not oRS.EOF 'response.write ("Recordcount :") & oRS.recordcount %> <% 'This is where we get data to build the table 'We are going to use our already established connection. if Request.Form("chkNBAQuarter") <> "" then sLength = "4thQtr" sLeague = "NBA" sTableSwitch = "4th" sCaption = "NBA Basketball [4th Quarter]" Set oRS = Server.CreateObject("ADODB.Recordset") oRS.CursorType = 3 oRS.CursorLocation = 3 Set oRS = GetAvailableLines("AvailableBasketballLines4thQuarter", "NBA", 1) 'oRS.Open "Exec AvailableBasketballLines4thQuarter NBA", oConn %> <% 'Set oRS = Server.CreateObject("ADODB.Recordset") 'oRS.CursorType = 3 'oRS.CursorLocation = 3 'Set oRS = GetAvailableLines("AvailableBasketballLines4thQuarter", "NBA", 1) Do while not oRS.EOF 'response.write ("Recordcount :") & oRS.recordcount %>