<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim PergEnqt Dim PergEnqt_numRows Set PergEnqt = Server.CreateObject("ADODB.Recordset") PergEnqt.ActiveConnection = MM_Manager_STRING PergEnqt.Source = "SELECT * FROM PergEnqt" PergEnqt.CursorType = 0 PergEnqt.CursorLocation = 2 PergEnqt.LockType = 1 PergEnqt.Open() PergEnqt_numRows = 0 %> <% Dim rsTimesAABBMaster Dim rsTimesAABBMaster_numRows Set rsTimesAABBMaster = Server.CreateObject("ADODB.Recordset") rsTimesAABBMaster.ActiveConnection = MM_Manager_STRING rsTimesAABBMaster.Source = "SELECT * FROM [Consulta_Times_AABBMaster]" rsTimesAABBMaster.CursorType = 0 rsTimesAABBMaster.CursorLocation = 2 rsTimesAABBMaster.LockType = 1 rsTimesAABBMaster.Open() rsTimesAABBMaster_numRows = 0 %> <% Dim rsTimeAABBLivre Dim rsTimeAABBLivre_numRows Set rsTimeAABBLivre = Server.CreateObject("ADODB.Recordset") rsTimeAABBLivre.ActiveConnection = MM_Manager_STRING rsTimeAABBLivre.Source = "SELECT * FROM [Consulta_Times_AABBLivre]" rsTimeAABBLivre.CursorType = 0 rsTimeAABBLivre.CursorLocation = 2 rsTimeAABBLivre.LockType = 1 rsTimeAABBLivre.Open() rsTimeAABBLivre_numRows = 0 %> <% Dim rsInfoTabCamp Dim rsInfoTabCamp_numRows Set rsInfoTabCamp = Server.CreateObject("ADODB.Recordset") rsInfoTabCamp.ActiveConnection = MM_Manager_STRING rsInfoTabCamp.Source = "SELECT * FROM InfoTabelaCampeonato" rsInfoTabCamp.CursorType = 0 rsInfoTabCamp.CursorLocation = 2 rsInfoTabCamp.LockType = 1 rsInfoTabCamp.Open() rsInfoTabCamp_numRows = 0 %> <% Dim rsJRealSim_M Dim rsJRealSim_M_numRows Set rsJRealSim_M = Server.CreateObject("ADODB.Recordset") rsJRealSim_M.ActiveConnection = MM_Manager_STRING rsJRealSim_M.Source = "SELECT * FROM cABJogosRealizados_M" rsJRealSim_M.CursorType = 0 rsJRealSim_M.CursorLocation = 2 rsJRealSim_M.LockType = 1 rsJRealSim_M.Open() rsJRealSim_M_numRows = 0 %> <% Dim rsJRealSim_L Dim rsJRealSim_L_numRows Set rsJRealSim_L = Server.CreateObject("ADODB.Recordset") rsJRealSim_L.ActiveConnection = MM_Manager_STRING rsJRealSim_L.Source = "SELECT * FROM cABJogosRealizados_L" rsJRealSim_L.CursorType = 0 rsJRealSim_L.CursorLocation = 2 rsJRealSim_L.LockType = 1 rsJRealSim_L.Open() rsJRealSim_L_numRows = 0 %> <% Dim rsSF_M1 Dim rsSF_M1_numRows Set rsSF_M1 = Server.CreateObject("ADODB.Recordset") rsSF_M1.ActiveConnection = MM_Manager_STRING rsSF_M1.Source = "SELECT * FROM cABSemifinais_M" rsSF_M1.CursorType = 0 rsSF_M1.CursorLocation = 2 rsSF_M1.LockType = 1 rsSF_M1.Open() rsSF_M1_numRows = 0 %> <% Dim rsSF_L1 Dim rsSF_L1_numRows Set rsSF_L1 = Server.CreateObject("ADODB.Recordset") rsSF_L1.ActiveConnection = MM_Manager_STRING rsSF_L1.Source = "SELECT * FROM cABSemifinais_L" rsSF_L1.CursorType = 0 rsSF_L1.CursorLocation = 2 rsSF_L1.LockType = 1 rsSF_L1.Open() rsSF_L1_numRows = 0 %> <% Dim rsFinalL1 Dim rsFinalL1_numRows Set rsFinalL1 = Server.CreateObject("ADODB.Recordset") rsFinalL1.ActiveConnection = MM_Manager_STRING rsFinalL1.Source = "SELECT * FROM cABFinal_L" rsFinalL1.CursorType = 0 rsFinalL1.CursorLocation = 2 rsFinalL1.LockType = 1 rsFinalL1.Open() rsFinalL1_numRows = 0 %> <% Dim rsFinalM1 Dim rsFinalM1_cmd Dim rsFinalM1_numRows Set rsFinalM1_cmd = Server.CreateObject ("ADODB.Command") rsFinalM1_cmd.ActiveConnection = MM_Manager_STRING rsFinalM1_cmd.CommandText = "SELECT * FROM cABFinal_M" rsFinalM1_cmd.Prepared = true Set rsFinalM1 = rsFinalM1_cmd.Execute rsFinalM1_numRows = 0 %> <% Dim Repeat9__numRows Dim Repeat9__index Repeat9__numRows = -1 Repeat9__index = 0 rsJRealSim_L_numRows = rsJRealSim_L_numRows + Repeat9__numRows %> <% Dim Repeat7__numRows Dim Repeat7__index Repeat7__numRows = -1 Repeat7__index = 0 rsSF_L1_numRows = rsSF_L1_numRows + Repeat7__numRows %> <% Dim Repeat6__numRows Dim Repeat6__index Repeat6__numRows = -1 Repeat6__index = 0 rsSF_M1_numRows = rsSF_M1_numRows + Repeat6__numRows %> <% Dim Repeat5__numRows Dim Repeat5__index Repeat5__numRows = -1 Repeat5__index = 0 rsJRealSim_M_numRows = rsJRealSim_M_numRows + Repeat5__numRows %> <% Dim Repeat8__numRows Dim Repeat8__index Repeat8__numRows = -1 Repeat8__index = 0 rsJRealSim_M_numRows = rsJRealSim_M_numRows + Repeat8__numRows %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 7 Repeat1__index = 0 rsNoticias_numRows = rsNoticias_numRows + Repeat1__numRows %> <% Dim Repeat4__numRows Dim Repeat4__index Repeat4__numRows = 2 Repeat4__index = 0 rsEstrutura_numRows = rsEstrutura_numRows + Repeat4__numRows %> <% Dim Repeat3__numRows Dim Repeat3__index Repeat3__numRows = 2 Repeat3__index = 0 rsEventos_numRows = rsEventos_numRows + Repeat3__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = 3 Repeat2__index = 0 rsEsportes_numRows = rsEsportes_numRows + Repeat2__numRows %> ::: AABB Salvador - Associação Atlética Banco do Brasil ::: <% Session.LCID=2058 'OR use the VBScript SetLocale function to set the locale. 'Response.Write FormatDateTime( Now(), 1) 'The Constant 2 is for obtaining the vbShortDate. %>
<% If Not rsFinalM1.EOF Or Not rsFinalM1.BOF Then %> <% End If ' end Not rsFinalM1.EOF Or NOT rsFinalM1.BOF %> <% If Not rsFinalL1.EOF Or Not rsFinalL1.BOF Then %> <% End If ' end Not rsFinalL1.EOF Or NOT rsFinalL1.BOF %> <% If Not rsSF_M1.EOF Or Not rsSF_M1.BOF Then %> <% End If ' end Not rsSF_M1.EOF Or NOT rsSF_M1.BOF %> <% If Not rsSF_L1.EOF Or Not rsSF_L1.BOF Then %> <% End If ' end Not rsSF_L1.EOF Or NOT rsSF_L1.BOF %>
   
   
CAMPEONATO INTERNO DE FUTEBOL SOCIETY - LIVRE 2011

