% Set DB = Server.CreateObject("ADODB.Connection") Set DB2 = Server.CreateObject("ADODB.Connection") DB.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=C:\Inetpub\vhosts\sportstime.com.mx\httpdocs\db\_spmdb.mdb") DB2.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=C:\Inetpub\vhosts\sportstime.com.mx\httpdocs\db\_scroll.mdb") %>
|
<%
set rs=Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM _scroll"
rs.open SQL,DB2,3,3
dim id(10)
dim deporte(10)
deporte(1) = cstr(rs.fields("deporte1"))
deporte(2) = cstr(rs.fields("deporte2"))
deporte(3) = cstr(rs.fields("deporte3"))
deporte(4) = cstr(rs.fields("deporte4"))
deporte(5) = cstr(rs.fields("deporte5"))
deporte(6) = cstr(rs.fields("deporte6"))
deporte(7) = cstr(rs.fields("deporte7"))
deporte(8) = cstr(rs.fields("deporte8"))
deporte(9) = cstr(rs.fields("deporte9"))
deporte(10) = cstr(rs.fields("deporte10"))
id(1) = cint(rs.fields("id1"))
id(2) = cint(rs.fields("id2"))
id(3) = cint(rs.fields("id3"))
id(4) = rs.fields("id4")
id(5) = rs.fields("id5")
id(6) = rs.fields("id6")
id(7) = rs.fields("id7")
id(8) = rs.fields("id8")
id(9) = rs.fields("id9")
id(10) = rs.fields("id10")
rs.close
SQL = "SELECT * FROM " & deporte(1) & " where id = " & id(1)
rs.open SQL, DB, 3, 3
%>
&modulo=noticia&deporte=<%=deporte(1)%>" target="_top"><%=rs.fields("titulo")%> <% rs.close %> <% SQL = "SELECT * FROM " & deporte(2) & " where id = " & id(2) set rs=Server.CreateObject("ADODB.Recordset") rs.open SQL, DB, 3, 3 %> &modulo=noticia&deporte=<%=deporte(2)%>" target="_top"><%=rs.fields("titulo")%> <% rs.close %> <% SQL = "SELECT * FROM " & deporte(3) & " where id = " & id(3) set rs=Server.CreateObject("ADODB.Recordset") rs.open SQL, DB, 3, 3 %> &modulo=noticia&deporte=<%=deporte(3)%>" target="_top"><%=rs.fields("titulo")%> <% rs.close %> <% SQL = "SELECT * FROM " & deporte(4) & " where id = " & id(4) set rs=Server.CreateObject("ADODB.Recordset") rs.open SQL, DB, 3, 3 %> &modulo=noticia&deporte=<%=deporte(4)%>" target="_top"><%=rs.fields("titulo")%> <% rs.close %> <% SQL = "SELECT * FROM " & deporte(5) & " where id = " & id(5) set rs=Server.CreateObject("ADODB.Recordset") rs.open SQL, DB, 3, 3 %> &modulo=noticia&deporte=<%=deporte(5)%>" target="_top"><%=rs.fields("titulo")%> <% rs.close %> <% SQL = "SELECT * FROM " & deporte(6) & " where id = " & id(6) set rs=Server.CreateObject("ADODB.Recordset") rs.open SQL, DB, 3, 3 %> &modulo=noticia&deporte=<%=deporte(6)%>" target="_top"><%=rs.fields("titulo")%> <% SQL = "SELECT * FROM " & deporte(7) & " where id = " & id(7) set rs=Server.CreateObject("ADODB.Recordset") rs.open SQL, DB, 3, 3 %> &modulo=noticia&deporte=<%=deporte(7)%>" target="_top"><%=rs.fields("titulo")%> <% SQL = "SELECT * FROM " & deporte(8) & " where id = " & id(8) set rs=Server.CreateObject("ADODB.Recordset") rs.open SQL, DB, 3, 3 %> &modulo=noticia&deporte=<%=deporte(8)%>" target="_top"><%=rs.fields("titulo")%> <% SQL = "SELECT * FROM " & deporte(9) & " where id = " & id(9) set rs=Server.CreateObject("ADODB.Recordset") rs.open SQL, DB, 3, 3 %> &modulo=noticia&deporte=<%=deporte(9)%>" target="_top"><%=rs.fields("titulo")%> <% SQL = "SELECT * FROM " & deporte(10) & " where id = " & id(10) set rs=Server.CreateObject("ADODB.Recordset") rs.open SQL, DB, 3, 3 %> &modulo=noticia&deporte=<%=deporte(10)%>" target="_top"><%=rs.fields("titulo")%> <% rs.close %> |