CANCELLAZIONE RECORD IN LOOP NON MI VA! (aiuto)

bromuro · 8 Dic 2010

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%>






<html>
<HEAD>

<SCRIPT LANGUAGE="JAVASCRIPT" TYPE="text/javascript">

</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> Campi trovati</td><td id="subscribers"></td>
<td> Campi vuoti</td><td id="noemail"></td>
<td> Campi già importati</td><td id="done"></td>
<td> Processati</td><td id="total"></td>
<td> Campi inseriti</td><td id="imported"><td>

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

Majinbu · 8 Dic 2010

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 · 8 Dic 2010

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 · 9 Dic 2010

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 · 13 Dic 2010

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

Cerca

Cerca

CANCELLAZIONE RECORD IN LOOP NON MI VA! (aiuto)

bromuro

Nuovo Utente

Majinbu

Utente Attivo

bromuro

Nuovo Utente

Majinbu

Utente Attivo

bromuro

Nuovo Utente

Discussioni simili