I'm new here, so don't be mad if there is already a solution for my problem.
Tnx ;))...
So, here it comes.
I administrate a portal where end user can register an upcoming event, and that registration form is sent to my mail (so I can authorize it).
I'm using a CDO.Message method and there is no problem with that...
The user fills out the form, sends it, and mail arrives in my mailbox.
The problem is, as it is a croatian portal, there are no croatian characters in the BODY of the email.
The thing I was surprised with is that there ARE croatian characters in the SUBJECT of the email (using the same field in the subject and later in the body), but later in the body no CRO characters...
I tried to change charsets from windows-1250, ISO latin 2 to UTF-8 but am getting the same results...CRO chars in subject, but none in the body...the only change is appearance of those substitutional characters...
Also i put an accept-charset option directly to the form, changing charsets, but no change.
Please help!!!
p.s. here is the code:
<%@ Language="VBscript" %>
<% Option Explicit %>
<%
dim sch, cdoConfig, cdoMessage
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item(sch & "sendusing") = 2 ' cdoSendUsingPort
.Item(sch & "smtpserver") = "mail.xxx.hr"
.update
End With
Set cdoMessage = CreateObject("CDO.Message")
With cdoMessage
Set .Configuration = cdoConfig
.From = "info@xxx.hr"
.To = "info@xxx.hr"
.Subject = "CakovecOnline.com - prijavljeno zbivanje - " & Request.Form("naziv")
.HTMLBody = "<b>Poslano:</b> " & FormatDateTime(now, 0) & "<br><br><b>Naziv:</b> " & Request.Form("naziv") & "<br><b>Datum:</b> " & Request.Form("datum") & "<br><b>Mjesto:</b> " & Request.Form("mjesto") & "<br><b>Vrijeme:</b> " & Request.Form("vrijeme") & "<br><b>Više o programu:</b> " & Request.Form("vise-o-programu") & "<br><br><b>Organizator:</b> " & Request.Form("organizator") & "<br><b>Web stranice:</b> " & Request.Form("web-stranice") & "<br><b>Pošiljatelj:</b> " & Request.Form("posiljatelj")
.Send
End With
Set cdoMessage = Nothing
Set cdoConfig = Nothing
response.redirect ("zbivanje-poslano.asp")
%>