TABELA
1º TURNO

 

<% If Not rsFinalM1.EOF Or Not rsFinalM1.BOF Then %> <% End If ' end Not rsFinalM1.EOF Or NOT rsFinalM1.BOF %> <% If Not rsFinalL1.EOF Or Not rsFinalL1.BOF Then %> <% End If ' end Not rsFinalL1.EOF Or NOT rsFinalL1.BOF %> <% If Not rsSF_M1.EOF Or Not rsSF_M1.BOF Then %> <% End If ' end Not rsSF_M1.EOF Or NOT rsSF_M1.BOF %> <% If Not rsSF_L1.EOF Or Not rsSF_L1.BOF Then %> <% End If ' end Not rsSF_L1.EOF Or NOT rsSF_L1.BOF %>
CAMPEONATO INTERNO DE FUTEBOL SOCIETY - MASTER 2011
TABELA
1º TURNO
ARTILHARIA
  

 
 
AABB - Associação Atlética Banco do Brasil - Salvador - BA
 Rua Deputado Paulo Jackson, 869 - Piatã - Cep. 41.650-020 - Tel. 71 2106-8250
Desenvolvido por OGRO Comunicação e Design
<% PergEnqt.Close() Set PergEnqt = Nothing %> <% rsTimesAABBMaster.Close() Set rsTimesAABBMaster = Nothing %> <% rsTimeAABBLivre.Close() Set rsTimeAABBLivre = Nothing %> <% rsInfoTabCamp.Close() Set rsInfoTabCamp = Nothing %> <% rsJRealSim_M.Close() Set rsJRealSim_M = Nothing %> <% rsJRealSim_L.Close() Set rsJRealSim_L = Nothing %> <% rsSF_M1.Close() Set rsSF_M1 = Nothing %> <% rsSF_L1.Close() Set rsSF_L1 = Nothing %> <% rsFinalL1.Close() Set rsFinalL1 = Nothing %> <% rsFinalM1.Close() Set rsFinalM1 = Nothing %>