Ekşi Duyuru

sevgili sözlükçüler html sayfada form un post fonksiyonuyla e posta göndermek istiyorum aşağıdaki kodla gönderilebiliyor ama türkçe karakterler çıkmıyor ve de satırbaşlarını nasıl <br /> ile değiştireceğimi bulamadım yardımınıza sığınıyorum, teşekkürler.

Not: Satırbaşı için de replace denedim ama gelmeden önce hem karakterler bozluyor hem de "\n" ler " "<buna dönüşüyor
__
<%
session.CodePage=1254
Const cdoSendUsingPickup = 1 'Send message using the local SMTP service pickup directory.
Const cdoSendUsingPort = 2 'Send the message using the network (SMTP over the network).

Const cdoAnonymous = 0 'Do not authenticate
Const cdoBasic = 1 'basic (clear-text) authentication
Const cdoNTLM = 2 'NTLM

Dim objMessage
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Iletisim Formu"
objMessage.Sender = "hede@hodo.com"
objMessage.From = "asd@asd.com
objMessage.To = "info@sitem.com"
objMessage.bodyPart.Charset = "utf-8"
objMessage.HTMLBody = "<b>Iletisim Formu:</b><br />Gönderen:" & request.form("Name") & " ( " & request.form("Email") & " )<br />Mesaj:<br />" & Replace(Replace(Replace(request.form("Text"), "ı", "i"), "ç", "c"),"ÄŸ","g")

objMessage.Configuration.Fields.Item _
("schemas.microsoft.com") = 2

'Name or IP of Remote SMTP Server
objMessage.Configuration.Fields.Item _
("schemas.microsoft.com") = "smtp.mysite.com"

'Type of authentication, NONE, Basic (Base64 encoded), NTLM
objMessage.Configuration.Fields.Item _
("schemas.microsoft.com") = cdoBasic

'Your UserID on the SMTP server
objMessage.Configuration.Fields.Item _
("schemas.microsoft.com") = "noreply@sitem.com"

'Your password on the SMTP server
objMessage.Configuration.Fields.Item _
("schemas.microsoft.com") = "sifremcokgizlixxxx"

'Server port (typically 25)
objMessage.Configuration.Fields.Item _
("schemas.microsoft.com") = 25

'Use SSL for the connection (False or True)
objMessage.Configuration.Fields.Item _
("schemas.microsoft.com") = False

'Connection Timeout in seconds (the maximum time CDO will try to establish a connection to the SMTP server)
objMessage.Configuration.Fields.Item _
("schemas.microsoft.com") = 60

objMessage.Configuration.Fields.Update
objMessage.Send
response.redirect("iletisim.htm")
%>
__