Solved

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

Posted on 2008-06-25
2
468 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

Better Security Awareness With Threat Intelligence

See how one of the leading financial services organizations uses Recorded Future as part of a holistic threat intelligence program to promote security awareness and proactively and efficiently identify threats.

Join & Write a Comment

This tutorial demonstrates one way to create an application that runs without any Forms but still has a GUI presence via an Icon in the System Tray. The magic lies in Inheriting from the ApplicationContext Class and passing that to Application.Ru…
Since .Net 2.0, Visual Basic has made it easy to create a splash screen and set it via the "Splash Screen" drop down in the Project Properties.  A splash screen set in this manner is automatically created, displayed and closed by the framework itsel…
When you create an app prototype with Adobe XD, you can insert system screens -- sharing or Control Center, for example -- with just a few clicks. This video shows you how. You can take the full course on Experts Exchange at http://bit.ly/XDcourse.
This video explains how to create simple products associated to Magento configurable product and offers fast way of their generation with Store Manager for Magento tool.

747 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

Need Help in Real-Time?

Connect with top rated Experts

11 Experts available now in Live!

Get 1:1 Help Now