Ajedrez en Madrid - Galeria de fotos

<% ' Recuperamos los parámetros y los almacenamos en variables torneo = Request("torneo") %> Ajedrez en Madrid - Galeria de fotos <% Dim oConn ' Objeto Connection Dim sCnnString ' Cadena de conexión a la base de datos ' Conexión para internet ' Creamos un objeto Connection Set oConn = Server.CreateObject("ADODB.Connection") ' Conectamos con la base de datos de internet 'oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\\premfs6\sites\premium5\lmi\database\torneos.mdb") oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\\brink-premfs1\sites\premium4\lmi\database\torneos.mdb") '------------------------------------------------------------------ ' Conexión en local ' Creamos un objeto Connection ' Set oConn = Server.CreateObject("ADODB.Connection") ' Conectamos con la base de datos del pc 'oConn.Open "torneos" '------------------------------------------------------------------ Dim sSQL ' Cadena de consulta a la base de datos Dim oRs ' Recordset con los resultados de la consulta Set mTorneo = request.querystring("torneo") ' Construimos la consulta a la base de datos. ' Traerá los datos del torneo cuya clave sea la solicitada sSQL = "SELECT * FROM tabla_torneos WHERE cdgo_torneo LIKE '" & torneo & "%'" ' Hacemos la consulta a la base de datos Set oRs = oConn.Execute(sSQL) If oRs.EOF Then ' No hay coincidencias para el torneo solicitado %>

No se dispone de datos de este torneo ' <% = mTorneo %>

<% Else ' Construimos una tabla con los resultados %> <% End IF %>

Información

Página del torneo
Mapa de situación
Noticias relacionadas
Web Oficial
Galería de Fotos
Anterior Edición
Siguiente Edición

<% If oRs.Fields("fotobase_torneo").Value <> "" Then %>

<% = oRS.Fields("vencedor_torneo").Value%>

<% End If %> <% if oRs.Fields("visor_torneo").Value <> "" Then %>

Partidas

Partidas en directo " & num & "
PGN / CBV (<% = oRS.Fields("numpartidas_torneo").Value%>)
Visor de Partidas

<% End If %> <% If oRs.Fields("codigo_cr").Value <> "" Then %>

Chess Results

<% End If %>

<% = oRS.Fields("nombre_torneo").Value%>

<% = oRS.Fields("ciudad_torneo").Value%> (<% = oRS.Fields("pais_torneo").Value%>)
<% = FechaBonita(oRS.Fields("inicio_torneo").Value)%> - <% = FechaBonita(oRS.Fields("final_torneo").Value)%>

<% Function FechaBonita(pFec) Dim Cad Cad = day(pFec) Cad = Cad & "." & MesEnLetra(Month(pFec)) Cad = Cad & "." & Year(pFec) if len(Cad) = 9 Then Cad = "0" + Cad FechaBonita = Cad End Function Function MesEnLetra(pMes) Select case pMes case 1 MesEnLetra = "01" case 2 MesEnLetra = "02" case 3 MesEnLetra = "03" case 4 MesEnLetra = "04" case 5 MesEnLetra = "05" case 6 MesEnLetra = "06" case 7 MesEnLetra = "07" case 8 MesEnLetra = "08" case 9 MesEnLetra = "09" case 10 MesEnLetra = "10" case 11 MesEnLetra = "11" case 12 MesEnLetra = "12" End Select End Function Function Out(sCad) Response.Write(sCad) End Function %>