<% 'This is where we get data to build the table 'We are going to use our already established connection. if Request.Form("chkNFLFull") <> "" then sLength = "Game" sLeague = "NFL" sTableSwitch = "Final" sCaption = "NFL Football [Full Game]" Set oRS = Server.CreateObject("ADODB.Recordset") oRS.CursorType = 3 oRS.CursorLocation = 3 Set oRS = GetAvailableLines("AvailableFootballLinesFull", "NFL", 1) 'oRS.Open "Exec AvailableFootballLinesFull NFL", 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("chkNFLHalf") <> "" then sLength = "1stHalf" sLeague = "NFL" sTableSwitch = "1stHalfTime" sCaption = "NFL Football [1st Half Time]" Set oRS = Server.CreateObject("ADODB.Recordset") oRS.CursorType = 3 oRS.CursorLocation = 3 Set oRS = GetAvailableLines("AvailableFootballLines1stHalf", "NFL", 1) 'oRS.Open "Exec AvailableFootballLines1stHalf NFL", 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("chkNFLHalf") <> "" then sLength = "2ndHalf" sLeague = "NFL" sTableSwitch = "2ndHalfTime" sCaption = "NFL Football [2nd Half Time]" Set oRS = Server.CreateObject("ADODB.Recordset") oRS.CursorType = 3 oRS.CursorLocation = 3 Set oRS = GetAvailableLines("AvailableFootballLines2ndHalf", "NFL", 1) 'oRS.Open "Exec AvailableFootballLines2ndHalf NFL", 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("chkNFLQuarter") <> "" then sLength = "1stQtr" sLeague = "NFL" sTableSwitch = "1st" sCaption = "NFL Football [1st Quarter]" Set oRS = Server.CreateObject("ADODB.Recordset") oRS.CursorType = 3 oRS.CursorLocation = 3 Set oRS = GetAvailableLines("AvailableFootballLines1stQuarter", "NFL", 1) 'oRS.Open "Exec AvailableFootballLines1stQuarter NFL", 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("chkNFLQuarter") <> "" then sLength = "2ndQtr" sLeague = "NFL" sTableSwitch = "2nd" sCaption = "NFL Football [2nd Quarter]" Set oRS = Server.CreateObject("ADODB.Recordset") oRS.CursorType = 3 oRS.CursorLocation = 3 Set oRS = GetAvailableLines("AvailableFootballLines2ndQuarter", "NFL", 1) 'oRS.Open "Exec AvailableFootballLines2ndQuarter NFL", 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("chkNFLQuarter") <> "" then sLength = "3rdQtr" sLeague = "NFL" sTableSwitch = "3rd" sCaption = "NFL Football [3nd Quarter]" Set oRS = Server.CreateObject("ADODB.Recordset") oRS.CursorType = 3 oRS.CursorLocation = 3 Set oRS = GetAvailableLines("AvailableFootballLines3rdQuarter", "NFL", 1) 'oRS.Open "Exec AvailableFootballLines3rdQuarter NFL", 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("chkNFLQuarter") <> "" then sLength = "4thQtr" sLeague = "NFL" sTableSwitch = "4th" sCaption = "NFL Football [4th Quarter]" Set oRS = Server.CreateObject("ADODB.Recordset") oRS.CursorType = 3 oRS.CursorLocation = 3 Set oRS = GetAvailableLines("AvailableFootballLines4thQuarter", "NFL", 1) 'oRS.Open "Exec AvailableFootballLines4thQuarter NFL", oConn %> <% 'Set oRS = Server.CreateObject("ADODB.Recordset") 'oRS.CursorType = 3 'oRS.CursorLocation = 3 'Set oRS = GetAvailableLines("AvailableFootballLines4thQuarter", "NFL", 1) Do while not oRS.EOF 'response.write ("Recordcount :") & oRS.recordcount %>