problem med nyhedsbrev.asp
jeg har dette nyhedsbrev script.dette nyhedsbrev script bliver afviklet hos scannet.dk da hjemmesiden er hostet der.
Problemet er så nu, når der bliver sendt et nyhedsbrev, kan denne mail jeg motager ikke vise Æ-Ø eller Å. Andre nyhedsbreve som jeg er tilmeldtmodtager er der ikke noget problem med visning af æ ø å.
jeg har snakket med Scannet.dk og de kan godt modtage det samme nyhedsbrev med Æ Ø og Å
Jeg bruger Microsoft Outlook, og min Internet udbyder er Dansk Kabel tv
<!-- #include file="databaseforbindelse.asp"-->
<HTML>
<HEAD>
<TITLE>Mailingliste</TITLE>
</HEAD>
<BODY BGCOLOR="#FFFFFF" TEXT="#000000">
<%
if request("mode") = "send" then
'****** VÆLG PROGRAM TIL AT SENDE MAILEN ******
'1 = JMAIL
'2 = CDONTS
mailertype = 1
'**********************************************
'Set Conn = Server.CreateObject("ADODB.Connection")
'conn.Open "DBQ="&(Server.MapPath(".")) &" .\; DefaultDir=DBQ="&(Server.MapPath(".")) &"\;Driver={Microsoft Access Driver (*.mdb)};"
SQL = "SELECT * from mailingliste"
set send = conn.execute( SQL )
do while not send.eof
on error resume next
tekst = "<html><body><center><table border='0' width='650' cellpadding='0' cellspacing='0'><tr><td><img border='0' src='http://www.kornumgaard.dk/images/top.gif' width='650' height='90'></td></tr><tr><td bgcolor='#FFFFCC'>"
tekst = tekst + request.form("tekst")
tekst = tekst + "</td></tr><tr><td bgcolor='#CCFF66'> </td></tr></table></center></body></html>"
if mailertype = 1 then
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ContentType = "text/html"
' This is my local SMTP server
JMail.ServerAddress = "massmail.scannet.dk"
' mail config settings
JMail.Charset = "iso-8859-1"
JMail.ContentTransferEncoding = "8bit"
JMail.Sender = "kornumgaard@kornumgaard.dk"
JMail.Subject = "NYHEDSBREV FRA BØRNEHAVEN KORNUMGÅRD"
JMail.AddRecipient send("email")
JMail.Body = tekst
' 1 - highest priority (Urgent)
' 3 - normal
' 5 - lowest
JMail.Priority = 3
' Send it...
JMail.Execute
set JMail = nothing
elseif mailertype = 2 then
' importance = 0 ' lav
importance = 1 ' normal
' importance = 2 ' høj
Set mailObj = CreateObject("CDONTS.NewMail")
' send email med parametre : fra email, til email, header, besked, importance
mailObj.Send "afsenders emailadresse", send("email"), request("header"), tekst, importance
' slet reference til CDONTS object
Set mailObj = Nothing
end if
response.write "<FONT FACE='Arial' SIZE='2' COLOR='#000000'><STRONG>E-mail er sendt til : "& send("email") &"</STRONG></FONT><BR>"
send.movenext
loop
conn.close
response.redirect("default.asp?emne=pic")
else
%>
<CENTER>
<TABLE BORDER="0">
<form action="nyhedsbrev.asp" METHOD="POST">
<INPUT TYPE="hidden" NAME="mode" VALUE="send">
<TR>
<TD ALIGN="LEFT" class="nyhed">Overskrift: </TD>
<TD ALIGN="LEFT">
<INPUT TYPE="TEXT" NAME="header" SIZE="50">
</TD>
</TR>
<TR>
<TD ALIGN="RIGHT" VALIGN="TOP" class="nyhed">Tekst: </TD>
<TD ALIGN="LEFT">
<TEXTAREA COLS="45" ROWS="15" NAME="tekst"></TEXTAREA>
</TD>
</TR>
<TR>
<TD ALIGN="LEFT">
</TD>
<TD ALIGN="RIGHT"> <input type="submit" value="-- SEND --"> </TD>
</TR>
</FORM>
</TABLE>
</CENTER>
<% end if %>
</BODY>
</HTML>
