<% ' Recuperamos los parámetros y los almacenamos en variables torneo = Request("torneo") %> Ajedrez en Madrid - Galería 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 %>
<% If oRs.Fields("fotobase_torneo").Value <> "" Then %>
" border="1" alt="<% = oRS.Fields("vencedor_torneo").Value%>">
<% End If %>

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

<% = oRS.Fields("ciudad_torneo").Value%>  (<% = oRS.Fields("pais_torneo").Value%>)

Galería de fotos

.swf" /> .swf" quality="high" width="640" height="480" name="tech" align="middle" allowScriptAccess="sameDomain" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" />


© 2000-2008 Ajedrez en Madrid

<% 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 %>