<% @LCID = 1034%> <% Dim DB, SQL, rs 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 DB2 = Server.CreateObject("ADODB.Connection") DB2.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=C:\Inetpub\vhosts\sportstime.com.mx\httpdocs\db\_galeria.mdb") modulo=cstr(request.QueryString("modulo")) cont=cstr(Request.QueryString("cont")) if cont = "" or cont ="0" and modulo = "noticia" then modulo = "principal" end if %> .:Bienvenidos:. || Sports Time México
<% Select Case modulo Case "principal" SQL = "SELECT * FROM inicio where principal = true" set rs=Server.CreateObject("ADODB.Recordset") rs.open SQL, DB, 3, 3 'i = cint(rs.fields("id")) i = rs.fields("id") principal Case "noticia" 'if session("autorizado") = "" then 'response.Redirect("index.asp") 'end if SQL = "SELECT * FROM inicio where id = " & cont &"" set rs=Server.CreateObject("ADODB.Recordset") rs.open SQL, DB, 3, 3 noticia Case else SQL = "SELECT * FROM inicio where principal = true" set rs=Server.CreateObject("ADODB.Recordset") rs.open SQL, DB, 3, 3 principal End Select %>


<% notita %>

LO MAS IMPORTANTE DE LAS NOTICIAS

Titulares

<% SQL = "SELECT * FROM inicio 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 inicio where status = 'A' and id <> " & i & " order by id desc" rsT1.open SQL, DB, 3, 3 j = cint(rsT1.recordcount) rsT1.Movenext j = j - 2 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 automovilismo where principal = true" set rsAUT=Server.CreateObject("ADODB.Recordset") rsAUT.open SQL, DB, 3, 3 %> &modulo=noticia&deporte=automovilismo"><%=rsAUT.fields("titulo")%>
<% rsAUT.close %>
<% SQL = "SELECT * FROM basquetbol where principal = true" set rsBAS=Server.CreateObject("ADODB.Recordset") rsBAS.open SQL, DB, 3, 3 %> &modulo=noticia&deporte=basquetbol"><%=rsBAS.fields("titulo")%>
<% rsBAS.close %>
<% SQL = "SELECT * FROM beisbol where principal = true" set rsBEI=Server.CreateObject("ADODB.Recordset") rsBEI.open SQL, DB, 3, 3 %> &modulo=noticia&deporte=beisbol"><%=rsBEI.fields("titulo")%>
<% rsBEI.close %>
<% SQL = "SELECT * FROM nfl where principal = true" set rsNFL=Server.CreateObject("ADODB.Recordset") rsNFL.open SQL, DB, 3, 3 %> &modulo=noticia&deporte=nfl"><%=rsNFL.fields("titulo")%>
<% rsNFL.close %>
<% SQL = "SELECT * FROM deporteMundial where principal = true" set rsDMU=Server.CreateObject("ADODB.Recordset") rsDMU.open SQL, DB, 3, 3 %> &modulo=noticia&deporte=deporteMundial"><%=rsDMU.fields("titulo")%>
<% rsDMU.close %>
<% SQL = "SELECT * FROM reportajes where principal = true" set rsREP=Server.CreateObject("ADODB.Recordset") rsREP.open SQL, DB, 3, 3 %> &modulo=noticia&deporte=reportajes"><%=rsREP.fields("titulo")%> <% rsREP.close %>
SPORTIV
<% SQL = "SELECT * FROM opSemana WHERE principal=true" set rsOPs=Server.CreateObject("ADODB.Recordset") rsOPs.open SQL, DB, 3, 3 SQL = "SELECT * FROM comentarista WHERE principal=true" set rsCom=Server.CreateObject("ADODB.Recordset") rsCom.open SQL, DB, 3, 3 'Fotogaleria Inicia SQL = "select * from fotos" set rsFGL=Server.CreateObject("ADODB.Recordset") rsFGL.open SQL,DB2,3,3 rsFGL.movelast 'Fotogaleria Fin %> <% rsFGL.close DB2.close %>
Próximos Juegos
Todo Menos Deporte
">
Fotogalería
" alt="foto" width="128" height="96" border="0">
Opinión de la Semana
" alt="foto" width="128" height="96" border="0">

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

<% sub principal %>

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

Noticias


<% if rs.fields("foto")= "n/a" then %> <% else %> ">
<%=rs.fields("pie")%>
<% end if %>
<%=rs.fields("introduccion")%>
&modulo=noticia">Más...
<% rs.close SQL = "SELECT * FROM inicio where status = 'A' and id <> " & i & " order by id desc" rs.open SQL, DB, 3, 3 'rs.movenext %>

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

<%=rs.fields("introduccion")%>
&modulo=noticia">Más...
<% if rs.fields("foto")= "n/a" then %> <% else %> ">
<%=rs.fields("pie")%>
<% end if %> <% end sub sub noticia %>

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

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

Principal <% end sub sub notita SQL = "SELECT * FROM inicio 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 inicio where status = 'A' and id <> " & i & " order by id desc" rsT2.open SQL, DB, 3, 3 rsT2.movenext %>
<%=rsT2.fields("titulo")%>
<% if rsT2.fields("foto") = "n/a" then %> <% else %> "> <% end if %> <% response.Write rsT2.fields("introduccion") %>
&modulo=noticia">Más...

<% rsT2.close %> <% set rsAt1 = server.CreateObject("ADODB.recordset") SQL = "select * from atletas where status = 'A'" rsAt1.open SQL, DB, 3, 3 rsAt1.movelast rsAt1.moveprevious %> <% set rsAt2 = server.CreateObject("ADODB.recordset") SQL = "select * from atletas where status = 'A'" rsAt2.open SQL, DB, 3, 3 rsAt2.movelast %>
 
" width="150" height="110">
&link=atleta.asp?atleta=<%= rsAt1.fields("carpeta") %>"> &link=atleta.asp?atleta=<%= rsAt1.fields("carpeta") %>" quality=high pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="130" height="25"> <% rsAt1.close %>
 
" width="150" height="110">
&link=atleta.asp?atleta=<%= rsAt2.fields("carpeta") %>"> &link=atleta.asp?atleta=<%= rsAt2.fields("carpeta") %>" quality=high pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="130" height="25">
<% rsAt2.close %> <% end sub %>