- Home
- Categorie
- Coding e Sistemistica
- Altri linguaggi per il web
- Invio automatico e-mail
-
c'è ancora qualche problemino, ti posto il codice per intero:
<% 'variabili generali tabella = "Utenti" mydata = FormatDateTime(Now(),2) percorso="/mdb-database/prova_mailing2.mdb" mioindirizzomail="indirizzoemaildelsito" ' Connessione Set objConn = Server.CreateObject("ADODB.Connection") strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath(percorso) objConn.Open strConn query = "SELECT Nome,Mail FROM "&tabella&" WHERE Data="&mydata set rstmp=connessione.execute(query) 'assegno il risultato a un vettore vettore=rstmp.getrows 'controllo se esistono risultati effettivi if(isarray(vettore)) then 'scorro il vettore for indice=0 to ubound(vettore,2) 'assegno a delle variabili temporanee i valori che mi interessono come mail e nome utente tmpnome=vettore(0,indice) tmpmail=vettore(1,indice) tmptestomail="Ciao " & tmpnome & " auguri da parte nostra" Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.From=mioindirizzomail objMail.To= tmpmail objMail.Subject="Auguri" objMail.Body=tmptestomail objMail.Send Set objMail = nothing next end if objConn.Close Set objConn = Nothing %>
l'errore che esce è il seguente:
Microsoft VBScript runtime error '800a01a8'
Object required: 'connessione' /ita/include/aa.asp, line 13alla linea n. 13 c'è questo: set rstmp=connessione.execute(query)
P.S: ti informo che l'invio della mail di prova l'ho fatto e funziona bene con la schedulazione di aruba. Basta caricare infatti questa pagina in linea e mi arriva l'email
così come è settata (quidni con CDO.Message):<!--#include virtual="/mdb-database/inc_variabili.asp"--> <%Dim MiaMail,body,buckup Set MiaMail = Server.CreateObject("CDO.Message") MiaMail.From = UrlEcom buckup = MailAdmin MiaMail.To = buckup MiaMail.Subject = "Prova !" MiaMail.HTMLBody = "Prova invio e-mail in automatico" MiaMail.Fields.Update() MiaMail.Send() Set MiaMail = Nothing %>
ti prego dimmi che ci riusciremo...:x
-
Niente da fare, avrei gran voglia di leggere dei manuali ma il tempo è troppo poco, praticamente uguale a zero!
Questo è l'ultima prova che ho fatto:<%
'variabili generali
tabella = "Utenti"
mydata = FormatDateTime(Now(),2)
percorso="/mdb-database/prova_mailing2.mdb"
mioindirizzomail="indirizzodelsito"
' Connessione
Set objConn = Server.CreateObject("ADODB.Connection")
strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath(percorso)
objConn.Open strConn
query = "SELECT Nome,Mail FROM "&tabella&" WHERE Data="&mydata
set rstmp = Conn.execute(query)
'assegno il risultato a un vettore
vettore=rstmp.getrows
'controllo se esistono risultati effettivi
if(isarray(vettore)) then
'scorro il vettore
for indice=0 to ubound(vettore,2)
'assegno a delle variabili temporanee i valori che mi interessono come mail e nome utente
tmpnome=vettore(0,indice)
tmpmail=vettore(1,indice)
tmptestomail="Ciao " & tmpnome & " auguri da parte nostra"Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From=mioindirizzomail
objMail.To= tmpmail
objMail.Subject="Auguri"
objMail.Body=tmptestomail
objMail.Send
Set objMail = nothing
next
end if
objConn.Close
Set objConn = Nothing
%>Cosa c'è di sbagliato? Qualcuno potrebbe aiutarmi a risolvere?
Grazie in anticipo
-
Ora che errori ti da?
P.S occhio alle maiuscole nei post.
-
Il solito errore alla linea 13 cioè:
Microsoft VBScript runtime error '800a01a8'
Object required: 'Conn' /ita/include/aa.asp, line 13Non capisco perche!
-
Credo l'errore sia questo.
Errore causato dal fatto che non si puo provare il codice.Cambia questa riga di codice
set rstmp=connessione.execute(query)
in
set rstmp= objConn.execute(query)
e dimmi se va.
-
Niente da fare...ecco il codice con la tua ultima modifica:
<% 'variabili generali tabella = "Utenti" mydata = FormatDateTime(Now(),2) percorso="/mdb-database/prova_mailing2.mdb" mioindirizzomail="mailmiosito" ' Connessione Set objConn = Server.CreateObject("ADODB.Connection") strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath(percorso) objConn.Open strConn query = "SELECT Nome,Mail FROM "&tabella&" WHERE Data="&mydata set rstmp= objConn.execute(query) 'assegno il risultato a un vettore vettore=rstmp.getrows 'controllo se esistono risultati effettivi if(isarray(vettore)) then 'scorro il vettore for indice=0 to ubound(vettore,2) 'assegno a delle variabili temporanee i valori che mi interessono come mail e nome utente tmpnome=vettore(0,indice) tmpmail=vettore(1,indice) tmptestomail="Ciao " & tmpnome & " auguri da parte nostra" Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.From=mioindirizzomail objMail.To= tmpmail objMail.Subject="Auguri" objMail.Body=tmptestomail objMail.Send Set objMail = nothing next end if objConn.Close Set objConn = Nothing %>
e questo è l'errore:
Microsoft JET Database Engineerror '80004005'
Unrecognized database format 'D:\Inetpub\webs\miosito\mdb-database\prova_mailing2.mdb'.
/ita/include/aa.asp, line 11la linea 11 è questa : objConn.Open strConn
grazie ancora per l'attenzione...;-)
-
Ma ora sembriamo esserci sembra essere un problema di database non più di codice.
-
Vuoi che ti invii il database?
Il percorso è il seguente:sito/mdb-database/database.mdb
la pagina la lancio in un'altra cartella della stessa altezza della cartella mdb-database...
Dimmi tu cosa posso fare. Grazie e scusa per il disturbo
-
Su che hosting sei, direi forse Aruba visto la stringa... quindi non dovrebbero esserci problemi.
Quell'errore dovrebbe essere generato quando.
- Il file potrebbe essere corrotto.
- Il file è salvato magari in un formato non giusto, prova con mdb 2003.
- Il percorso potrebbe essere sbagliato.
Prova con queste verifiche prima.
-
Su che hosting sei, direi forse Aruba visto la stringa... quindi non dovrebbero esserci problemi.
Quell'errore dovrebbe essere generato quando.
- Il file potrebbe essere corrotto.
- Il file è salvato magari in un formato non giusto, prova con mdb 2003.
- Il percorso potrebbe essere sbagliato.
Prova con queste verifiche prima.
-
Ho messo un nuovo database sicuramente funzionanate con 10 registrazioni, 10 indirizzi e.mail diversi ma tutti funzionanati e 10 date in questo formato ggmmaaaa (ossia 29102009)...
e questo è l'errore:
ADODB.Recordset error '800a0bcd'
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record. /ita/include/aa.asp, line 16lalinea 16 è la seguente: vettore=rstmp.getrows
-
Ma non capisco chi richiami questo file aa.asp, il codice che ti ho fornito io no. Quindi dove?
-
Il codice che mi hai fornito è nella pagina denominata aa.asp, una semplice prova...
Hai qualche soluzione?
-
Proviamo cosi allora in quella riga scrivi cosi.
if not rstmp.eof then vettore=rstmp.getrows end if
Vediamo se cosi va.
-
Perfetto, questo il nuovo codice però ora mi esce solo una pagina biance senza nessun errore ma non ricevo nemmeno nessuna mail...
Il formato della data è corretto?<%
'variabili generali
tabella = "Utenti"
mydata = FormatDateTime(Now(),2)
percorso="/mdb-database/prova.mdb"
mioindirizzomail="mio indirizzo email del sito"
' Connessione
Set objConn = Server.CreateObject("ADODB.Connection")
strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath(percorso)
objConn.Open strConn
query = "SELECT Nome,Mail FROM "&tabella&" WHERE Data="&mydata
set rstmp= objConn.execute(query)
'assegno il risultato a un vettore
if not rstmp.eof then
vettore=rstmp.getrows
end if
'controllo se esistono risultati effettivi
if(isarray(vettore)) then
'scorro il vettore
for indice=0 to ubound(vettore,2)
'assegno a delle variabili temporanee i valori che mi interessono come mail e nome utente
tmpnome=vettore(0,indice)
tmpmail=vettore(1,indice)
tmptestomail="Ciao " & tmpnome & " auguri da parte nostra"Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From=mioindirizzomail
objMail.To= tmpmail
objMail.Subject="Auguri"
objMail.Body=tmptestomail
objMail.Send
Set objMail = nothing
next
end if
objConn.Close
Set objConn = Nothing
%>
-
Questo non so prova a vedere cosa ti da.
mydata = FormatDateTime(Now(),2) responde.write "Data ==> " & mydata
-
Ecco l'esito
Microsoft VBScript runtime error '800a01a8'
Object required: 'responde' /ita/aaaa.asp, line 6e la linea 6 è questa: responde.write "Data ==> " & mydata
-
Pardon ho scritto male, response non responde eh eh.
Vedrai che ce la faremo.
-
Ragazzi quello che sto per scrivervi esula dalla ricerca del codice esatto...
Ho appen comprato il macbook pro 13 pollici... eccezzionale.......
-
Ragazzi non mi rendo conto come possa essere così complicata una funzione che apparentemente è semplice semplice!
Qualcuno ha nuove idee?
Grazie in anticipo!