<% '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" sTableSwitch = "Final" sCaption = "NBA Basketball [Full Game]" Set oRS = Server.CreateObject("ADODB.Recordset") oRS.CursorType = 3 oRS.CursorLocation = 3 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" sTableSwitch = "1stHalfTime" sCaption = "NBA Basketball [1st Half Time]" Set oRS = Server.CreateObject("ADODB.Recordset") oRS.CursorType = 3 oRS.CursorLocation = 3 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" sTableSwitch = "2ndHalfTime" sCaption = "NBA Basketball [2nd Half Time]" Set oRS = Server.CreateObject("ADODB.Recordset") oRS.CursorType = 3 oRS.CursorLocation = 3 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" sTableSwitch = "1st" sCaption = "NBA Basketball [1st Quarter]" Set oRS = Server.CreateObject("ADODB.Recordset") oRS.CursorType = 3 oRS.CursorLocation = 3 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" sTableSwitch = "2nd" sCaption = "NBA Basketball [2nd Quarter]" Set oRS = Server.CreateObject("ADODB.Recordset") oRS.CursorType = 3 oRS.CursorLocation = 3 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" sTableSwitch = "3rd" sCaption = "NBA Basketball [3nd Quarter]" Set oRS = Server.CreateObject("ADODB.Recordset") oRS.CursorType = 3 oRS.CursorLocation = 3 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" sTableSwitch = "4th" sCaption = "NBA Basketball [4th Quarter]" Set oRS = Server.CreateObject("ADODB.Recordset") oRS.CursorType = 3 oRS.CursorLocation = 3 oRS.Open "Exec AvailableBasketballLines4thQuarter NBA", oConn %> <% Set oRS = Server.CreateObject("ADODB.Recordset") oRS.CursorType = 3 oRS.CursorLocation = 3 oRS.Open "Exec AvailableBasketballLines4thQuarter NBA", oConn Do while not oRS.EOF 'response.write ("Recordcount :") & oRS.recordcount %>