<% Dim IdiomaPag IdiomaPag="es" Dim strUrl strUrl = Request.ServerVariables("URL") strUrl = Cstr(Mid(strUrl,2,4)) Dim strUrlPag strUrlPag = Request.ServerVariables("URL") strUrlPag = Cstr(Mid(strUrlPag,7,4)) Dim i Dim cont Dim strSQL, strSQL2 Dim objCn 'conecto la DB cuando haga falta Dim objRs Set objRs = Server.CreateObject ("ADODB.Recordset") Dim objRs2 Set objRs2 = Server.CreateObject ("ADODB.Recordset") Call ConectarDb Dim categoriaCod categoriaCod=Request("categoriaCOd") If IsNumeric(categoriaCod) then If categoriaCod >= 1 AND categoriaCod < 32000 then 'todo OK else Response.Clear Response.Redirect ("clubes.asp") Response.End End If else Response.Clear Response.Redirect ("clubes.asp") Response.End End If Dim strCategoria_es if categoriaCod="" then strSQL = "SELECT TOP 1 * FROM tCategorias ORDER BY CategoriaCod" objRs.Open strSQL, objCn if not objRs.EOF then categoriaCod=objRs("categoriaCod") strCategoria_es = objRs("strCategoria_es") end if objRs.CLose else strSQL = "SELECT * FROM tCategorias WHERE CategoriaCod=" & CategoriaCOd objRs.Open strSQL, objCn if not objRs.EOF then strCategoria_es = objRs("strCategoria_es") end if objRs.CLose end if %> Club Rugby Seminario Tarazona
<%=UCase(":: Jugadores en " & strCategoria_es)%>
<% 'strSQL="SELECT * FROM tCategorias INNER JOIN (tEquipos INNER JOIN tClasificacion ON (tEquipos.CategoriaCod = tClasificacion.CategoriaCod) " & _ ' " AND (tEquipos.EquipoCod = tClasificacion.EquipoCod)) ON (tClasificacion.CategoriaCod = tCategorias.CategoriaCod) AND (tCategorias.CategoriaCod = tEquipos.CategoriaCod) " & _ ' " WHERE tClasificacion.TemporadaCod=(SELECT TOP 1 TemporadaCod FROM tTemporadas ORDER BY TemporadaCod DESC)" & _ ' " AND tClasificacion.CategoriaCod=" & categoriaCod & " ORDER BY intPuntos DESC, intGolesFavor DESC" strSQL = " SELECT * " & _ " FROM tJugadores " & _ " WHERE CategoriaCod=" & CategoriaCod & " AND " & _ " TemporadaCod=(Select TOP 1 TemporadaCod FROM tTemporadas) " & _ " AND tJugadores.bolActivo=1 "& _ " ORDER BY strApellidos" objRs.Open strSQL, objCn if not objRs.Eof Then %> <% else %> <% end if objRs.Close %>
<% cont = 1 Do While not objRs.EOF %> <% cont = cont + 1 objRs.MoveNext Loop %>
Nombre Edad Peso(Kg) Estatura(cm) Posición
<%=objRs("strApellidos") %>, <%= objRs("strNombre")%> <%= DateDiff("yyyy",objRs("datNacimiento"),now)%> <%if objRs("intPeso")>0 then Response.Write objRs("intPeso") else Response.Write "-" end if%> <%if objRs("intEstatura")>0 then Response.Write objRs("intEstatura") else Response.Write "-" end if%> <%=objRs("strPosicion")%>
Jugadores no insertados