[SOLUCIONADO] Porque no me refresca la tabla al eliminar un dato

[maialenlopez]

Hola;

Estoy haciendo una pagina en asp en la que tengo 3 apartados. Buscar, agregar y eliminar.
Buscar todo me hace perfecto y agregar cada vez que agrego algo la tabla me la visualiza perfectamente añadiendo lo nuevo que agrego. El problema viene a la hora de eliminar que es que no me refresca la tabla quitando el datos que se ha eliminado. Cuando le doy a eliminar elimina perfectamente de la base de datos pero me pasa lo que he comentado.

¿Alguien me puede echar una mano?

[Malenko]

Puedes poner como generas la tabla? Que mecanismo estas usando (aunque no te funcione) para hacer el refresco?

[maialenlopez]

La tabla la creo así:

Código ASP:

<form action="referencias.asp" method = "post" id="form3" name="borrar">
    <table border="1">
    <%if request.Form("valortext2")<>"" then %>
       <%valortext = request.Form("valortext2")%>
    <%end if%>
    <%If valortext <> "" then%>
        tablabase.open "select count(n_pedido) as n_pedido from tablabase where n_pedido ='"&valortext&"'", conn%>
        <%while not (tablabase.eof)%>
        <%Dim existe
        Session(tablabase("n_pedido")) = tablabase("n_pedido").value
        existe = tablabase("n_pedido")%>
        <%tablabase.moveNext%>
        <%wend%>
            <%tablabase.Close%>
            <%if existe = "1" then%>
        <%tablabase.open "select id as id from tablabase where n_pedido ='"&valortext&"'", conn%>
            <%while not (tablabase.eof)%>
            <%Dim id_pedido
            Session(tablabase("id")) = tablabase("id").value
            id_pedido = tablabase("id")%>
            <%tablabase.moveNext%>
            <%wend%>
            <%tablabase.Close%>
            <%if id_pedido<> "" then%>
            <%tablabase.open "select id_pedidoHijo,n_pedido from referencias where id_pedidoPadre = '"&id_pedido&"%' order by id_pedidoHijo", conn%>
            <%while not (tablabase.eof)%>
               <tr align="left">
               <%Session(tablabase("id_pedidoHijo")) = tablabase("id_pedidoHijo").value
               Session(tablabase("n_pedido")) = tablabase("n_pedido").value
                           Preserve pedidos(z) 
               pedidos(z) = tablabase("n_pedido").value
               check = cstr(tablabase("id_pedidoHijo").value)%> 
               <td align="center">
                <input type="checkbox" name="ch" value="<%=check%>">
               </td>
               <td align="left">                                            
                <%response.write pedidos(z)%>
               </td>                                
               <%i = i + 1
               z= z + 1 
               tablabase.moveNext%>
               </tr>
               <%wend%>
               <%tablabase.Close%>
               <input type="hidden" name="valortext2" id="valortext2" value ="<%=valortext%>" />
           <%end if%>
        <%else%>
           <tr>
            <%response.write "* El proyecto introducido no existe"%>
           </tr>        
        <%end if%>                                      
       <%end If%>
      <%end If%>
   </table>                                         
   <table align="right">
    <tr>
        <td>
            <input type="submit" name="eliminar" value="Eliminar">
            <%if Request.Form("ch").Count then%>
                <%For i = 1 To Request.Form("ch").Count%>
                    <%Dim seleccionados
                    seleccionados = Request.Form("ch")(i)%>
                    <%tablabase.open "delete from referencias where id_pedidoHijo ='"&seleccionados&"'", conn%>
                <%Next%>
                <%if Request.Form("valortext2") <> "" then%>
                    <%Dim valortext2
                    valortext2 = request.Form("valortext2")%>
                <%end if%>
            <%end if%>
        </td>
    </tr>
   </table>
</form>
 

[maialenlopez]

Iniciado por Malenko

Puedes poner como generas la tabla? Que mecanismo estas usando (aunque no te funcione) para hacer el refresco?

La cosa es que elimino y en la base de datos se elimina pero no se refresca la tabla y si le vuelvo a dar al botón eliminar por segunda vez si me la refresca.

[maialenlopez]

Ya lo he solucionado.

Lo que ha echo ha sido cuando le doy al botón eliminar que cojo el valor del checbox y el valor del hidden, he añadido una linea mas en la que hago un response.redirect a la pagina otra vez pasandole un valor. Luego a la hora de cargar la lista, si veo que me viene un valor del response.redirect, hago el select a la tabla de nuevo.

Dejo el código por si a alguien le sirve. Si hay algún problema estoy dispuesta a explicarlo.

Gracias;

Código ASP:

