<% ba = Request.QueryString("ba") If ba="f10" then If len(Request.QueryString("tipo_ch"))>0 Then Session("tipo_ch") = Request.QueryString("tipo_ch") txt_ba = Session("tipo_ch") End If Else Session("tipo_ch") = "" txt_ba = ba End If %>
<%=Ucase(txt_ba)%> <% If ba="f10" then strSQL = "select * from campeonatos_" & ba & " where tipo='"&Session("tipo_ch")&"' and (marca_ocultar <> 'on' or marca_ocultar is null) order by campeonato asc" Else strSQL = "select * from campeonatos_" & ba & " where (marca_ocultar <> 'on' or marca_ocultar is null) order by campeonato asc" End If AbrirBD() objRS.Open strSQL, objConn cont= 0 Do While Not objRS.EOF cont = cont + 1 %>
" style="clear: both">
';">
<% If objRS("escudo") = True Then %> <% Else %> <% End If %>
<%=objRS("Campeonato")%>
<%=objRS("subtitulo")%>
<% objRS.MoveNext() Loop if cont < 3 then response.write "" end if %>