03/02/2006, 09:30
|
| | | Fecha de Ingreso: abril-2005
Mensajes: 84
Antigüedad: 20 años Puntos: 0 | |
| Hola mirar, tengo este codigo pero SIEMPRE me coge el valor 1.
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = "& Server.MapPath ("ligaACB.mdb")
set rs4 = CreateObject("ADODB.Recordset")
sql3="update tjugadores set lesionado = null WHERE cambio='x' and equipo='"&session("equipo")&"'"
sql4="update tjugadores set reserva = null WHERE cambio='x' and equipo='"&session("equipo")&"'"
sqlb="update tjugadores set cambio=null WHERE cambio='x' and equipo='"&session("equipo")&"'"
sqlseleccion="Select * from tjugadores where equipo='"&session("equipo")&"' and titular is not null order by titular ASC"
rs4.Open sqlseleccion, Conn
%>
<body>
<% n=1 %>
<% do while not rs4.eof
if rs4("titular")<> cint(n) then
rs4.close
sqluno="update tjugadores set titular = " & cint(n) & " , reserva=null , lesionado=null where cambio='x' and equipo='"&session("equipo")&"'"
rs4.open sqluno
Exit Do
end if
rs4.movenext
n = n + 1
loop
%>
Gracias por vuestra ayuda. |