RE: Problem sending Chinese email through ASP

From: Mandar Date (mandar.date@patni.com)
Date: Mon Sep 20 2004 - 22:55:38 CDT

  • Next message: Doug Ewell: "Re: Saudi-Arabian Copyright sign"

    The problem go solved. I just added following code and it worked.

    Response.Codepage = 65001

    Response.Charset = "utf-8"

    -----Original Message-----
    From: unicode-bounce@unicode.org [mailto:unicode-bounce@unicode.org]On
    Behalf Of Mandar Date
    Sent: Monday, September 20, 2004 7:02 AM
    To: unicode@unicode.org
    Subject: Problem sending Chinese email through ASP

    Hi

    I am trying to send Chinese Email through ASP CODSYS object. I have set
    message encoding as UTF-8.
    But the email sent through the page is displaying garbage. The ASP code is
    as follows:

    Can anyone help me with this?

    Thanks and Regards,
    -Mandar Date

    <%@ Language=VBScript %>
    <HTML>
    <HEAD>
    <meta http-equiv="Content-Type" content="text/html; charset=utf-8">
    <META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
    </HEAD>
    <BODY>
    <form method=post>
    <input name=subject>
    <input name=message>
    <input name=posted type = submit value = 'Send'>
    <%
    dim iconf
    dim flds
    set iconf=server.CreateObject("CDO.Configuration")
    set flds=iconf.Fields
    flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1

    flds("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirecto
    ry") = "c:\inetpub\mailroot\pickup"

    flds("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    flds.update

    if request("posted") <> "" then
     Dim objMail
     Set objMail = Server.CreateObject("CDO.Message")
     objMail.Configuration=iconf
     objMail.From = "mandar.date@patni.com"
     objMail.To = "mandar.date@patni.com"
     objMail.cc = "mandar.date@gmail.com"
     objMail.bcc = "datemandar@yahoo.com;mandar.date@india.com"
     objMail.Subject = request("subject")
     objMail.BodyPart.Charset = "UTF-8"
     objMail.TextBody = request("message")
     objMail.Send
     Response.write "Message was sent with subject " & request("subject") & "
    and body " & request ("message")
    end if
    %>
    </form>
    </BODY>
    </HTML>

    http://www.patni.com
    World-Wide Partnerships. World-Class Solutions.
    _____________________________________________________________________

    This e-mail message may contain proprietary, confidential or legally
    privileged information for the sole use of the person or entity to whom this
    message was originally addressed. Any review, e-transmission dissemination
    or other use of or taking of any action in reliance upon this information by
    persons or entities other than the intended recipient is prohibited. If you
    have received this e-mail in error kindly delete this e-mail from your
    records. If it appears that this mail has been forwarded to you without
    proper authority, please notify us immediately at netadmin@patni.com and
    delete this mail.
    _____________________________________________________________________

    http://www.patni.com
    World-Wide Partnerships. World-Class Solutions.
    _____________________________________________________________________

    This e-mail message may contain proprietary, confidential or legally
    privileged information for the sole use of the person or entity to
    whom this message was originally addressed. Any review, e-transmission
    dissemination or other use of or taking of any action in reliance upon
    this information by persons or entities other than the intended
    recipient is prohibited. If you have received this e-mail in error
    kindly delete this e-mail from your records. If it appears that this
    mail has been forwarded to you without proper authority, please notify
    us immediately at netadmin@patni.com and delete this mail.
    _____________________________________________________________________



    This archive was generated by hypermail 2.1.5 : Mon Sep 20 2004 - 22:56:50 CDT