21 dicembre 2003 alle 11:29:58 Vorrei tanto personalizzare la newsletter del mio sito ma non riesco a mettere il logo e lo sfondo uguale a quello del mio sito. Vi prego aiutamemi: If IsAuthorized(ROLE_USER) then Dim oCn, oRs, rSQL, myMail, message, subject, data, n, HTML
n=0 data = Request.Form("date") subject = Request.Form("subject") message = Request.Form("message")
Set oCn = DBConnexion(DB_MAIN)
Dim destinatario, tipo
tipo = Request.Form("formato") destinatario = Request.Form("invio")
'Filtro la query in base al destinatario selezionato nel form di spedizione
If destinatario = "webmaster" then rSQL = "SELECT uEmail from users WHERE uROLE=3" Else rSQL = "SELECT uEmail from users WHERE uNewsletter=True AND uValid=True" End If Set oRs = DBRecordSet(oCn, rSQL)
If tipo = "personalizzato" then
'Formato di invio newsletter personalizzato. Il codice sottostante mostra l'esempio 'della newsletter ma è facilmente editabile per personalizzarlo con lo stile 'e il logo del proprio sito, facendo attenzione a mantenere la stressa struttura e la stessa 'valorizzazione della veriabile HTML.
HTML = "<html>" HTML = HTML & "<head>" HTML = HTML & "<title>La Newsletter di " & GLOBAL_SITE_NAME & "</title>" HTML = HTML & "</head>" HTML = HTML & "<body bgcolor=""#CCCCCC"" leftmargin=""5"" topmargin=""5"">" HTML = HTML & " <table summary="""" border=""0"" bgcolor=""#000000"" cellspacing=""1"" cellpadding=""0"" width=""760"" height=""100%"">" HTML = HTML & " <tr>" HTML = HTML & " <td bgcolor=""#FFFFFF"" width=""760"" align=""left"">" HTML = HTML & " <a href=""" & GLOBAL_SITE_PATH & """><img src=""" & GLOBAL_SITE_THEMES_PATH & "imgs/nat14.gif"" border=""0"" alt=""Vai a " & GLOBAL_SITE_NAME & "http://www.adisabaselice.it""></a></td>" HTML = HTML & " </tr>" HTML = HTML & " <tr>" HTML = HTML & " <td bgcolor=""#CCCCCC"" width=""760"" height=""10"" align=""right""><font face=""Verdana"" size=""2"" color=""#FFFFFF"">Newsletter del "& data &"</font></td>" HTML = HTML & " </tr>" HTML = HTML & " <tr>" HTML = HTML & " <td bgcolor=""#ffffff"" width=""760"" height=""100%"">" HTML = HTML & " <table summary="" border=""0"" cellpadding=""10"" align=""center"" width=""740"" height=""100%"">" HTML = HTML & " <tr>" HTML = HTML & " <td valign=""top""><font face=""Verdana"" size=""2"" color=""#000000"">" & Text2HTML(message) & "</font></td>" HTML = HTML & " </tr>" HTML = HTML & " </table>" HTML = HTML & " </td>" HTML = HTML & " </tr>" HTML = HTML & " <tr>" HTML = HTML & " <td width=""760"" height=""20"" align=""center""><font face=""Verdana"" size=""1"" color=""#FFFFFF"">Tutti i diritti riservati " & GLOBAL_SITE_COPYRIGHT & "</font></td>" HTML = HTML & " </tr>" HTML = HTML & " </table>" HTML = HTML & "</body>" HTML = HTML & "</html>"
Else 'Formato d'invio newsletter Standard (default) puramente testuale e senza grafica
HTML = "<html><body>"& subject &" del "& data &"<br><br>"& Text2HTML(message) &"</body></html>"
End If
If len(message) Then While Not oRs.EOF Set myMail = CreateObject("CDONTS.NewMail") myMail.From = "" & GLOBAL_SITE_EMAIL & "" myMail.To = oRs("uEmail") myMail.Subject = subject myMail.BodyFormat = 0 myMail.MailFormat = 0 myMail.Body = HTML myMail.Send Set myMail = Nothing n=n+1 oRs.MoveNext Wend 'Response.Write "Emails sent to " & n & " users." 'Response.Write rSQL Response.redirect "newsletter_report.asp?n="&n&"&data="&data&"&subject="&subject&"&destinatario="&destinatario&"&tipo="&tipo&"" oRs.Close Set oRs = Nothing Else Response.Redirect "mail.asp" End If End If %>
21 dicembre 2003 alle 11:52:21 Se per lo sfondo intendi la parte alta del tuo portale dove c'è la presentazione... allora il codice del colore che siavvicina di più è: #CECBD6 (tieni conto che ogni programma di grafica visualizza i colori in maniera leggermente diversa), per il logo, hai inserito la costante: <img src=""" & GLOBAL_SITE_THEMES_PATH & "imgs/nat14.gif"".... ma, credo che il logo tu l'abbia in un'altra cartella, magari in /THEMES/DEFAULT/, se così fosse, togli dalla costante imgs/ e lascia solo il nome del file gif, oppure al contrario, se il logo è in una cartella diversa, modifica img src=""imgs/nat14.gif"" togliendo quindi la costante globale che non ti serve. Ciauzz DJ
--------------- A lavare la testa ai somari, ci si rimette l'acqua e il sapone!
21 dicembre 2003 alle 11:55:27 Per personalizzare la lettera devi solo apportare modifiche nella parte del HTML = "...." Potresti farti separatamente una pagina html come la desideri (ad esempio con frontpage) e poi ricopiare tutte le righe di codice da
HTML = "<html>" a HTML = HTML & "</html>"
21 dicembre 2003 alle 14:20:26 Modificato il 21 dicembre 2003 alle 14:35:00L'ho cambiato così ma non mi appare di nuovo nulla, mi apare il simbolo dell'immagine mancante!!!!
Vi prego aiutatemi, ma se lo faccio mettendo a posto del html i codici di una pagina già preparata non è che non va bene???
If IsAuthorized(ROLE_USER) then Dim oCn, oRs, rSQL, myMail, message, subject, data, n, HTML
n=0 data = Request.Form("date") subject = Request.Form("subject") message = Request.Form("message")
Set oCn = DBConnexion(DB_MAIN)
Dim destinatario, tipo
tipo = Request.Form("formato") destinatario = Request.Form("invio")
'Filtro la query in base al destinatario selezionato nel form di spedizione
If destinatario = "webmaster" then rSQL = "SELECT uEmail from users WHERE uROLE=3" Else rSQL = "SELECT uEmail from users WHERE uNewsletter=True AND uValid=True" End If Set oRs = DBRecordSet(oCn, rSQL)
If tipo = "personalizzato" then
'Formato di invio newsletter personalizzato. Il codice sottostante mostra l'esempio 'della newsletter ma è facilmente editabile per personalizzarlo con lo stile 'e il logo del proprio sito, facendo attenzione a mantenere la stressa struttura e la stessa 'valorizzazione della veriabile HTML.
HTML = "<html>" HTML = HTML & "<head>" HTML = HTML & "<title>La Newsletter di " & GLOBAL_SITE_NAME & "</title>" HTML = HTML & "</head>" HTML = HTML & "<body bgcolor=""#CCCCCC"" leftmargin=""5"" topmargin=""5"">" HTML = HTML & " <table summary="""" border=""0"" bgcolor=""#000000"" cellspacing=""1"" cellpadding=""0"" width=""760"" height=""100%"">" HTML = HTML & " <tr>" HTML = HTML & " <td bgcolor=""#FFFFFF"" width=""760"" align=""left"">" HTML = HTML & " <a href=""" & GLOBAL_SITE_PATH & """><img src=""www.adisabaselice.it/imgs/nat14.gif"" border=""0"" alt=""Vai a ""http://www.adisabaselice.it""></a></td>" HTML = HTML & " </tr>" HTML = HTML & " <tr>" HTML = HTML & " <td bgcolor=""#CCCCCC"" width=""760"" height=""10"" align=""right""><font face=""Verdana"" size=""2"" color=""#FFFFFF"">Newsletter del "& data &"</font></td>" HTML = HTML & " </tr>" HTML = HTML & " <tr>" HTML = HTML & " <td bgcolor=""#ffffff"" width=""760"" height=""100%"">" HTML = HTML & " <table summary="" border=""0"" cellpadding=""10"" align=""center"" width=""740"" height=""100%"">" HTML = HTML & " <tr>" HTML = HTML & " <td valign=""top""><font face=""Verdana"" size=""2"" color=""#000000"">" & Text2HTML(message) & "</font></td>" HTML = HTML & " </tr>" HTML = HTML & " </table>" HTML = HTML & " </td>" HTML = HTML & " </tr>" HTML = HTML & " <tr>" HTML = HTML & " <td width=""760"" height=""20"" align=""center""><font face=""Verdana"" size=""1"" color=""#FFFFFF"">Tutti i diritti riservati " & GLOBAL_SITE_COPYRIGHT & "</font></td>" HTML = HTML & " </tr>" HTML = HTML & " </table>" HTML = HTML & "</body>" HTML = HTML & "</html>"
Else 'Formato d'invio newsletter Standard (default) puramente testuale e senza grafica
HTML = "<html><body>"& subject &" del "& data &"<br><br>"& Text2HTML(message) &"</body></html>"
End If
If len(message) Then While Not oRs.EOF Set myMail = CreateObject("CDONTS.NewMail") myMail.From = "" & GLOBAL_SITE_EMAIL & "" myMail.To = oRs("uEmail") myMail.Subject = subject myMail.BodyFormat = 0 myMail.MailFormat = 0 myMail.Body = HTML myMail.Send Set myMail = Nothing n=n+1 oRs.MoveNext Wend 'Response.Write "Emails sent to " & n & " users." 'Response.Write rSQL Response.redirect "newsletter_report.asp?n="&n&"&data="&data&"&subject="&subject&"&destinatario="&destinatario&"&tipo="&tipo&"" oRs.Close Set oRs = Nothing Else Response.Redirect "mail.asp" End If End If %>
21 dicembre 2003 alle 15:20:06 Modificato il 21 dicembre 2003 alle 15:21:15Questa riga di codice contiene 1 errore di fondo, se c'è già il GLOBAL_SITE_PATH, non devi inserire l'indirizzo del sito, ( inoltre, per funzionare deve contenere anche HTTP:// ):
HTML = HTML & " <a href=""" & GLOBAL_SITE_PATH & """><img src=""www.adisabaselice.it/imgs/nat14.gif"" border=""0"" alt=""Vai a ""http://www.adisabaselice.it""></a></td>"
Basta scrivere così:
HTML = HTML & " <a href=""" & GLOBAL_SITE_PATH & """><img src=""imgs/nat14.gif"" border=""0"" alt=""Vai a http://www.adisabaselice.it""></a></td>"
Ciauzz DJ
--------------- A lavare la testa ai somari, ci si rimette l'acqua e il sapone!
21 dicembre 2003 alle 15:39:46 Grazie del tuo aiuto veramente grazie, ma stavo provando creando una pagina html e inserendo il codice ma ho dei problemi seri l'ho inserito ma ora mi da errore. Il codice che ho generato per modificare l'email è questo ( ora è settato in localhost dopo lo cambio ): <html>
</html> ___________________________________________________________ Come lo devo inserire nel file go_newsletter.asp perchè funzioni?????? ( l'ho fatto così perchè è più personalizzabile, ma se le stringhe di codice html non si mettono bene generano errori.
21 dicembre 2003 alle 20:25:47 Devi seguire le indicazioni del file go_newsletter, il tuo codice, va inserito seguendo il costrutto: HTML = "<html>" HTML = HTML & "<head>"...... così per tutte le righe di codice che hai preparato. Ciauzz DJ
--------------- A lavare la testa ai somari, ci si rimette l'acqua e il sapone!
22 dicembre 2003 alle 10:59:41 scusa ma non ti capisco da dove prendo le indicazioni dove inserirlo se non c'è niente che mi aiuti in questo, parlo di termini uguali nel file go-newsletter.asp
22 dicembre 2003 alle 11:14:32 Il codice go-newsletter è tutto commentato, infatti, se leggi il tuo precedente post, vedrai che ci sono delle righe di commento, segui quelle, e inserisci il tuo codice al posto di quello originale, la strattura del file non può essere modificata altrimenti non funziona più, però, il codice originale non da assolutamente problemi, dovevi solo modificare il path dell'immagine.... Ciauzz DJ
--------------- A lavare la testa ai somari, ci si rimette l'acqua e il sapone!
Anna
Versione stampabile | Questa pagina è stata eseguita in 0,328125 secondi.
MODULI AGGIUNTIVI
Problemi con go_newsletter.asp
21 dicembre 2003 alle 11:29:58 
21 dicembre 2003 alle 11:52:21 
![[lo]](/smileys/coucou.gif)