X
xfile
Hi:
I am tring to send form result with CDOSYS, but I can't get it sent with
unicode message for objMail.HTMLBody
Can someone please help as I've tried many many suggestions from the net
including include a Code.Page as shown and also set the page properties to
Unicode (both the form page and this confirmation page both are ASP) but
none has worked
If someone entered a foreign words into the field, the email will turned to
"???"
Thanks so much.
----------------------
<% @Language="VBScript" @CodePage="65001" %>
<html>
<head>
<%
'Declare variables
Dim sMsg
Dim sTo
Dim sFrom
Dim sBCC
Dim sSubject
Dim sTextBody
Dim sHTMLBody
Dim sUserName
Dim sEmail
Dim varUserName
Dim varFirstName
Dim VarPassword
Dim varInfo_Shalom
Dim varInfo_Partner
'Get data from form page
sTo = Request.Form("UserName")
sFrom = "someone"
sBCC = "someone"
varUserName = Request.Form("UserName")
varFirstName = Request.Form("FirstName")
varPassword = Request.Form("Password")
varInfo_Shalom = Request.Form("Info_Shalom")
varInfo_Partner = Request.Form("Info_Partner")
'Only run this if it's not the first time
If Request.Form("Submit") <> "" Then
Dim objMail
'Create the mail object
Set objMail = Server.CreateObject("CDO.Message")
'Set key properties
objMail.From = sFrom
objMail.To = sTo
objMail.BCC = sBCC
objMail.Subject = "Test Result"
objMail.HTMLBody = "" & "<br />"_
& "Dear " & VBCrLf & varFirstName & ":" & "<br />"_
& "" & "<br />"_
& "Hello." & "<br />"_
& "" & "<br />"_
& "The following is test result: " & "<br />"_
& "" & "<br />"_
& "Your user name is: " & VBCrLf & varUserName & "<br />"_
& "Your password is: " & VBCrLf & varPassword & "<br />"_
& "Thank you" & "<br />"_
'Send the email
objMail.Send
'Clean-up
Set objMail = Nothing
End If
%>
I am tring to send form result with CDOSYS, but I can't get it sent with
unicode message for objMail.HTMLBody
Can someone please help as I've tried many many suggestions from the net
including include a Code.Page as shown and also set the page properties to
Unicode (both the form page and this confirmation page both are ASP) but
none has worked
If someone entered a foreign words into the field, the email will turned to
"???"
Thanks so much.
----------------------
<% @Language="VBScript" @CodePage="65001" %>
<html>
<head>
<%
'Declare variables
Dim sMsg
Dim sTo
Dim sFrom
Dim sBCC
Dim sSubject
Dim sTextBody
Dim sHTMLBody
Dim sUserName
Dim sEmail
Dim varUserName
Dim varFirstName
Dim VarPassword
Dim varInfo_Shalom
Dim varInfo_Partner
'Get data from form page
sTo = Request.Form("UserName")
sFrom = "someone"
sBCC = "someone"
varUserName = Request.Form("UserName")
varFirstName = Request.Form("FirstName")
varPassword = Request.Form("Password")
varInfo_Shalom = Request.Form("Info_Shalom")
varInfo_Partner = Request.Form("Info_Partner")
'Only run this if it's not the first time
If Request.Form("Submit") <> "" Then
Dim objMail
'Create the mail object
Set objMail = Server.CreateObject("CDO.Message")
'Set key properties
objMail.From = sFrom
objMail.To = sTo
objMail.BCC = sBCC
objMail.Subject = "Test Result"
objMail.HTMLBody = "" & "<br />"_
& "Dear " & VBCrLf & varFirstName & ":" & "<br />"_
& "" & "<br />"_
& "Hello." & "<br />"_
& "" & "<br />"_
& "The following is test result: " & "<br />"_
& "" & "<br />"_
& "Your user name is: " & VBCrLf & varUserName & "<br />"_
& "Your password is: " & VBCrLf & varPassword & "<br />"_
& "Thank you" & "<br />"_
'Send the email
objMail.Send
'Clean-up
Set objMail = Nothing
End If
%>