problema con addnew

[loverpiu]

Hola a todos si esto ya esta contestado lo siento pero no lo e encontrado.
el problema es el siguiente, cuando mi pagina realiza el addnew luego solo me pinta el ultimo registro es como si solo hubise insertado el ultimo registro pero los pasos del bucle addnew los realiza bien ya que los comprobe con una variable de control.
Aqui pego el codigo:

Código asp:

<%
Dim rs_alum_mat
 
 
 
cod_hcurso=session("cod_hcurso")
response.Write(cod_hcurso)
 
Set rs_alum_mat = Server.CreateObject("ADODB.Recordset")
rs_alum_mat.ActiveConnection = MM_con_bdsgca_STRING
rs_alum_mat.Source ="select nombre, apellidos, dni_alum from alumnos where dni_alum = (select dni_alum from historico_alumnos where historico_alumnos.cod_hcurso = '"&cod_hcurso&"'  and historico_alumnos.alta = 1)"
rs_alum_mat.CursorType = 0
rs_alum_mat.CursorLocation = 2
rs_alum_mat.LockType = 3
rs_alum_mat.Open()
 
 
 
 
 
 
'bucle  para borrar de la tabla matriculas_temp los alumnos que ya existan
 
Set rs_alumnos= Server.CreateObject("ADODB.Recordset")
rs_alumnos.ActiveConnection = MM_con_bdsgca_STRING
rs_alumnos.Source ="select nombre_temp, apellidos_temp, dni_temp from matricula_temp where codigo_curso = '"&cod_hcurso&"'"
rs_alumnos.CursorType = 0
rs_alumnos.CursorLocation = 2
rs_alumnos.LockType = 3
 
rs_alumnos.Open()
 
 
 
while not rs_alumnos.eof
    
    
    rs_alum_mat.AddNew
        rs_alum_mat("dni_alum")= clng((rs_alumnos.Fields.Item("dni_temp").Value))
        rs_alum_mat("nombre")= cstr((rs_alumnos.Fields.Item("nombre_temp").Value))
        'rs_alum_mat("apellidos")=cstr((rs_alumnos.Fields.Item("apellidos_temp").Value))
     rs_alum_mat.update
   response.Write(rs_alum_mat.Fields.Item("nombre").Value)
   
rs_alumnos.movenext
 
    
wend
 
    'chapamps el recordset
    rs_alumnos.close()  
    set rs_alumnos = nothing
    'actualizamos el primer recordset
    
 
%>
 

seguidamente lo pinto en un select para elegir lo que quiera asi:

Código asp:

<select name="alum_mat" size="15" id="alum_mat">
              <%
                
While (NOT rs_alum_mat.EOF)
%>
              <option value="<%=(rs_alum_mat.Fields.Item("dni_alum").Value)%>"><%=numero%>.&nbsp;<%=(rs_alum_mat.Fields.Item("apellidos").Value)%>,&nbsp;<%=(rs_alum_mat.Fields.Item("nombre").Value)%>
             
         <% rs_alum_mat.MoveNext%></option>
 <% Wend
 
 
%>
        </select>
 

la aplicacion es para una academia y esta parte es para dar de baja a loa alumnos, no se cual es el fallo y e comprobado los bucles y todo pero nada de nada a y si le coloco un requery para actualizar el recordset ya no pinta nada es como si se vaciara.

Gracias por vuestra ayuda de antemano. muchas gracias.

[sjam7]

a la hora de poner el select regresas el cursor al primer registro? seria poner rs_alum_mat.movefirst

quizas seria bueno tambien poner el cursortype en 2 para que te puedas mover libremente por el RS

[loverpiu]

hola otra vez, si pongo rs_alum_mat.movefirst (ya lo habia probado) no me pinta nada es como si el recordset estuviese vacio.
No tengo ni idea de que puede ser por favor ayuda

[Adler]

Hola

¿Has probado lo que te indica sjam7?. Además pon LockType = 1

Código asp:

rs_alum_mat.[b]CursorType = 2
rs_alum_mat.CursorLocation = 2
rs_alum_mat.[b]LockType = 1
 

Suerte

[loverpiu]

con el bloqueo a 1 no me deja actualizar, e probado con todo lo demas y sigue haciendo lo mismo ¡ayuda por favor! no se me ocurre ninguna solucion

[loverpiu]

Nadie puede ayudarme por favor

[sjam7]

intenta ponerlos asi:
rs.CursorType = 2
rs.LockType = 3
rs.CursorLocation = 3

que base de datos usas?