Asp coderlerin dikkatine :(

Evet sonunda oldu çok teşekkür ederim.

Yalnız bi sorun var maillerde Türkçe karektar hatası oluşuyor bunu nasıl çözerim.

http://www.orucoglunakliyat.com/iletisim.asp

Türkçe karakter sadece başlıklarda çıkıyordur..
CDOSYS de bende bilmiyorum hiç denemedim

Linebilişimin verdiği kodlarda

mektup.HtmlBody kodunu bul

Altına

mektup.bodyPart.Charset = "windows-1254"

Ekle yine düzelmez ise iletişim formuna ( Yani kişinin bilgileri girdiği sayfanın en üstüne )

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1254"%>

Ekle iyi çalışmalar

İki yoluda denedim ama olmadı.

<% Response.CharSet ="windows-1254" %>

sayfalarının üst kısımlarına bu kodu eklermisin...
Yine olmazsa kodları gönder hallederiz..

Dosya ektedir.Şimdiden teşekkür ederim.

Arkadaşın mail formu gibi aynı şekilde ama tek dosya ile yapma şansımız varmı asp'de?
yani iletisim.asp olacak gonder.asp olmayak hepsini tek sayfada kontrol edecek ve gönderecek . mümkün mü acaba bu şekilde ?

evet mümkün asp sitelerinde veya r10'da sub yordamını araştırırsan istediğini yapabilirsin


dosya ekte indirip denermisin

<%
if (Request.QueryString("go"))="iletisim" Then

isim=Request.Form("NAME")
email=Request.Form("MAIL")
mesaj=Request.Form("MESSAGE")
kime="gidecekmail@mail.com" ' Formda oluşturulan mailin kime gideceğini belirten mail adresi
konu="Online İletişim Formu" ' Gönderilen mailde Subject kısmında yazacak metin
Set mektup = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
' konfigürasyon satırlarımız
objCDOSYSCon.Fields ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = "25"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objCDOSYSCon.Fields.Update
Set mektup.Configuration = objCDOSYSCon
mektup.From = email
mektup.To = kime
mektup.Subject = konu ' formdan aldığımız konu değişkeni
mektup.HtmlBody = mesaj
On Error Resume Next
mektup.Send
If Err <> 0 Then ' Eğer bir hata varsa hatayı yazdırıyoruz
 Response.Write "Sistem Hatası: " & Err.Description
 Response.Write "<br><a href=""iletisim.asp"">Geri Dön</a>"
Else ' sorun yok ve mail gönderildi ise kullanıcıya ilgili mesajı yazdırıyoruz
 Response.Write "<br><br><br><font color=#000099>Mesajınız Alınmıştır.</font><br>"
 Response.Write "<font color=#000099>En Kısa Zamanda Cevap Verilecektir.</font>"
 Response.Write "<br><a href=""iletisim.asp"">Geri Dön</a>"
End If
Set mektup = Nothing
Set objCDOSYSCon = Nothing
Else
%>
<title>İletişim</title>
<table><tr><td colspan="2"></head><h2>İletişim Formu</h2></td></tr>
<tr><td>
<form action="?go=iletisim" method="post">
İsminiz:</td><td><input type="text" name="isim" /></td></tr>
<tr><td>Mail Adresiniz:</td><td><input type="text" name="mail" /><br /></td></tr>
<tr><td>Mesajınız:</td><td><textarea name="message"></textarea><br /></td></tr>

<tr><td colspan="2"><input type="submit" value="Gönder" /></td></tr>
</form></table>
<%End if%>

bunu dene bakalım