Navigazione

    Privacy - Termini e condizioni
    © 2020 Search On Media Group S.r.l.
    • Registrati
    • Accedi
    • CATEGORIES
    • Discussioni
    • Non letti
    • Recenti
    • Hashtags
    • Popolare
    • Utenti
    • Stream
    • Interest
    • Categories
    1. Home
    2. Categorie
    3. Coding e Sistemistica
    4. Coding
    5. Invio automatico e-mail
    Questa discussione è stata cancellata. Solo gli utenti con diritti di gestione possono vederla.
    • marcocarrieri
      marcocarrieri ModSenior • ultima modifica di

      Ora che errori ti da?
      P.S occhio alle maiuscole nei post.

      0 Miglior Risposta Ringrazia Cita Rispondi

        1 Risposta Ultima Risposta
      • P
        partisan75 User • ultima modifica di

        Il solito errore alla linea 13 cioè:

        Microsoft VBScript runtime error '800a01a8'
        Object required: 'Conn' /ita/include/aa.asp, line 13

        Non capisco perche!

        0 Miglior Risposta Ringrazia Cita Rispondi

          1 Risposta Ultima Risposta
        • marcocarrieri
          marcocarrieri ModSenior • ultima modifica di

          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.

          0 Miglior Risposta Ringrazia Cita Rispondi

            1 Risposta Ultima Risposta
          • P
            partisan75 User • ultima modifica di

            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 11

            la linea 11 è questa : objConn.Open strConn

            grazie ancora per l'attenzione...;-)

            0 Miglior Risposta Ringrazia Cita Rispondi

              1 Risposta Ultima Risposta
            • marcocarrieri
              marcocarrieri ModSenior • ultima modifica di

              Ma ora sembriamo esserci sembra essere un problema di database non più di codice.

              0 Miglior Risposta Ringrazia Cita Rispondi

                1 Risposta Ultima Risposta
              • P
                partisan75 User • ultima modifica di

                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

                0 Miglior Risposta Ringrazia Cita Rispondi

                  1 Risposta Ultima Risposta
                • marcocarrieri
                  marcocarrieri ModSenior • ultima modifica di

                  Su che hosting sei, direi forse Aruba visto la stringa... quindi non dovrebbero esserci problemi.

                  Quell'errore dovrebbe essere generato quando.

                  1. Il file potrebbe essere corrotto.
                  2. Il file è salvato magari in un formato non giusto, prova con mdb 2003.
                  3. Il percorso potrebbe essere sbagliato.

                  Prova con queste verifiche prima.

                  0 Miglior Risposta Ringrazia Cita Rispondi

                    1 Risposta Ultima Risposta
                  • marcocarrieri
                    marcocarrieri ModSenior • ultima modifica di

                    Su che hosting sei, direi forse Aruba visto la stringa... quindi non dovrebbero esserci problemi.

                    Quell'errore dovrebbe essere generato quando.

                    1. Il file potrebbe essere corrotto.
                    2. Il file è salvato magari in un formato non giusto, prova con mdb 2003.
                    3. Il percorso potrebbe essere sbagliato.

                    Prova con queste verifiche prima.

                    0 Miglior Risposta Ringrazia Cita Rispondi

                      1 Risposta Ultima Risposta
                    • P
                      partisan75 User • ultima modifica di

                      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 16

                      lalinea 16 è la seguente: vettore=rstmp.getrows

                      0 Miglior Risposta Ringrazia Cita Rispondi

                        1 Risposta Ultima Risposta
                      • marcocarrieri
                        marcocarrieri ModSenior • ultima modifica di

                        Ma non capisco chi richiami questo file aa.asp, il codice che ti ho fornito io no. Quindi dove?

                        0 Miglior Risposta Ringrazia Cita Rispondi

                          1 Risposta Ultima Risposta
                        • P
                          partisan75 User • ultima modifica di

                          Il codice che mi hai fornito è nella pagina denominata aa.asp, una semplice prova...

                          Hai qualche soluzione?

                          0 Miglior Risposta Ringrazia Cita Rispondi

                            1 Risposta Ultima Risposta
                          • marcocarrieri
                            marcocarrieri ModSenior • ultima modifica di

                            Proviamo cosi allora in quella riga scrivi cosi.

                            if not  rstmp.eof then
                               vettore=rstmp.getrows
                            end if
                            

                            Vediamo se cosi va.

                            0 Miglior Risposta Ringrazia Cita Rispondi

                              1 Risposta Ultima Risposta
                            • P
                              partisan75 User • ultima modifica di

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

                              0 Miglior Risposta Ringrazia Cita Rispondi

                                1 Risposta Ultima Risposta
                              • marcocarrieri
                                marcocarrieri ModSenior • ultima modifica di

                                Questo non so prova a vedere cosa ti da.

                                mydata = FormatDateTime(Now(),2)
                                responde.write "Data ==> " & mydata
                                
                                0 Miglior Risposta Ringrazia Cita Rispondi

                                  1 Risposta Ultima Risposta
                                • P
                                  partisan75 User • ultima modifica di

                                  Ecco l'esito

                                  Microsoft VBScript runtime error '800a01a8'
                                  Object required: 'responde' /ita/aaaa.asp, line 6

                                  e la linea 6 è questa: responde.write "Data ==> " & mydata

                                  0 Miglior Risposta Ringrazia Cita Rispondi

                                    1 Risposta Ultima Risposta
                                  • marcocarrieri
                                    marcocarrieri ModSenior • ultima modifica di

                                    Pardon ho scritto male, response non responde eh eh.
                                    Vedrai che ce la faremo. 😄

                                    0 Miglior Risposta Ringrazia Cita Rispondi

                                      1 Risposta Ultima Risposta
                                    • P
                                      partisan75 User • ultima modifica di

                                      Ragazzi quello che sto per scrivervi esula dalla ricerca del codice esatto...
                                      Ho appen comprato il macbook pro 13 pollici... eccezzionale.......

                                      0 Miglior Risposta Ringrazia Cita Rispondi

                                        1 Risposta Ultima Risposta
                                      • P
                                        partisan75 User • ultima modifica di

                                        Ragazzi non mi rendo conto come possa essere così complicata una funzione che apparentemente è semplice semplice!
                                        Qualcuno ha nuove idee?
                                        Grazie in anticipo!

                                        0 Miglior Risposta Ringrazia Cita Rispondi

                                          1 Risposta Ultima Risposta
                                        • P
                                          partisan75 User • ultima modifica di

                                          Ragazzi finalmente ci sono riuscito, grazie tantissimo a tutti siete stati gentilissimi oltremodo 😉

                                          0 Miglior Risposta Ringrazia Cita Rispondi

                                            1 Risposta Ultima Risposta
                                          • A
                                            atlas1965 User • ultima modifica di

                                            Ciao Partisan75,

                                            ho visto la tua discussione ed avrei anche io una situazione molto simile alla tua da risolvere ( controllo in automatico di una data e relativo invio di email ) per cui mi piacerebbe avere la soluzione finale .

                                            Grazie in anticipo .

                                            Saluti a tutti ,

                                            Paolo

                                            0 Miglior Risposta Ringrazia Cita Rispondi

                                              1 Risposta Ultima Risposta
                                            Caricamento altri post
                                            Rispondi
                                            • Topic risposta
                                            Effettua l'accesso per rispondere
                                            • Da Vecchi a Nuovi
                                            • Da Nuovi a Vecchi
                                            • Più Voti