<% function contenido(atleta,modulo,cont) if cont = "" or cont ="0" and modulo = "noticia" or modulo = "" then principal else noticia end if end function function principal Set DB = Server.CreateObject("ADODB.Connection") DB.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=C:/Inetpub/vhosts/sportstime.com.mx/httpdocs/db/_spmdb.mdb") set rs=Server.CreateObject("ADODB.Recordset") SQL = "SELECT * FROM noticiasAtletas where carpeta = '" & atleta & "' and principal = true" rs.open SQL,DB, 3, 3 %>

<%=rs.fields("titulo")%>
<% if rs.fields("foto")= "n/a" then %> <% else %> "> <% end if %>

<%=rs.fields("pie")%>
<%=rs.fields("introduccion")%>
&modulo=noticia&atleta=<%= atleta %>">Ms...


<% SQL = "SELECT * FROM noticiasAtletas where carpeta = '" & atleta & "' and 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 noticiasAtletas where carpeta = '" & atleta & "' and status = 'A' and id <> " & i & " order by id desc" rsT2.open SQL, DB, 3, 3 %>

LO MAS IMPORTANTE DE LAS NOTICIAS
<% SQL = "SELECT * FROM noticiasAtletas where carpeta = '" & atleta & "' and principal = true order by id desc" set rsT1=Server.CreateObject("ADODB.Recordset") rsT1.open SQL, DB, 3, 3 if rsT1.eof then response.End() end if i = cint(rsT1.fields("id")) rsT1.close SQL = "SELECT * FROM noticiasAtletas where carpeta = '" & atleta & "' and status = 'A' and id <> " & i & " order by id 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&atleta=<%= atleta %>"><%=rsT1.fields("titulo")%>
<% next rsT1.close %>
<%=rsT2.fields("titulo")%>
<% if not rsT2.recordcount = 0 then if rsT2.fields("foto") = "n/a" then %> <% else %> "> <% end if %> <% response.Write rsT2.fields("introduccion") %>
&modulo=noticia&atleta=<%= atleta %>">Más...

<% rsT2.close end if %>
<% SQL = "SELECT * FROM noticiasAtletas where carpeta = '" & atleta & "' and 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 noticiasAtletas where carpeta = '" & atleta & "' and status = 'A' and id <> " & i & " order by id desc" rsT1.open SQL, DB, 3, 3 if not rsT1.recordcount = 0 then 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 %> - &modulo=noticia&atleta=<%= atleta %>"><%=rsT1.fields("titulo")%> <%=rsT1.fields("introduccion")%>
<% next rsT1.close end if %>

Copyright © 2005 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
<% db.close end function function noticia Set DB = Server.CreateObject("ADODB.Connection") DB.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=C:/websites/sportstime.com.mx/httpdocs/db/_spmdb.mdb") SQL = "SELECT * FROM noticiasAtletas where carpeta = '" & atleta & "' and id = " & cont &"" set rs=Server.CreateObject("ADODB.Recordset") rs.open SQL, DB, 3, 3 %>

<%=rs.fields("titulo")%>
<% if rs.fields("foto")= "n/a" then %> <% else %> "> <% end if %>

<%=rs.fields("pie")%>
<%=rs.fields("introduccion")%>
<%=rs.fields("nota")%>
Principal


<% SQL = "SELECT * FROM noticiasAtletas where carpeta = '" & atleta & "' and 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 noticiasAtletas where carpeta = '" & atleta & "' and status = 'A' and id <> " & i & " order by id desc" rsT2.open SQL, DB, 3, 3 %>

LO MAS IMPORTANTE DE LAS NOTICIAS
<% SQL = "SELECT * FROM noticiasAtletas where carpeta = '" & atleta & "' and principal = true order by id desc" set rsT1=Server.CreateObject("ADODB.Recordset") rsT1.open SQL, DB, 3, 3 if rsT1.eof then response.End() end if i = cint(rsT1.fields("id")) rsT1.close SQL = "SELECT * FROM noticiasAtletas where carpeta = '" & atleta & "' and status = 'A' and id <> " & i & " order by id 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&atleta=<%= atleta %>"><%=rsT1.fields("titulo")%>
<% next rsT1.close %>
<%=rsT2.fields("titulo")%>
<% if not rsT2.recordcount = 0 then if rsT2.fields("foto") = "n/a" then %> <% else %> "> <% end if %> <% response.Write rsT2.fields("introduccion") %>
&modulo=noticia&atleta=<%= atleta %>">Más...

<% rsT2.close end if %>
<% SQL = "SELECT * FROM noticiasAtletas where carpeta = '" & atleta & "' and 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 noticiasAtletas where carpeta = '" & atleta & "' and status = 'A' and id <> " & i & " order by id desc" rsT1.open SQL, DB, 3, 3 if not rsT1.recordcount = 0 then 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 %> - &modulo=noticia&atleta=<%= atleta %>"><%=rsT1.fields("titulo")%> <%=rsT1.fields("introduccion")%>
<% next rsT1.close end if %>

Copyright © 2005 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
<% db.close end function %>