<% if session("autorizado") = "" then 'response.Redirect("index.asp") end if Set DB2 = Server.CreateObject("ADODB.Connection") set rs = server.CreateObject("ADODB.recordset") set rs1 = server.CreateObject("ADODB.recordset") set rs2 = server.CreateObject("ADODB.recordset") set rs3 = server.CreateObject("ADODB.recordset") set rs4 = server.CreateObject("ADODB.recordset") set rs5 = server.CreateObject("ADODB.recordset") set rs6 = server.CreateObject("ADODB.recordset") set rs7 = server.CreateObject("ADODB.recordset") set rs8 = server.CreateObject("ADODB.recordset") set rs9 = server.CreateObject("ADODB.recordset") set rs10 = server.CreateObject("ADODB.recordset") DB2.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=C:\Inetpub\vhosts\sportstime.com.mx\httpdocs\db\" & DB_) guarda = cstr(request.QueryString("guarda")) if guarda = "si" then Set DB = Server.CreateObject("ADODB.Connection") DB.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=C:\Inetpub\vhosts\sportstime.com.mx\httpdocs\db\_scroll.mdb") id1 = request.Form("id1") id2 = request.Form("id2") id3 = request.Form("id3") id4 = request.Form("id4") id5 = request.Form("id5") id6 = request.Form("id6") id7 = request.Form("id7") id8 = request.Form("id8") id9 = request.Form("id9") id10 = request.Form("id10") deporte1 = request.Form("deporte1") deporte2 = request.Form("deporte2") deporte3 = request.Form("deporte3") deporte4 = request.Form("deporte4") deporte5 = request.Form("deporte5") deporte6 = request.Form("deporte6") deporte7 = request.Form("deporte7") deporte8 = request.Form("deporte8") deporte9 = request.Form("deporte9") deporte10 = request.Form("deporte10") SQL ="Update _scroll Set " SQL = SQL & "deporte1='" & deporte1 & "', " SQL = SQL & "deporte2='" & deporte2 & "', " SQL = SQL & "deporte3='" & deporte3 & "', " SQL = SQL & "deporte4='" & deporte4 & "', " SQL = SQL & "deporte5='" & deporte5 & "', " SQL = SQL & "deporte6='" & deporte6 & "', " SQL = SQL & "deporte7='" & deporte7 & "', " SQL = SQL & "deporte8='" & deporte8 & "', " SQL = SQL & "deporte9='" & deporte9 & "', " SQL = SQL & "deporte10='" & deporte10 & "', " SQL = SQL & "id1='" & id1 & "', " SQL = SQL & "id2='" & id2 & "', " SQL = SQL & "id3='" & id3 & "', " SQL = SQL & "id4='" & id4 & "', " SQL = SQL & "id5='" & id5 & "', " SQL = SQL & "id6='" & id6 & "', " SQL = SQL & "id7='" & id7 & "', " SQL = SQL & "id8='" & id8 & "', " SQL = SQL & "id9='" & id9 & "', " SQL = SQL & "id10='" & id10 & "'" set rs = DB.Execute(SQL) 'response.Redirect("menu.asp") else deporte1 = tipos(cint(request.Form("deporte1"))) deporte2 = tipos(cint(request.Form("deporte2"))) deporte3 = tipos(cint(request.Form("deporte3"))) deporte4 = tipos(cint(request.Form("deporte4"))) deporte5 = tipos(cint(request.Form("deporte5"))) deporte6 = tipos(cint(request.Form("deporte6"))) deporte7 = tipos(cint(request.Form("deporte7"))) deporte8 = tipos(cint(request.Form("deporte8"))) deporte9 = tipos(cint(request.Form("deporte9"))) deporte10 = tipos(cint(request.Form("deporte10"))) end if %>

<% SQL = "SELECT * FROM " & deporte1 & " WHERE status = 'A'" rs1.open SQL,DB2,3,3 while not rs1.eof %> "><%= rs1.fields("titulo") %> <% rs1.movenext wend %> <% SQL = "SELECT * FROM " & deporte2 & " WHERE status = 'A'" rs2.open SQL,DB2,3,3 while not rs2.eof %> "><%= rs2.fields("titulo") %> <% rs2.movenext wend %> <% SQL = "SELECT * FROM " & deporte3 & " WHERE status = 'A'" rs3.open SQL,DB2,3,3 while not rs3.eof %> "><%= rs3.fields("titulo") %> <% rs3.movenext wend %> <% SQL = "SELECT * FROM " & deporte4 & " WHERE status = 'A'" rs4.open SQL,DB2,3,3 while not rs4.eof %> "><%= rs4.fields("titulo") %> <% rs4.movenext wend %> <% SQL = "SELECT * FROM " & deporte5 & " WHERE status = 'A'" rs5.open SQL,DB2,3,3 while not rs5.eof %> "><%= rs5.fields("titulo") %> <% rs5.movenext wend %> <% SQL = "SELECT * FROM " & deporte6 & " WHERE status = 'A'" rs6.open SQL,DB2,3,3 while not rs6.eof %> "><%= rs6.fields("titulo") %> <% rs6.movenext wend %> <% SQL = "SELECT * FROM " & deporte7 & " WHERE status = 'A'" rs7.open SQL,DB2,3,3 while not rs7.eof %> "><%= rs7.fields("titulo") %> <% rs7.movenext wend %> <% SQL = "SELECT * FROM " & deporte8 & " WHERE status = 'A'" rs8.open SQL,DB2,3,3 while not rs8.eof %> "><%= rs8.fields("titulo") %> <% rs8.movenext wend %> <% SQL = "SELECT * FROM " & deporte9 & " WHERE status = 'A'" rs9.open SQL,DB2,3,3 while not rs9.eof %> "><%= rs9.fields("titulo") %> <% rs9.movenext wend %> <% SQL = "SELECT * FROM " & deporte10 & " WHERE status = 'A'" rs10.open SQL,DB2,3,3 while not rs10.eof %> "><%= rs10.fields("titulo") %> <% rs10.movenext wend %>   <% rs1.close rs2.close rs3.close rs4.close rs5.close rs6.close rs7.close rs8.close rs9.close rs10.close %>