CANCELLAZIONE RECORD IN LOOP NON MI VA! (aiuto)

bromuro

Nuovo Utente
8 Dic 2010
3
0
0
ciao a tutti,
sono nuovo ho costruito grazie a vari script e notti insonni ,un 'efficiente programma newsletter per adattarlo su servizi aruba (con timer delay etc)
comunque sto impazzendo a creare un sistema che
mi controlli un semplice array dove da form gli trasmetto alcuni indirizzi email da cancellare nel
database
quindi poi in automatico cancelli gli indirizzi che non mi servono in un colpo solo

ho provato con questa query funziona ma se ce un indirizzo doppio mi cancella solo il primo
e mi lascia nel database ACCESS su server ARUBA la copia dell'indirizzo che in teoria dovrebbe cancellarli entrambi visto che gli faccio fare il loop if not .eof

risultato alcuni indirizzi vengono cancellati altri con doppi rimangono nel record db

Spero di essermi fatto capire da qualcuno e che possa risolvere il problema

COME FUNZIONA :
procedura da form inserisco indirizzi emails da cancellare ---> vengono ricevuti da un'array
che lo splitta , mi conta le righe etc --->l'array sposta le righe una ad una (record)
poi il viene trasmesso il tutto nel DB , una volta finito di leggere l'array (1) (se l'email esiste)
dopo la cancellazione incrementa di una riga la lettura dell'array in ciclo stesso for next . fino all'ultimo record
risultato vengono cancellati tutti record ma se ce un record doppio ovvero un'email registrata due o tre volte per errore mi cancella solo il primo record ... la cosa strana e anche che se tento di rimettere l'utente (email) 1° che ho appena cancellato il database lo accetta e lo attiva nel database
ma se lo cancello un'altra volta me lo rimette nel database assieme al vecchio doppione
boh sto andando fuori di testa
perfavore datemi una mano


PAGINA DI CANCELLAZIONE AUTOMATICA ASP UTENTI DA CANCELLARE DA LISTA FORM
===========================================================================
<%@LANGUAGE = VBScript%>
<!--#include file="inc/common.asp"-->
<!--#include file="inc/ChkAdm.asp"-->
<!--#include file="header.asp"-->
<!--METADATA TYPE="typelib" UUID="CD000000-8B95-11D1-82DB-00C04FB1625D" NAME="CDO for Windows 2000 Type Library" -->
<!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4" NAME="ADODB Type Library" -->

<html>
<HEAD>

<SCRIPT LANGUAGE="JAVASCRIPT" TYPE="text/javascript">
<!-- Begin

function copy() {
textRange = document.extractor.output.createTextRange();
textRange.execCommand("RemoveFormat");
textRange.execCommand("Copy");
}
function paste() {
textRange = document.extractor.input.createTextRange();
textRange.execCommand("RemoveFormat");
textRange.execCommand("Paste");
}
function findEmail() {
var email = "No email address detected";
var a = 0;
var ingroup = 0;
var separator = "new";
var string = "";
var groupby = "";

if (separator == "new") separator = "\n";
if (separator == "other") separator = document.extractor.othersep.value;
var rawemail = document.extractor.input.value.match(/([a-zA-Z0-9._-][email protected][a-zA-Z0-9._-]+\.[a-zA-Z0-9._-]+)/gi);
var norepeat = new Array();
var filtermail = new Array();
if (rawemail) {
if (string){
x = 0;
for (var y=0; y<rawemail.length; y++) {
if (rawemail[y].search(string) >= 0) {
filtermail[x] = rawemail[y];
x++;
}
}
rawemail = filtermail;
}

for (var i=0; i<rawemail.length; i++) {
var repeat = 0;

// Check for repeated emails routine
for (var j=i+1; j<rawemail.length; j++) {
if (rawemail == rawemail[j]) {
repeat++;
}
}

// Create new array for non-repeated emails
if (repeat == 0) {
norepeat[a] = rawemail;
a++;
}
}
if (document.extractor.sort.checked) norepeat = norepeat.sort(); // Sort the array
email = "";
// Join emails together with separator
for (var k = 0; k < norepeat.length; k++) {
if (ingroup != 0) email += separator;
// aggiunta virgola segno
email += ","+ norepeat[k];
ingroup++;


}
}

script1() ;
// Return array length
var count = norepeat.length;

// Print results
document.extractor.count.value = count;
document.extractor.output.value = email;
}
// End -->
</SCRIPT>

