Solved

æ ø å Æ Ø Å change into .æ ø Ã¥ à  ÃÜ Ã ¿½

Posted on 2008-06-25
2
475 Views
Last Modified: 2008-06-25
I'm trying to create a vcs file on the fly and submit it to the user. This works fine but when opening the file in Outlook then characters like æ ø å Æ Ø Å are change into æ ø Ã¥ à  ÃÜ Ã ¿½ characters.

I'm opening the file with the following url:
name.aspx?Dato=11/02/2009&Subject=æ_ø_å&body=Æ_ø_Å

How do I get the characters to be displayed as they should?
<%@ Page Language="vb" ContentType="text/html" 
    ResponseEncoding="ISO-8859-1" Debug="False" trace="False"%>
<%@ import Namespace="System.IO" %>
 
<script runat="server"> 
Sub Page_Load(Sender As Object, E As EventArgs) 
 
 'PARAMETERS
   Dim beginDate as Date = Request("Dato")
   Dim endDate as Date  = Request("Dato")
   Dim myLocation as String = ""
   Dim mySubject as String = Request("Subject"))
   Dim myDescription as String = Request("body") & "æ ø å Æ Ø Å"
 
 'INITIALIZATION
   Dim mStream As new MemoryStream()
   Dim writer As new StreamWriter(mStream)
   writer.AutoFlush = true 
 'HEADER
   writer.WriteLine("BEGIN:VCALENDAR")
   writer.WriteLine("PRODID:-//Flo Inc.//FloSoft//EN")
   writer.WriteLine("BEGIN:VEVENT") 
 'BODY
   writer.WriteLine("DTSTART:" & _
            beginDate.ToUniversalTime.ToString("yyyyMMdd\THHmmss\Z") )
   writer.WriteLine("DTEND:" & _
           endDate.ToUniversalTime.ToString("yyyyMMdd\THHmmss\Z") )
   writer.WriteLine("LOCATION:" & myLocation)
   writer.WriteLine("DESCRIPTION;ENCODING=QUOTED-PRINTABLE:" & myDescription)
   writer.WriteLine("SUMMARY:" & mySubject) 
 'FOOTER
   writer.WriteLine("PRIORITY:3")
   writer.WriteLine("END:VEVENT")
   writer.WriteLine("END:VCALENDAR") 
 'MAKE IT DOWNLOADABLE
   Response.Clear() 'clears the current output content from the buffer
   Response.AppendHeader("Content-Disposition", _
            "attachment; filename=Appointment.vcs")
   Response.AppendHeader("Content-Length", mStream.Length.ToString())
   Response.ContentType = "application/download"
   Response.BinaryWrite(mStream.ToArray())
   Response.End() 
End Sub
</script>

Open in new window

0
Comment
Question by:Tblasters
2 Comments
 
LVL 96

Accepted Solution

by:
Bob Learned earned 500 total points
ID: 21864666
Try this:

        Dim writer As New StreamWriter(mStream, Encoding.Default)
0
 

Author Comment

by:Tblasters
ID: 21864916
Thanks, that works like a charm!
0

Featured Post

ScreenConnect 6.0 Free Trial

Check out the updates in one game-changing release, ScreenConnect 6.0, based on partner feedback. New features include a redesigned UI that improves session organization and overall user experience. See the enhancements for yourself!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Well, all of us have seen the multiple EXCEL.EXE's in task manager that won't die even if you call the .close, .dispose methods. Try this method to kill any excels in memory. You can copy the kill function to create a check function and replace the …
The ECB site provides FX rates for major currencies since its inception in 1999 in the form of an XML feed. The files have the following format (reducted for brevity) (CODE) There are three files available HERE (http://www.ecb.europa.eu/stats/exch…
This Micro Tutorial will teach you how to censor certain areas of your screen. The example in this video will show a little boy's face being blurred. This will be demonstrated using Adobe Premiere Pro CS6.
Nobody understands Phishing better than an anti-spam company. That’s why we are providing Phishing Awareness Training to our customers. According to a report by Verizon, only 3% of targeted users report malicious emails to management. With compan…

770 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question