<% @LCID = 1034%> <% Dim DB, SQL, rs Set DB = Server.CreateObject("ADODB.Connection") DB.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" + Server.MapPath("../../db/_spmdb.old.mdb")) modulo=cstr(request.QueryString("modulo")) cont=cstr(Request.QueryString("cont")) if cont = "" or cont ="0" and modulo = "noticia" then modulo = "principal" end if %> .:Vela:. || Sports Time México
<% Select Case modulo Case "principal" SQL = "SELECT * FROM vela where principal = true" set rs=Server.CreateObject("ADODB.Recordset") rs.open SQL, DB, 3, 3 principal Case "noticia" SQL = "SELECT * FROM vela where id = " & cont &"" set rs=Server.CreateObject("ADODB.Recordset") rs.open SQL, DB, 3, 3 noticia Case else SQL = "SELECT * FROM vela where principal = true" set rs=Server.CreateObject("ADODB.Recordset") rs.open SQL, DB, 3, 3 principal End Select %>
<%=FormatDateTime(Now, vbLongDate)%>


<% notita %>

LO MAS IMPORTANTE DE LAS NOTICIAS
<% SQL = "SELECT * FROM vela where principal = true order by id desc" set rsT1=Server.CreateObject("ADODB.Recordset") rsT1.open SQL, DB, 3, 3 i = cint(rsT1.fields("id")) rsT1.close SQL = "SELECT * FROM vela where status = 'A' and id <> " & i & " order by fecha desc" rsT1.open SQL, DB, 3, 3 j = cint(rsT1.recordcount) j = j - 1 for c = 1 to j if c = 7 then exit for end if rsT1.Movenext %> &modulo=noticia"><%=rsT1.fields("titulo")%>
<% next rsT1.close %>
<% SQL = "SELECT * FROM vela where principal = true order by id desc" set rsT1=Server.CreateObject("ADODB.Recordset") rsT1.open SQL, DB, 3, 3 i = cint(rsT1.fields("id")) rsT1.close SQL = "SELECT * FROM vela where status = 'A' and id <> " & i & " order by fecha desc" rsT1.open SQL, DB, 3, 3 rsT1.Movenext rsT1.Movenext rsT1.Movenext rsT1.Movenext rsT1.Movenext rsT1.Movenext j = cint(rsT1.recordcount) j = j - 7 for c = 1 to j if c = 7 then exit for end if rsT1.Movenext %> - <%=rsT1.fields("titulo")%> <%=rsT1.fields("introduccion")%>
<% next rsT1.close %>

Copyright © 2004 Sports Time. Todos los derechos reservados. Este material no puede ser publicado, transmitido, re-escrito, o re-distribuido en ninguna forma.
Para cualquier duda o aclaración con respecto a esta página favor de contactar a: webmaster@sportstime.com.mx
<% sub principal %>

<%=rs.Fields("titulo")%>

Directorio
">
<%=rs.fields("introduccion")%>
&modulo=noticia">Más...
<% end sub sub noticia %>

<%=rs.fields("titulo")%>

Directorio
<% if rs.fields("foto")= "n/a" then %> <% else %> "> <% end if %>
<%=rs.fields("nota")%>
Principal
<% end sub sub notita SQL = "SELECT * FROM vela where principal = true order by id desc" set rsT2=Server.CreateObject("ADODB.Recordset") rsT2.open SQL, DB, 3, 3 i = cint(rsT2.fields("id")) rsT2.close SQL = "SELECT * FROM vela where status = 'A' and id <> " & i & " order by fecha desc" rsT2.open SQL, DB, 3, 3 'if not rsT2.EOF then 'rst2.movelast 'rsT2.movefirst 'rsT2.Movenext 'end if %> <% if rsT2.fields("foto_thumb") = "n/a" then %> <% else %> "> <% end if %> <% response.Write rsT2.fields("introduccion") %>
&modulo=noticia">Más...

<% rsT2.close %> <% end sub %>