<script>

function script1() {
var e = document.getElementById("exporta");
e.innerHTML = '<input type="submit" class="button" value="exporta il testo">'
}
</script>
<STYLE TYPE="text/css">

BODY,td,th,ul,p { font: normal normal normal 8pt/1em Verdana; color: #000; }
textarea,input,select { font: normal normal normal 8pt/1em Verdana; color: #000; }


.bordercolor { background:#666 }
.maincolor { background:#CCC }
.button { background:#CCC }
.titlebarcolor { background:#007 }
.titlefont { font: normal normal bold 9pt/1em Arial; color: #FFF; }

</STYLE>
</HEAD>
<BODY>


<form method="post" name="extractor" action="importadatesto.asp?elabora=salva" method=""post"">
<DIV ALIGN="CENTER">
<TR><TD>
<TABLE CLASS="maincolor" CELLPADDING=4 CELLSPACING=0 BORDER=0>
<TR>
<TD VALIGN="TOP" ALIGN="CENTER" WIDTH="50%">
<TEXTAREA NAME="input" rows=8 cols=50 onBlur="findEmail();"></TEXTAREA>
</TD>
<TD VALIGN="TOP" ALIGN="CENTER" WIDTH="50%">

<TEXTAREA NAME="output" rows=8 cols=50 ></TEXTAREA>

</TD></TR>
<TR>
<TD VALIGN="TOP" ALIGN="CENTER">
</TD>
<TD VALIGN="TOP" ALIGN="CENTER">
</TD></TR>
<TR>
<TD VALIGN="TOP" ALIGN="LEFT" COLSPAN=2>
<INPUT TYPE="hidden" NAME="sort" id="sortbox">
</TD></TR>
<TR>
<TD VALIGN="TOP" ALIGN="LEFT" COLSPAN=2>
<div ALIGN="CENTER" id=exporta></DIV>
</TD>
</TR>

<TR>
<td>
<INPUT TYPE="RESET" CLASS="button" VALUE="Reset">
<INPUT NAME="count" SIZE=5 READONLY>
</TD>
</TR>
</FORM>

<tr>
<td >
<form name="file_upload" method="post" ENCTYPE="multipart/form-data" Action=" salva_allegati.asp?testodata=si">
<input type="file" size="20" name="Filename" class=button>
</td>


<tr>
<td>
<input type="hidden" name="uppo" value="update">
<input type="submit" class="button" value="salva nel db il file">
</td>
</tr>
</table>
</form>
<%

ConnectDB()
connectrst()

'Global variables
Dim lngTotalProcessed 'Counts the number of records processed




'******************************************
'*** Import form CSV file ****
'******************************************

Public Sub GetCsvSubscribers()



'Initilise variables
lngMemberImportCount = 0
lngMemberAlreadyImported = 0
lngMemberNoEmail = 0
lngTotalProcessed = 0
blnEmailOK = True
blnEmailExists = false


'########################



'conto le linee
sarryCsvFile = Split(Request.Form("output") , Chr(10))


'ottengo il numero di righe
lngTotalRecords = UBound(sarryCsvFile) + 1

'contatore
Response.Write("<script language=""JavaScript"">" & _

vbCrLf & " document.getElementById('subscribers').innerHTML = '" & lngTotalRecords & "';" & _
vbCrLf & "</script>")



'Loop through recordset
For lngCsvFileLoopCounter = 0 To (lngTotalRecords - 1)

'Initilise variables
blnEmailOK = True
blnEmailExists = false
strEmail = ""
strName = ""


'Count the number of files processed
lngTotalProcessed = lngTotalProcessed + 1

'Check to see if there is a comma before reading in data
If InStr(sarryCsvFile(lngCsvFileLoopCounter), ",") Then

'Read in the CSV file line into an array
sarryCsvFileLine = Split(sarryCsvFile(lngCsvFileLoopCounter),"," )


'Read in the details from the file
strName = sarryCsvFileLine(0)
If strName <> "" Then strName = strName
strEmail = LCase(sarryCsvFileLine(1))
If strEmail <> "" Then strEmail = Trim(strEmail)
End If


'If no email address for user display message
If strEmail = "" Then

lngMemberNoEmail = lngMemberNoEmail + 1

end if

'####### QUESTa query da i numeri !!! #### '


strSQL = "SELECT * FROM subscriber_list WHERE Email = '" &strEmail& "'"

With adorst

.CursorType = 3
.LockType = 3
.Open strSQL, adoCon


If NOT .EOF Then
blnEmailExists = true

response.write "<font color=yellow ><b>"&strEmail&"ce già ->"& .fields("email")& "</font><br>"

.delete
.movenext


' incremento
lngMemberAlreadyImported = lngMemberAlreadyImported + 1



end if


' questa opzione posso anche toglierla
' serve per updatare il database con nuovi utenti

'If the email doesn't already exsist then enter the email into the database
If blnEmailExists = False Then

response.write "<font color=gree><b>INSERITO: "&strEmail&"</font>"

'Add new record to a new recorset
.AddNew

'Set database fields
.Fields("Email") = Trim(Mid(strEmail, 1, 50))
if strName<>"" then
.Fields("name") = Trim(Mid(strname, 1, 50))
else
.Fields("name") = Trim(Mid(strEmail, 1, 50))
end if
.Fields("active") = "true"
.Fields("status") = "1"
.Fields("sub_date") = date()
.Update

.Requery

End If

.Close
End With

'############################fino a qua ###############################'



'Display on page number of subscribers to import
Response.Write(vbCrLf & "<script language=""JavaScript"">"& _
vbCrLf & " document.getElementById('imported').innerHTML = '" & lngMemberImportCount & "';" & _
vbCrLf & " document.getElementById('done').innerHTML = '" & lngMemberAlreadyImported & "';" & _
vbCrLf & " document.getElementById('noemail').innerHTML = '" & lngMemberNoEmail & "';" & _
vbCrLf & " document.getElementById('total').innerHTML = '" & lngTotalProcessed & "';" & _
vbCrLf & " document.getElementById('progress').innerHTML = '" & percentageCalculate(lngTotalProcessed, lngTotalRecords, 0) & "';" & _
vbCrLf & " document.getElementById('bar').style.width = '" & percentageCalculate(lngTotalProcessed, lngTotalRecords, 0) & "';" & _
vbCrLf & "</script>")


Next
Set adorst = Nothing
Set adocon = Nothing
End Sub

'******************************************
'*** Calculate Percentage ****
'******************************************

Private Function percentageCalculate(ByRef lngNumberProcessed, ByRef lngTotalToProcess, ByRef intDecPlaces)

'If there are no newsletters sent yet then format the percent by 0 otherwise an overflow error will happen
If lngTotalProcessed = 0 Then
percentageCalculate = FormatPercent(1, 1)

'Else read in the the percentage of newsletters sent
Else
percentageCalculate = FormatPercent((lngNumberProcessed / lngTotalToProcess), intDecPlaces)
End If

End Function

%>
<tr>
<table border="0" width=640 align=center>
<td id="bar" bgcolor=lightgreen style="width:100%;"></td>
<td id="progress" bgcolor=red ></td>
</tr>
</table>
<tr>
<table width=640 align=center border=0 cellspacing=0 cellpadding=0>
<tr>
<td>&nbsp;Campi trovati</td><td id="subscribers"></td>
<td>&nbsp;Campi vuoti</td><td id="noemail"></td>
<td>&nbsp;Campi già importati</td><td id="done"></td>
<td>&nbsp;Processati</td><td id="total"></td>
<td>&nbsp;Campi inseriti</td><td id="imported"><td>

</tr>
</table>
</body>
<%
Call GetCsvSubscribers()
%>
 

Majinbu

Utente Attivo
31 Ago 2009
140
0
0
Salerno
www.zazoom.it
Scusami, ma sinceramente trovo il tutto un pò mattone e con qualche passaggio in più...visto che è un processo che lanci tu, potresti snellire notevolmente il tutto saltando l'Instr e il trim che non ti servono...cmq come già hai evidenziato
Codice:
'####### QUESTa query da i numeri !!! #### '


strSQL = "SELECT * FROM subscriber_list WHERE Email = '" &strEmail& "'"

With adorst

.CursorType = 3
.LockType = 3
.Open strSQL, adoCon

' IL PROBLEMA è QUI
If NOT .EOF Then
blnEmailExists = true

response.write "<font color=yellow ><b>"&strEmail&"ce già ->"& .fields("email")& "</font><br>"

.delete
.movenext
questo script non credo che sia pensato per cancellare più record in db..oltre al fatto che ho notato più volte in access, per un problema di cache, non riesce a inserire,cancellare o modificare un record e contemporaneamente(nella stessa pagina) leggere quell'inserimento,cancellazione o modifica appena effettuata...basta che ricariche e leggi le modifiche.
Lo script esegue la query...verifica l'occorrenza...ti cancella il record e passa avanti al prossimo dato dell'array, non riverifica altre email che soddisfano la query.

Credo che dovresti modificare lanciando un recordset per ogni riga dell'array e con un
"DELETE * FROM subscriber_list WHERE Email = '" &strEmail& "' "
cancelli tutti i record.
O...se non troppo complcato...risolvi al contrario...cancella manualmente le email inserite fino ad oggi...e aggiungi un controllo all'inserimento---> se l'email è già presente, non fai l'inserimento...quindi non ti ritrovi più di fronte allo stesso problema.
 

bromuro

Nuovo Utente
8 Dic 2010
3
0
0
ti ringrazio della risposta

Ciao ,so benissimo che sarebbe da snellire il tutto...
infatti diciamo che in origine recuperava da file di testo depositato in una cartella
e li inseriva nel db (quindi in update)
ma essendo su arruba per non piantare il server ho deciso di utilizzare un form
(e non il prelievo cvs txt ...da cartella)
per l'inserimento automatico degli utenti vecchi che stavano su un altro database
pero' mi sono accorto che c'erano molti doppioni ,nello stesso momento ho pensato di sfruttare il procedimento anche per cancellare ttutti quelli che non erano piu' validi
utilizzando javascrpt, un copia in colla da qualsiasi cvs txt tabella e via andare
inserirlo nel form che poi lo invia all'array quindi diretto nel database

secondo la logica dovrebbe cancellare qualsiasi nome anche ripetuto nel db
con il sistema del confronto ovvero
do while not eof
se mario (array) è uguale a mario (già nel database)
allora delete!
altrimenti
aggiungi mario(array) 'pero non è che m'interessa l'update addnew
loop 'loppa per tutto il file (quindi in teoria dovrebbe cancellare anche il prossimo
fino alla fine

insomma è logico che deve controllare ,quindi cancellare i doppioni no?
la cosa strana che a volte me li cancella e me li uppa

selezione 20 indirizzi li metto ne form e mi cancella certi e altri no
Boh ci terrei molto a finire lo script

Tieni presente che ho fatto pure un test in questo modo :
[...] strEmail= array1(x)

'####### QUESTa query da i numeri !!! #### '


strSQL = "DELETE * FROM subscriber_list WHERE Email = '" &strEmail& "'"

adoCon.Execute(strSQL)
Response.Write(strSQL)

With adorst

.CursorType = 3
.LockType = 3
.Open strSQL, adoCon


If NOT .EOF Then
blnEmailExists = true

response.write "<font color=yellow ><b>"&strEmail&"ce già ->"& .fields("email")& "</font><br>"



end if
next
-------------------------------------------------------------------------------------
risultato query tua: DELETE * FROM subscriber_list WHERE Email = '[email protected]'
=====================================================================
ma non cancella nulla






il succo è questo:
strEmail=(array test)(x)


'####### QUESTa query da i numeri !!! #### '


strSQL = "SELECT * FROM subscriber_list WHERE Email = '" &strEmail& "'"

With adorst

.CursorType = 3
.LockType = 3
.Open strSQL, adoCon


If NOT .EOF Then
blnEmailExists = true

response.write "<font color=yellow ><b>"&strEmail&"cancellato ->"& .fields("email")& "</font><br>"

.delete

Response.Write(strSQL)
.movenext


' incremento
lngMemberAlreadyImported = lngMemberAlreadyImported + 1



end if


' questa opzione posso anche toglierla
' serve per updatare il database con nuovi utenti

'If the email doesn't already exsist then enter the email into the database
If blnEmailExists = False Then

response.write "<font color=gree><b>INSERITO: "&strEmail&"</font>"

'Add new record to a new recorset
.AddNew

'Set database fields
.Fields("Email") = Trim(Mid(strEmail, 1, 50))
if strName<>"" then
.Fields("name") = Trim(Mid(strname, 1, 50))
else
.Fields("name") = Trim(Mid(strEmail, 1, 50))
end if
.Fields("active") = "true"
.Fields("status") = "1"
.Fields("sub_date") = date()
.Update

.Requery

End If

.Close
End With
next
[chiusura connessioni]
---------------------------------------------------------------------
RISULTATO mia
R.W: mi dice: cancellato ->[email protected]
R.W QUERY select * FROM subscriber_list WHERE Email = '[email protected]'

(ma mi cancella solo un [email protected] invece di tre che ho aggiunto apposta)
poi lo rimetto nell'array( form) e lo reinserisce in UPDATE
al posto di cancellarlo ...boh

POI NON CAPISCO PERKE ARUBA NON ACCETTA IL PARAMETRO DISTINCT ..uffa
Ciao e grazie mille
 

Majinbu

Utente Attivo
31 Ago 2009
140
0
0
Salerno
www.zazoom.it
Allora credo che il problema sia qui
Codice:
.CursorType = 3
.LockType = 3
.Open strSQL, adoCon
Prova con questo recordset...lavoro anche su aruba e non ho mai avuto un problema del genere...
Codice:
Set del = Server.CreateObject ("ADODB.Command")
    del.ActiveConnection = ...
    del.CommandText = "DELETE * FROM subscriber_list WHERE Email = '" &strEmail& "'"
    del.Execute
    del.ActiveConnection.Close
 

bromuro

Nuovo Utente
8 Dic 2010
3
0
0
ciao ,allora ho provato fare cosi per prova

ma non mi legge il record
finche non fa il primo ciclo

uscita = split(request.form("output"),chr(13))
for i = 0 to Ubound(uscita)
strEmail=uscita(i)

set adorst = server.createobject("adodb.recordset")
SQL = "SELECT email FROM subscriber_list "
response.write (sql)&"<br><br>"
adorst.Open SQL, adocon, 3, 3

x=0
do while not adorst.eof

' il record esiste nel db adorst.fields("email")
' ma non me lo vede .Al secondo ciclo si, se metto due o piu' emails nel form
' quindi non corrisponde alla richiesta voluta ecco perche il .delete non funge

if adorst.fields("email")=(strEmail) then
' in teoria qui dovrebbe subito vedere il campo email dal db

response.write x &" " &adorst.fields("email")&" "&(strEmail)
response.write " trovato"&"<br>"
else
response.write " non cè"&"<br>"
end if

adorst.movenext
x=x+1
loop
adorst.Close
next
Set adorst = Nothing

' mi spiego in questa linea nel suo loop dovrebbe controllare i campi adorst.fields("email") x loop
quindi se adorst.fields("email") = stremail me la deve cancellare subito non dopo il primo giro

o scrivere che esiste

Set adocon = Nothing

ciao quindi non è un problema di conessione
qualsiasi delete funge ma non al primo controllo


entrata form email
[email protected]
[email protected]
[email protected]
[email protected]

uscita a video:(controllo)

SELECT email FROM subscriber_list

non cè
non cè
non cè
non cè
SELECT email FROM subscriber_list

non cè
1 [email protected] [email protected] trovato
non cè
non cè
SELECT email FROM subscriber_list

non cè
non cè
2 [email protected] [email protected] trovato
non cè
SELECT email FROM subscriber_list

non cè
non cè
non cè
3 [email protected] [email protected] trovato
 
Discussioni simili
Autore Titolo Forum Risposte Data
M Ckeckbox multiple per cancellazione record su db mysql PHP 0
F Cancellazione record PHP 2
P Cancellazione record PHP 102
P Problema di cancellazione record su MySql php PHP 0
cosov Messaggio conferma per cancellazione record Javascript 1
M help inserimento e cancellazione record Database 3
MarcoGrazia foreign key cancellazione degli alberi figli di un nodo mancante MySQL 0
P Cancellazione specifici files in una folder php PHP 1
spider81man [PHP] Problemi cancellazione dato su DB [RISOLTO] PHP 1
spider81man [PHP] Alert Box per confermare Inserimento o Cancellazione dato. PHP 4
G Samsung tab 4 - impostazione e cancellazione codice di accesso Smartphone e tablet 0
M Cancellazione File dal Server. PHP 34
M Modifica e/o Cancellazione dati da database MySql PHP 2
seranto Mi rifiutano la cancellazione di un articolo Leggi, Normative e Fisco 5
E messaggio di conferma dopo inserimento/modifica/cancellazione righe db PHP 10
filippino Microsoft Outlook, IMAP e cancellazione posta Posta Elettronica 0
A Prezzo dinamico carrello e messaggio cancellazione Javascript 1
R Modifica e cancellazione dati da MDB Classic ASP 11
F Quali sono i canali previsti dalla legge per richiedere la cancellazione dei dati personali? Leggi, Normative e Fisco 6
N Cancellazione Immagine Utente e Echo conferma cancellazione PHP 2
P Problema script conferma cancellazione Javascript 2
M Creazione di una pagina web per la cancellazione da una mailing list PHP 13
P problema con cancellazione multipla PHP 7
F Ripristino windows8 su HD e cancellazione file precedenti! Hardware 35
R Modifica e cancellazione PHP 23
maxbossi Cancellazione da forum e rimozione messaggi Comunicazioni dallo Staff 2
G Creazione interfaccia VISUALIZZAZIONE/CANCELLAZIONE dati database PHP 1
C Cancellazione-Annulla Registrazione Dati appena Inseriti nel Form dall' Utente PHP 13
I Cancellazione sito dal server Webdesign e Grafica 4
A query di cancellazione PHP 6
A Richiesta cancellazione post sul forum Supporto Mr.Webmaster 1
F problemi con la cancellazione di un file PHP 2
D cancellazione campo di form Classic ASP 0
SolidSnake4 cancellazione non riuscita PHP 4
G cancellazione messaggi guestbook Supporto Mr.Webmaster 2
D Cancellazione news e relative immagini PHP 1
F cancellazione sito vecchio/pubblicazione sito nuovo HTML e CSS 5
W Inserimento e cancellazione nodi con XMLDOM XML 1
R cancellazione stringa da file PHP 2
M cancellazione da Mrwebmaster Tool Supporto Mr.Webmaster 2
S errore cancellazione file Windows e Software 8
D problema cancellazione cartelle PHP 3
S Selezionare ultimo record di una sotto query MySQL 26
A Tabella con bottoni per aggiornamento record PHP 6
S Differenza date record successivi MS Access 7
R Aggiornare record mysql con Ajax, jQuery e php Ajax 2
S Aggiornamento lista record Database 2
M Esportazione in CSV, salta il primo record PHP 4
T foreach e fetchAll dove recupero solo l'ultimo record PHP 5
A Raggruppare record con stessa data PHP 13

Discussioni simili