æ,ø,å i mail
Hej eksperterJeg har et forum som sender en mail når der bliver svaret på et indlæg, (som på eksperten.dk)files ser således ud:
<%
response.buffer = true
if Request.QueryString("id") ="" then
response.Redirect "default.asp"
end if
response.write "<html><head><title>Indlæg oprettes</title><link rel='stylesheet' href='../format.css' type='text/css'><BR><BR><BR><BR><BR><h1>Dine data behandles.</h1><BR><BR><h1>Vent venligst...</h1>"
Set objConn = Server.CreateObject("ADODB.Connection")
conStr = "Provider=Microsoft.Jet.OLEDB.4.0;"
%><!--#INCLUDE FILE="../include/db.inc" --><%
objConn.Open conStr
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "Select * from forumindlaeg where id = " & Request.QueryString("id") & ""
rs.Open sql, objConn, 1, 3
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.12tri.dk"
Mail.From = "Forum@12tri.dk"
Mail.FromName = "12TRi - Forum"
Mail.Subject = "12TRi: " & rs("overskrift")
Mail.Body = "Hej" & vbCrLf & vbCrLf & "Der er blevet svaret på indlægget: " & rs("overskrift") & vbCrLf & vbCrLf & "Du kan læse svaret på denne side: http://www.12tri.dk/forum/show.asp?id=" & rs("id") & vbCrLf & vbCrLf & "Venlig hilsen 12TRi"
sql = "Select * from forummail where indlaegid = " & Request.QueryString("id") & ""
Do While Not rs.EOF
Mail.AddAddress "" & rs("mail")
On Error Resume Next
Mail.Send
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
objconn.close
response.Redirect "" & Request.QueryString("url")
%>
Men jeg kan ikke få æ,ø,å til at blive vist i mailen, uanset om jeg bruger koder i stedet for æ,ø,å. Jeg vil helst undgå at bruge html-body
Hvad gør jeg
Morten // morten@12tri.dk
