Форум Сайтостроение Веб-строительство

помогите разобраться с ASP

ABS
На сайте с 04.06.2006
Offline
58
ABS
872

Может, есть люди, кто разбирается хоть немного в ASP?

Никак не могу настроить отправку формы с сайта по почте :( не могу разобраться с кодировками.

Откликнитесь, профи!

dkameleon
На сайте с 09.12.2005
Offline
386
dkameleon
#1

можно подробнее, в чём именно проблема? какие-то особенности формы?

когда-то делал так:


Sub SendMailCDO(aTo, Subject, TextBody, aFrom)
  Const cdoOutlookExvbsss = 2
  Const cdoIIS = 1
  Dim Msg
  'Create CDO message object
  Set Msg = CreateObject("CDO.Message")
  With Msg
    'Load IIS configuration
    .Configuration.Load cdoIIS
    'Set email adress, subject And body
    .To = aTo
    .Subject = Subject
    .TextBody = TextBody
    'Set sender address If specified.
    If Len(aFrom) > 0 Then .From = aFrom
    'Send the message
    .Send
  End With
End Sub

if u_notifyemail then Call SendMailCDO(u_email, title, textBody, from)

с кодировками проблем не возникало. Но всё было заточено под центральную европу - и сервер и кодировка сайта.

Дизайн интерьера (http://balabukha.com/)
ABS
На сайте с 04.06.2006
Offline
58
ABS
#2

проблема в следующем: есть небольшая анкетка, которая должна быть заполнена и отослана на почту.

везде стоит кодировка UTF-8 (вроде как и приходить письмо должно в ней же) Га сайте все хорошо читается, а вот на почту приходит письмо с заголовком

Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 7bit

Но в теле письма - кодировка проставлена UTF-8 и все отображается знаками вопроса :(

облазил уже весь сайт :( не могу ничего решить :(

ABS
На сайте с 04.06.2006
Offline
58
ABS
#3

А сама функция - вот :(

Function SendEmail( sSMTP, sTo, sFrom, sSubject, sBody )

Dim oMail
Dim oConfig, sSchema

sSchema = "http://schemas.microsoft.com/cdo/configuration/"
Set oConfig = Server.CreateObject( "CDO.Configuration" )
oConfig.Fields.Item( sSchema & "sendusing" ) = 2
oConfig.Fields.Item( sSchema & "smtpserver" ) = sSMTP
oConfig.Fields.Update

' Response.Write( "From: " + sFrom ) + "<br />"
' Response.Write( "To: " + sTo ) + "<br />"
' Response.Write( "Subject: " + sSubject ) + "<br />"
' Response.Write( "Body: " + sBody ) + "<br />"

Set oMail = Server.CreateObject( "CDO.Message" )
set oMail.Configuration = oConfig
oMail.From = sFrom
oMail.To = sTo
oMail.BCC = "***@***"
oMail.Subject = sSubject
oMail.HTMLBody = sBody
oMail.BodyPart.Charset = "UTF-8"
oMail.Send

set oMail = nothing
set oConfig = nothing

end function
dkameleon
На сайте с 09.12.2005
Offline
386
dkameleon
#4

Тут немного по другому выставляется кодировка и трансфер энкодинг:

http://www.thescripts.com/forum/thread288792.html

http://www.motobit.com/tips/detpg_quoted-printable-decode/

Ещё вариант здесь:

http://www.htmlforums.com/archive/index.php/t-54753.html

или вот:

http://www.systemwebmail.com/faq/3.1.aspx

ABS
На сайте с 04.06.2006
Offline
58
ABS
#5

dkameleon, Спасибо за ссылочки - буду разбираться (жаль, что я ламер полный) не могу понять нифига в этом ASP ничего :(

A
На сайте с 23.10.2003
Offline
196
absolut
#6

Значит пора переходить на php :)

андроид ТВ (http://qway.com.ua/android_tv) и экшн камеры (qway.com.ua/action-cameras) в Украине.
ABS
На сайте с 04.06.2006
Offline
58
ABS
#7

absolut, да сто лет не занимался бы ASP, просто знакомый попросил помочь (ему почему то кажется, что я это умею и разубедить его в этом не удалось) вот и мучаюсь. То что PHP - рулит! никто и не сомневается)))

Как отследить источник запросов Яндекс кобласит Упал доход
ABS
На сайте с 04.06.2006
Offline
58
ABS
#8

Уррряяя))) наконец то помогли с решением. спасибо всем за помощь. Забыл дописать две строчки всего а столько проблем :(((

oMail.HtmlBodyPart.Charset = "UTF-8"
oMail.HtmlBodyPart.ContentMediaType = "text/html; charset=UTF-8"

Авторизуйтесь или зарегистрируйтесь, чтобы оставить комментарий