problema caratteri x gestione newsletter
i caratteri è é ò à ù ì
a video si vedono bene ma se la pag è spedita via email questi caratteri si trasformano in ?
per quale motivo???
ho cercato ovunque nel forum ma non si è mai risolto questo grave problema
ecco quello che ho
pag newsletter
poi mi stampo a video quello che mi serve e si vedono bene tutti i carattericodice:<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
pag di invio
???codice:<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> <title>NEWSLETTER</title> </head> <body link="#990000" leftmargin="0" topmargin="0"> <% Dim rs, conn, sql Set rs = Server.CreateObject("ADODB.Recordset") Set conn=Server.CreateObject("ADODB.Connection") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("../../dbase/db.mdb") sql = "SELECT email FROM newsletter" rs.Open sql, conn x = 0 do until rs.eof x = x + 1 if x = 1 then bcc = rs("email") else bcc = bcc & ", " & rs("email") end if rs.moveNext loop rs.close Set rs = Nothing Set xml = Server.CreateObject("Microsoft.XMLHTTP") 'Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP") xml.Open "GET", "http://.......pag della newsletter...........", False xml.Send Dim miaMail Set miaMail = CreateObject("CDONTS.NewMail") miaMail.From = "info@sito.it" miaMail.To = "" miaMail.bcc = bcc miaMail.Subject = "newsletter" miaMail.BodyFormat = 0 miaMail.MailFormat = 0 miaMail.Importance = 0 miaMail.Body = xml.responseText miaMail.Send Set miaMail = Nothing Set xml = Nothing %> </body> </html>
Rispondi quotando
