<% Set DB = Server.CreateObject("ADODB.Connection") Set rs1 = Server.CreateObject("ADODB.recordset") Set rs2 = Server.CreateObject("ADODB.recordset") DB.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" + Server.MapPath("../../db/_soccerDB.mdb")) SQL = "Select * from torAp04_tablaGral" rs2.open SQL,DB,3,3 SQL = "Select * from torAp04_equipos" rs1.open SQL,DB,3,3 for i = 1 to 18 rs2("nombre")=rs1.fields("equipo"&i) rs2.movenext next %>