<form action="referencias.asp" method = "post" id="form3" name="borrar">                                    
    <table border="1">
        <%if request.queryString("eliminarHijo")<>"" then
            Dim valorEliminarHijo
            valorEliminarHijo = request.queryString("eliminarHijo")%>
            <tr>
                <td colspan="3" align="center">
                    <u><big><big><strong><tt>PROYECTO: <%response.write valorEliminarHijo%></tt></strong></big></big></u>
                </td>
               </tr>                                            
            tablabase.open "select count(n_pedido) as n_pedido from tablabase where n_pedido ='"&valorEliminarHijo&"'", conn%>
            <%while not (tablabase.eof)%>
                <%Dim existe_valorEliminarHijo
                Session(tablabase("n_pedido")) = tablabase("n_pedido").value
                existe_valorEliminarHijo = tablabase("n_pedido")%>
                <%tablabase.moveNext%>
            <%wend%>
            <%tablabase.Close%>
            <%if existe_valorEliminarHijo = "1" then%>
                <%tablabase.open "select id as id from tablabase where n_pedido ='"&valorEliminarHijo&"'", conn%>
                <%while not (tablabase.eof)%>
                    <%Dim id_pedido_valorEliminarHijo
                    Session(tablabase("id")) = tablabase("id").value
                    id_pedido_valorEliminarHijo = tablabase("id")%>
                    <%tablabase.moveNext%>
                <%wend%>
                <%tablabase.Close%>
                <%if id_pedido_valorEliminarHijo<> "" then%>
                    <%tablabase.open "select id_pedidoHijo,n_pedido from referencias where id_pedidoPadre = '"&id_pedido_valorEliminarHijo&"%' order by id_pedidoHijo", conn%>
                    <%while not (tablabase.eof)%>
                        <tr align="left">
                            <%Session(tablabase("id_pedidoHijo")) = tablabase("id_pedidoHijo").value
                            Session(tablabase("n_pedido")) = tablabase("n_pedido").value
                            Redim Preserve pedidos(z) 
                            pedidos(z) = tablabase("n_pedido").value
                            check = cstr(tablabase("id_pedidoHijo").value)%>
                            <td align="center">
                                <input type="checkbox" name="ch" value="<%=check%>">
                               </td>
                            <td align="left">                                           
                                <%response.write pedidos(z)%>
                            </td>                               
                            <%i = i + 1
                            z= z + 1 
                            tablabase.moveNext%>
                        </tr>
                    <%wend%>
                    <%tablabase.Close%>
                    <input type="hidden" name="valortext2" id="valortext2" value ="<%=valorEliminarHijo%>" />
                <%end if%>
            <%else%>
            <tr>
                <%response.write "* El proyecto introducido no existe"%>
            </tr>       
        <%end if%>
    <%end if%>
    <%if request.Form("valortext2")<>"" then %>
        <%valortext = request.Form("valortext2")%>                                          
    <%end if%>
    <%If valortext_dondeAgregar <> "" then%>
        <tr>
            <td colspan="3" align="center">
                <u><big><big><strong><tt>PROYECTO: <%response.write valortext_dondeAgregar%></tt></strong></big></big></u>
            </td>
        </tr>                                           
            tablabase.open "select count(n_pedido) as n_pedido from tablabase where n_pedido ='"&valortext_dondeAgregar&"'", conn%>
            <%while not (tablabase.eof)%>
                <%Dim existe5
                Session(tablabase("n_pedido")) = tablabase("n_pedido").value
                existe5 = tablabase("n_pedido")%>
                <%tablabase.moveNext%>
            <%wend%>
            <%tablabase.Close%>
            <%if existe5 = "1" then%>
                <%tablabase.open "select id as id from tablabase where n_pedido ='"&valortext_dondeAgregar&"'", conn%>
                <%while not (tablabase.eof)%>
                    <%Dim id_pedido5
                    Session(tablabase("id")) = tablabase("id").value
                    id_pedido5 = tablabase("id")%>
                    <%tablabase.moveNext%>
                <%wend%>
                <%tablabase.Close%>
                <%if id_pedido5<> "" then%>
                    <%tablabase.open "select id_pedidoHijo,n_pedido from referencias where id_pedidoPadre = '"&id_pedido5&"%' order by id_pedidoHijo", conn%>
                    <%while not (tablabase.eof)%>
                        <tr align="left">
                            <%Session(tablabase("id_pedidoHijo")) = tablabase("id_pedidoHijo").value
                            Session(tablabase("n_pedido")) = tablabase("n_pedido").value
                            Redim Preserve pedidos(z) 
                            pedidos(z) = tablabase("n_pedido").value
                            check = cstr(tablabase("id_pedidoHijo").value) %>   
                            <td align="center">
                                <input type="checkbox" name="ch" value ="<%=check%>">
                            </td>
                            <td align="left">                                           
                                <%response.write pedidos(z)%>
                            </td>                               
                            <%i = i + 1
                            z= z + 1 
                            tablabase.moveNext%>
                        </tr>
                    <%wend%>
                    <%tablabase.Close%>
                    <input type="hidden" name="valortext2" id="valortext2" value ="<%=valortext_dondeAgregar%>"/>
                <%end if%>
            <%else%>
                <tr>
                    <%response.write "*El proyecto introducido no existe" %>
                </tr>       
            <%end if%>                                      
        <%end If%>
    </table>                                            
    <table align="right">
        <tr>
            <td>
                <input type="submit" name="eliminar" value="Eliminar">
                <%if Request.Form("ch").Count then%>
                    <%For i = 1 To Request.Form("ch").Count%>
                        <%Dim seleccionados
                        seleccionados = Request.Form("ch")(i)%>
                        <%tablabase.open "delete from referencias where id_pedidoHijo ='"&seleccionados&"'", conn%>
                    <%Next%>
                <%end if%>  
                <%if Request.Form("valortext2") <> "" then%>
                    <%Dim valortext2
                    valortext2 = request.Form("valortext2")
                    <%Response.Redirect "referencias.asp?eliminarHijo="&valortext2%>
                <%end if%>                                          
            </td>
        </tr>
    </table>
</form>