Visualizzazione dei risultati da 1 a 7 su 7

Discussione: eliminazione multipla

  1. #1

    eliminazione multipla

    sto gestendo questa tipologia di eliminazione

    1*pag.


    <body onload="salvatestata2();">



    <script>





    function apritestata(cod)
    {
    window.open("eliminacodici2.asp?Codici="+ sCodici,"contest_window10331321e22227","top=300,le ft=400,width=110,height=5,toolbar=0,location=0,dir ectories=0,status=0,menubar=0,scrollbars=0,resizab le=0")
    }

    function salvatestata2()
    {
    var oChk = document.all("InviaPubblicita2");
    var sCodici = "";

    if (oChk.length!=null) {
    for (var i=0;i<oChk.length;i++)
    if (oChk[i].checked) {
    if (sCodici.length>0)
    sCodici += "|";
    sCodici += oChk[i].value;
    }
    } else {
    if (oChk!=null) {
    if (oChk.checked)
    sCodici = oChk.value;
    }
    }

    if (sCodici.length>0)
    window.open("eliminacodici2.asp?Codici="+ sCodici,"contest_window101e22123123227","top=300,l eft=400,width=110,height=5,toolbar=0,location=0,di rectories=0,status=0,menubar=0,scrollbars=0,resiza ble=0")
    else
    alert("Selezionare i nominativi per salvare la selezione");
    }

    </script>

    <%While Not rec3.EOF%>




    <input type="checkbox" name="InviaPubblicita2" CHECKED value="<%=rec3("id")%>">



    <% rec3.MoveNext
    Wend
    rec3.close%>

    __________________________________________________ ____________
    2*pag.


    sCodiceid = Request.QueryString("Codici")

    If sCodiceid<>"" Then

    'Eliminazione dell'immobile

    oCon.Execute "DELETE FROM contabilita_anagrafica WHERE id_voci IN ('" &sCodiceid& "')"



    End If








    Praticamente noto che se è selezionato il numero 5 lo elimina se volessi far la selezione multipla quindi il numero 5 6 7 la pagina non da nessun errore ma non elimina nessun record come devo modificare la 2* pag. x permettere di fare eliminazione multipla ?


    Attendo notizie.

  2. #2
    Moderatore di ASP e MS Server L'avatar di Roby_72
    Registrato dal
    Aug 2001
    Messaggi
    19,559
    Verifica cosa contiene la variabile "sCodiceid"

    Roby

  3. #3
    allora il punto è proprio qui

    sCodiceid = Request.QueryString("Codici")

    Ma la pag. precedente lo passa cosi






    <script>


    function stampa()
    {
    var oFrm = document.all("frmPubblicita");
    if (oFrm!=null) {

    oFrm.action = "eliminacodici2.asp?Codici=<%=Request.Querystring( "cod")%>";
    oFrm.target = "_blank";
    oFrm.submit();




    }
    }


    </script>





    <body onload="javascript:stampa();">

    <form name="frmPubblicita" method="post">


    ...................

    </form>

    il problema è nel onload che non mi passa nessun valore

    ti posso dire che cosi funziona:


    ELIMINA

    ma siccome deve aprire la pag. automaticamente non posso usarlo.

    Fammi sapere

  4. #4
    Questa possibilita:



    __________________________________________________ _________________________

    1 pag.:




    <%



    cod=Request.Querystring("cod")
    esercizio=Request.Querystring("esercizio")
    condominio=Request.Querystring("condominio")





    strSQL3= "SELECT * FROM contabilita_vociquery WHERE condominio Like '%" & Request.Querystring("condominio") & "%' and esercizio Like '%" & Request.Querystring("esercizio") & "%' and rifarticolo like '" & Request.Querystring("cod") & "' "

    Set rec3 = Server.CreateObject("ADODB.Recordset")
    Set rec3=Conn.Execute(strSQL3)



    %>








    <html>
    <head>
    <title></title>


    <script>

    function ChangeOrderBy(sValue)
    {
    if (document.all("OrderBy")!=null)
    {
    document.all("OrderBy").value = sValue;
    if (document.all("sampleform")!=null)
    document.all("sampleform").submit();
    }
    }

    function OpenPage(sValue)
    {
    if (document.all("IniziaPer")!=null) {

    document.all("IniziaPer").value = sValue;
    if (document.all("sampleform")!=null) {
    document.all("sampleform").submit();
    }
    }
    }





    function checkAll(bChecked)
    {
    var oChk = document.all("codiceid");

    if (oChk.length!=null) {
    for (var i=0;i<oChk.length;i++)
    oChk[i].checked=bChecked;
    } else {
    if (oChk!=null)
    oChk.checked=bChecked;
    }
    }

    </script>








    <script>


    function stampa()
    {
    var oFrm = document.all("frmPubblicita");
    if (oFrm!=null) {

    oFrm.action = "eliminacodici2.asp?codiceid=<%=rec3("id")%>&cod=< %=request.querystring("cod")%>&condominio=<%=reque st.querystring("condominio")%>&esercizio=<%=reques t.querystring("esercizio")%>";
    oFrm.target = "_self";
    oFrm.submit();




    }
    }


    </script>




    </head>

    <body onload="javascript:stampa();">

    <form name="frmPubblicita" method="post">




    <%
    'Caricamento cookies
    Dim item
    For Each item In Request.Form
    Session(item) = Trim(Request.Form(item))
    Next
    %>


    <input type="hidden" name="update" value="">

    <table cellspacing="0" cellpadding="0" width="1000" align="center">
    <tr>
    <td width="1000" valign="middle" align="left" height="21" style="border-top: 2 solid #808080"></td>
    </tr>
    </table>
    <table border="0" cellpadding="0" cellspacing="0" width="100%">
    <tr>

    <td align="right">

    </td>

    </td>
    </tr>
    </table>

    <table border="0" cellpadding="0" cellspacing="0" width="1000"><tr><td>
    <font size="2" color="#000000" face="Tahoma">







    <%While Not rec3.EOF%>




    <input type="checkbox" CHECKED name="codiceid" value="<%=rec3("id")%>">




    <% rec3.MoveNext
    Wend
    rec3.close%>




    </form>





    __________________________________________________ _________________________


    2° pag.






    <html><head></head><body>




    <%
    Dim sCodiceid
    Dim oCon


    Set oCon=Server.CreateObject("ADODB.Connection")
    oCon.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("/mdb-database/database.mdb")


    cod=Request.Querystring("cod")
    esercizio=Request.Querystring("esercizio")
    condominio=Request.Querystring("condominio")


    sCodiceid = Request.QueryString("codiceid")

    If sCodiceid<>"" Then

    'Eliminazione dell'immobile

    oCon.Execute "DELETE FROM contabilita_anagrafica WHERE id_voci IN ('" &sCodiceid& "')"
    oCon.Execute "DELETE FROM contabilita_anagrafica2 WHERE id_voci IN ( '" &sCodiceid& "' ) "
    oCon.Execute "DELETE FROM contabilita_anagrafica3 WHERE id_voci IN ( '" &sCodiceid& "' ) "
    oCon.Execute "DELETE FROM contabilita_anagrafica4 WHERE id_voci IN ( '" &sCodiceid& "' ) "
    oCon.Execute "DELETE FROM contabilita_anagrafica5 WHERE id_voci IN ( '" &sCodiceid& "' ) "


    End If




    %>



    </body></html>








    Praticamente cancella solo un record cioè esempio


    se sono visualizzati e selezionati il 10-11-12 cancella solo il 10 come posso modificare l'attuale codice ? perche non fa gia tutto cio ?


    Fammi sapere.

  5. #5
    Moderatore di ASP e MS Server L'avatar di Roby_72
    Registrato dal
    Aug 2001
    Messaggi
    19,559
    Alla funzione js passi un solo valore, quindi non è un problema di ASP.

    Roby

  6. #6
    Moderatore di Annunci siti web, Offro lavoro/collaborazione, Cerco lavoro L'avatar di cavicchiandrea
    Registrato dal
    Aug 2001
    Messaggi
    26,133
    Per fare una eliminazione multipla array che invii a pagina eliminazione gli ID (univoci) deve avere questa sintassi 10,11,12,13,etc.... cioè separata dalla virgola poi dai tutto cosi come in "pasto" al delete in

    oCon.Execute "DELETE FROM contabilita_anagrafica WHERE id_voci IN ( " &sCodiceid& " ) "
    Cavicchi Andrea
    Problemi con javascript, jquery, ajax clicca qui

  7. #7
    ok allora sto provando cosi




    strSQL3= "SELECT * FROM contabilita_vociquery WHERE condominio Like '%" & Request.Querystring("condominio") & "%' and esercizio Like '%" & Request.Querystring("esercizio") & "%' and rifarticolo like '" & Request.Querystring("cod") & "' "

    Set rec3 = Server.CreateObject("ADODB.Recordset")
    rec3.cursorlocation = 3
    rec3.Open strSQL3, conn

    Dim sListOfCode : sListOfCode = ""
    While rec3.EOF
    sListOfCode = sListOfCode & ", ' " & rec3("id_voce") & " ' "
    rec3.MoveNext
    Wend
    rec3.Close()

    If sListOfCode<>"" Then
    Session("RICERCA_IMMOBILI")=Mid(sListOfCode,2)
    End If


    rec3.Open strSQL3, conn

    %>


    ma il risultato è identico sempre il primo record elimina gli altri nn li vede per niente


    dove sbaglio .....

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.