• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 514
  • Last Modified:

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

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
Tblasters
Asked:
Tblasters
1 Solution
 
Bob LearnedCommented:
Try this:

        Dim writer As New StreamWriter(mStream, Encoding.Default)
0
 
TblastersAuthor Commented:
Thanks, that works like a charm!
0

Featured Post

Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Tackle projects and never again get stuck behind a technical roadblock.
Join Now