Ma sono io ho è aruba? database access query semplice a non funge !!!...

martedì 07 dicembre 2010 - 01.40

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

Elenco Tags SQL Server 2000 | Access (.mdb) | Javascript | VBScript

bromuro Profilo | Newbie

1 messaggi | Data Invio: mar 7 dic 2010 - 01:40

ciao a tutti sono nuovo ho costruito grazie a vari script e notti insonne ,un 'efficente 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()
%>

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !