cyrillic and cdonts

mike bayliss · May 28, 2004

HI
below is my asp form that collects fields from a web page encoded in windows-1251. I have a pretty smooth brain and cannot figure out how to get this script to send readable emails to the moscow address in windows-1251. Can anyone show me what the script should look like

<

ToEmail="(e-mail address removed)
CCEmail="(e-mail address removed)
FromEmail=Request.Form("email_address"
Subject="Moscow Request in russian

Message = Message & "Company Name:" & " " & Request.Form("Company_Name") & vblf
Message = Message & "Contact Name:" & " " & Request.Form("Contact_Name") & vblf
Message = Message & "Telephone:" & " " & Request.Form("Telephone") & vblf
Message = Message & "E-Mail:" & " " & Request.Form("email_address") & vblf
Message = Message & "Address:" & " " & Request.Form("Address") & vbl
Message = Message & "Country:" & " " & Request.Form("country")

Set CDONTSMail = CreateObject("CDONTS.NewMail"
CDONTSMail.From = FromEmai
CDONTSMail.To = ToEmai
CDONTSMail.Cc = CCEmai
CDONTSMail.Subject = Subjec
CDONTSMail.Body = Messag
CDONTSMail.MailFormat =

CDONTSMail.Sen
set CDONTSMail=nothin
Response.Redirect("a web page"

%><html><head><title>Send</TITLE></head><body bgcolor="#FFFFFF"></body></html>

Egbert Nierop \(MVP for IIS\) · May 28, 2004

mike bayliss said:
HI,
below is my asp form that collects fields from a web page encoded in

windows-1251. I have a pretty smooth brain and cannot figure out how to get
this script to send readable emails to the moscow address in windows-1251.
Can anyone show me what the script should look like?

Note that the script in vbscript in my case, needs to be saved as unicode.
For windows 1251 it needs to be saved as 1251...

Set mail = CreateObject("CDO.Message")
Set mailConfig = CreateObject("CDO.Configuration")
with mailConfig.fields
.item("http://schemas.microsoft.com/cdo/configuration/sendusing").value =2
.item("http://schemas.microsoft.com/cdo/configuration/smtpserver").value =
"192.168.0.7"
.update
End With

Set mail.Configuration = mailConfig
Mail.To = "(e-mail address removed)"
Mail.From = "(e-mail address removed)"
mail.Subject ="Ð¢ÐµÑÑ‚"
mail.textbody = "Ð´Ð° Ð²Ð° Ð»Ð° Ð»Ð° Ð»Ð°"
mail.bodypart.CharSet = "utf-8"

Mail.Send

compatible web farm Session replacement for Asp and Asp.Net
http://www.nieropwebconsult.nl/asp_session_manager.htm

<%

ToEmail="(e-mail address removed)"
CCEmail="(e-mail address removed)"
FromEmail=Request.Form("email_address")
Subject="Moscow Request in russian"

Message = Message & "Company Name:" & " " & Request.Form("Company_Name") & vblf
Message = Message & "Contact Name:" & " " & Request.Form("Contact_Name") & vblf
Message = Message & "Telephone:" & " " & Request.Form("Telephone") & vblf
Message = Message & "E-Mail:" & " " & Request.Form("email_address") & vblf
Message = Message & "Address:" & " " & Request.Form("Address") & vblf
Message = Message & "Country:" & " " & Request.Form("country")

Set CDONTSMail = CreateObject("CDONTS.NewMail")
CDONTSMail.From = FromEmail
CDONTSMail.To = ToEmail
CDONTSMail.Cc = CCEmail
CDONTSMail.Subject = Subject
CDONTSMail.Body = Message
CDONTSMail.MailFormat = 0

CDONTSMail.Send
set CDONTSMail=nothing
Response.Redirect("a web page")

%><html><head><title>Send</TITLE></head><body

bgcolor="#FFFFFF"></body></html>

CDONTS	5	Oct 6, 2004
cdosys cdonts question	4	Dec 6, 2006
CDONTS Problem	2	Sep 8, 2003
CDONTS !! Dynamic Data in email	6	Sep 13, 2004
Cyrillic web pages with Perl and MySQL	1	Nov 28, 2005
CDONTS works intermitantly	1	Jul 25, 2003
Converting CDONTS to CDO to send mail from a guestbook to me....	6	Jul 29, 2005
HTML message via CDONTS	1	Sep 9, 2003

cyrillic and cdonts

mike bayliss

Egbert Nierop \(MVP for IIS\)

Ask a Question

Similar Threads

Members online

Forum statistics

Latest Threads