<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Option Explicit Response.Expires = 0 Response.ExpiresAbsolute = Now() - 1 Response.AddHeader "pragma", "no-cache" Response.AddHeader "cache-control", "private" Server.ScriptTimeout = 240 %> .:Deportes:.

Baloncesto
Soccer
Rapido

<% ' iniciamos el contenio dinamico Dim objConex Dim objRegs Dim sentSQL Dim arrDatos Dim cr Dim i,j Const LON = 300 'On Error Resume Next cr = 1 'sentSQL = "SELECT boletines.id,boletines.plantilla,boletines.titulo,boletines.nota,boletines.foto1 FROM boletines WHERE categoria = 2 ORDER BY fecha DESC, hora DESC;" sentSQL = "SELECT boletines.id,boletines.plantilla,boletines.titulo,boletines.nota FROM boletines WHERE categoria = 2 ORDER BY fecha DESC, hora DESC LIMIT 5;" ' establecemos la conexion Set objConex = Server.CreateObject("ADODB.Connection") objConex.ConnectionTimeout = 120 objConex.Open cadConexMy 'obtenemos resultados Set objRegs = Server.CreateObject("ADODB.RecordSet") objRegs.Open sentSQL, objConex, adOpenForwardOnly, adLockReadOnly, adCmdText If Not objRegs.EOF Then arrDatos = objRegs.getRows() End If ' liberamos recursos objRegs.Close() Set objRegs = Nothing objConex.Close() Set objConex = Nothing %> <%If isArray(arrDatos) Then%> <%For i = 0 To UBound(arrDatos, 2)%> <%Next%>
<%= LCase(arrDatos(2,i)) %>
<% dim cadp, car, ind car = Mid(arrDatos(3, i), (LON+1)-Len(arrDatos(2,i)), 1) if car = " " or car = "" Then Response.Write left(arrDatos(3, i), LON-Len(arrDatos(2,i))) & " ..." else cadp = left(arrDatos(3, i), LON-Len(arrDatos(2,i))) ind = InStrRev(cadp, " ") Response.Write(left(cadp,ind)&"...") end if %>

¿no ves el scroll? actualiza tu navegador IE, NS

<% Erase arrDatos Else%> Sin notas <%End IF%>

Tae Kwon Do
Atletismo
Voleibol

Natación