problema con join

[daduz]

rieccomi

ho questo codice


<%
DADATAGG= request.form("DADATAGG")
DADATAMM= request.form("DADATAMM")
DADATAAAAA= request.form("DADATAAAAA")
ADATAGG= request.form("ADATAGG")
ADATAMM= request.form("ADATAMM")
ADATAAAAA= request.form("ADATAAAAA")

strSQL = "SELECT data,file,codcli FROM archivio "
strSQL = strSQL & "INNER JOIN login ON archivio.codcli = login.codcli"
strSQL = strSQL & " WHERE Data Between "
strSQL = strSQL & "#" & DADATAMM & "/" & DADATAGG & "/" & DADATAAAAA & "#"
strSQL = strSQL & " AND "
strSQL = strSQL & "#" & ADATAMM & "/" & ADATAGG & "/" & ADATAAAAA & "#"

SET rs=Server.CreateObject("ADODB.Recordset")
rs.Open strSQL, myconn

Do Until RS.EOF
If Not IsNull(rs("mail")) Then

Dim miaMail
Set MiaMail = Server.CreateObject("CDO.Message")
miaMail.From = "daduz@inwind.it"
MiaMail.To = rs("mail") 'MANDA LA MAIL A TUTTI

MiaMail.Subject = "Invio documento " &rs("file")'
MiaMail.TextBody = "In allegato inviamo documento " &rs("file")& ", cordiali saluti."

MiaMail.AddAttachment ("http://www.miosito.com/mdb-database/doc/") &rs("file")

MiaMail.Fields("urn:schemas:httpmail:importance"). Value = 2
MiaMail.Fields.Update()
MiaMail.Send()
End if
RS.movenext
Loop
Set miaMail = Nothing

response.write " Mail inviate con successo!"
%>


mi da errore

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver] The specified field 'codcli' could refer to more than one table listed in the FROM clause of your SQL statement.

/consultonline/admin_sendmail_join.asp, line 29


alla linea 29 ho:
rs.Open strSQL, myconn





vorrei legare il campo CODCLI della tab archivio al campo CODCLI della tabella login per inviare la relativa mail,
se tolgo la join funziona tutto bene

vorrei usare la join per non avere ogni record della tab login con la mail di riferimento ma vorrei che la trovasse in login grazie al controllo codcli (presente sia in login che in archivio)

thank you :rollo:

[Santino83_02]

strSQL = "SELECT data,file,archivio.codcli as codcli FROM archivio "

[daduz]

grazie per la risp
adesso il codice diventa cosi

<%
DADATAGG= request.form("DADATAGG")
DADATAMM= request.form("DADATAMM")
DADATAAAAA= request.form("DADATAAAAA")
ADATAGG= request.form("ADATAGG")
ADATAMM= request.form("ADATAMM")
ADATAAAAA= request.form("ADATAAAAA")

strSQL = "SELECT data,file,archivio.codcli as codcli FROM archivio "
strSQL = strSQL & "INNER JOIN login ON archivio.codcli = login.codcli"
strSQL = strSQL & " WHERE Data Between "
strSQL = strSQL & "#" & DADATAMM & "/" & DADATAGG & "/" & DADATAAAAA & "#"
strSQL = strSQL & " AND "
strSQL = strSQL & "#" & ADATAMM & "/" & ADATAGG & "/" & ADATAAAAA & "#"

SET rs=Server.CreateObject("ADODB.Recordset")
rs.Open strSQL, myconn

Do Until RS.EOF
If Not IsNull(rs("mail")) Then

Dim miaMail
Set MiaMail = Server.CreateObject("CDO.Message")
miaMail.From = "daduz@inwind.it"
MiaMail.To = rs("mail") 'MANDA LA MAIL A TUTTI

MiaMail.Subject = "Invio documento " &rs("file")'
MiaMail.TextBody = "In allegato inviamo documento " &rs("file")& ", cordiali saluti."

MiaMail.AddAttachment ("http://www.miosito.com/mdb-database/doc/") &rs("file")

MiaMail.Fields("urn:schemas:httpmail:importance"). Value = 2
MiaMail.Fields.Update()
MiaMail.Send()
End if
RS.movenext
Loop
Set miaMail = Nothing

response.write " Mail inviate con successo!"
%>


errore
ADODB.Recordset error '800a0cc1'

Item cannot be found in the collection corresponding to the requested name or ordinal.

/consultonline/admin_sendmail_join.asp, line 32


linea32
If Not IsNull(rs("mail")) Then


dove definisco mail ?

[daduz]

prima dicevo:

vorrei usare la join per non avere ogni record della tab login con la mail di riferimento ma vorrei che la trovasse in login grazie al controllo codcli (presente sia in login che in archivio)


ma intendevo "ogni record della tab archivio"

[Santino83_02]

strSQL = "SELECT data,file,archivio.codcli as codcli,login.mail as mail FROM archivio "
strSql=.....

[daduz]

funziona grazie mille !
sol una cosa, la pagina che spedisce la mail è lentissima (2/3 minuti) a caricare, dipende
dalla join o gli sto facendo fare cicli inutili ??


codice

<%
DADATAGG= request.form("DADATAGG")
DADATAMM= request.form("DADATAMM")
DADATAAAAA= request.form("DADATAAAAA")
ADATAGG= request.form("ADATAGG")
ADATAMM= request.form("ADATAMM")
ADATAAAAA= request.form("ADATAAAAA")


strSQL = "SELECT data,file,archivio.codcli as codcli,login.mail as mail FROM archivio "
strSQL = strSQL & "INNER JOIN login ON archivio.codcli = login.codcli"
strSQL = strSQL & " WHERE Data Between "
strSQL = strSQL & "#" & DADATAMM & "/" & DADATAGG & "/" & DADATAAAAA & "#"
strSQL = strSQL & " AND "
strSQL = strSQL & "#" & ADATAMM & "/" & ADATAGG & "/" & ADATAAAAA & "#"

SET rs=Server.CreateObject("ADODB.Recordset")
rs.Open strSQL, myconn

Do Until RS.EOF
If Not IsNull(rs("mail")) Then

Dim miaMail
Set MiaMail = Server.CreateObject("CDO.Message")
miaMail.From = "daduz@inwind.it"
MiaMail.To = rs("mail") 'MANDA LA MAIL A TUTTI

MiaMail.Subject = "Invio documento " &rs("file")'
MiaMail.TextBody = "In allegato inviamo documento " &rs("file")& ", cordiali saluti."

MiaMail.AddAttachment ("http://www.miosito.com.com/mdb-database/doc/") &rs("file")

MiaMail.Fields("urn:schemas:httpmail:importance"). Value = 2
MiaMail.Fields.Update()
MiaMail.Send()
End if
RS.movenext
Loop
Set miaMail = Nothing

response.write "Tutti i documenti con data compresa dal "
response.write DADATAGG& "/" &DADATAMM& "/" &DADATAAAAA
response.write " al "
response.write ADATAGG& "/" &ADATAMM& "/" &ADATAAAAA
response.write " sono stati inviati con successo !" %>

<%

[Santino83_02]

quante email stai inviando?

[daduz]

7

[Santino83_02]

boh me pare strano che ci metta così tanto....prova a non usare l'attachment e vedi se si velocizza la cosa...se non si velocizza magari è lento l'oggetto a rispondere al send...

[daduz]

tieni presente che la procedura originale (senza join) invia tutte le mail (10), in un attimo,
ho tolto gli allegati e ci mette 5 sec.....invece che 3 min..

può essere che il percorso del file da allegare che si trova in tab archivio lo rallenta cosi