Form Mail Konusunda yardımınıza ihtiyacım var.

arkadaşlar ekteki dosyada bi formmail war şuan cdonts kullanıyor bunu jmail yada cydosys (host bunları destekliyormuş) la nasıl kullanabilirim.

yardımcı olurmusunuz.

<%
isim_soyisim = request.form("isim_soyisim")
telefon = request.form("telefon")
fax = request.form("fax")
email = request.form("email")
arac = request.form("arac")
baslangic_gun = request.form("baslangic_gun")
baslangic_ay = request.form("baslangic_ay")
baslangic_yil = request.form("baslangic_yil")
baslangic_yer = request.form("baslangic_yer")
bitis_gun = request.form("bitis_gun")
bitis_ay = request.form("bitis_ay")
bitis_yil = request.form("bitis_yil")
bitis_yer = request.form("bitis_yer")
gelis_yeri = request.form("gelis_yeri")
gelis_saat = request.form("gelis_saat")
gidis_saat = request.form("gidis_saat")
havayolu = request.form("havayolu")
ehliyet_no = request.form("ehliyet_no")
ehliyet_yer = request.form("ehliyet_yer")
ehliyet_gun = request.form("ehliyet_gun")
ehliyet_ay = request.form("ehliyet_ay")
ehliyet_yil = request.form("ehliyet_yil")
odeme_tipi = request.form("odeme_tipi")
notice = request.form("notice")
 

Dim ileti
Set Postaci=Server.CreateObject("CDONTS.NewMail")
Postaci.To="mail@mail.com"
Postaci.Bcc="mail@mail.com"
Postaci.From=Request.Form("email")
Postaci.Subject="RENT A CAR FORM"
ileti=ileti&" "& chr(10)
ileti=ileti &"KİMLİK BİLGİSİ "& chr(10)
ileti=ileti&" "& chr(10) 
ileti=ileti &" İSİM SOYİSİM: "& isim_soyisim &" "& chr(10) 
ileti=ileti &" TELEFON NO: "& telefon &" "& chr(10) 
ileti=ileti &" FAX NO: "& fax &" "& chr(10)
ileti=ileti &" EMAIL: "& email &" "& chr(10) 
ileti=ileti&" "& chr(10)
ileti=ileti &"KİRALAMA BİLGİLERİ "& chr(10)
ileti=ileti&" "& chr(10) 
ileti=ileti &" ARAÇ: "& arac &" "& chr(10) 
ileti=ileti &" BAŞLANGIÇ GÜNÜ: "& baslangic_gun &" "& chr(10) 
ileti=ileti &" BAŞLANGIÇ AY: "& baslangic_ay &" "& chr(10)
ileti=ileti &" BAŞLANGIÇ YIL: "& baslangic_yil &" "& chr(10)
ileti=ileti &" BAŞLANGIÇ YERİ: "& baslangic_yer &" "& chr(10)
ileti=ileti &" BİTİŞ GÜNÜ: "& bitis_gun &" "& chr(10) 
ileti=ileti &" BİTİŞ AY: "& bitis_ay &" "& chr(10)
ileti=ileti &" BİTİŞ YIL: "& bitis_yil &" "& chr(10)
ileti=ileti &" BİTİŞ YERİ: "& bitis_yer &" "& chr(10)
ileti=ileti &" GELİŞ YERİ: "& gelis_yer &" "& chr(10)
ileti=ileti &" GELİŞ SAATİ: "& gelis_saat &" "& chr(10)
ileti=ileti &" HAVAYOLU FİRMASI: "& havayolu &" "& chr(10)
ileti=ileti &" EHLİYET NO: "& ehliyet_no &" "& chr(10)
ileti=ileti &" EHLİYET ALINMA YERİ: "& ehliyet_yer &" "& chr(10)
ileti=ileti &" EHLİYET ALINMA TARİHİ GÜN : "& ehliyet_gun &" "& chr(10)
ileti=ileti &" EHLİYET ALINMA TARİHİ AY : "& ehliyet_ay &" "& chr(10)
ileti=ileti &" EHLİYET ALINMA TARİHİ YIL : "& ehliyet_yil &" "& chr(10)
ileti=ileti&" "& chr(10)  
ileti=ileti &"ÖDEME BİLGİSİ "& chr(10)
ileti=ileti&" "& chr(10) 
ileti=ileti &" ÖDEME TİPİ: "& odeme_tipi &" "& chr(10) 
ileti=ileti&" "& chr(10)  
ileti=ileti &"İSTEKLERİNİZ "& chr(10)
ileti=ileti&" "& chr(10) 
ileti=ileti &" NOT: "& notice &" "& chr(10)
ileti= "IP No:" & Request.ServerVariables("REMOTE_ADDR") & Chr(13) & ileti
response.write(ileti)
Postaci.Body=ileti
Postaci.Send
Set Postaci=nothing
response.redirect "ok.asp"
%><p>En kısa Sürede Sizinle </p>

Sayın diskjokey85; aşagıda sizin kosunuzu cdosys ye göre uyarladım. Deneme fırsatım olmadı ama çalışacağına eminim.

<%
kimden =Request.Form("email")
kime="size@mail.com"
konu="RENT A CAR FORM"
isim_soyisim = request.form("isim_soyisim")
telefon = request.form("telefon")
fax = request.form("fax")
email = request.form("email")
arac = request.form("arac")
baslangic_gun = request.form("baslangic_gun")
baslangic_ay = request.form("baslangic_ay")
baslangic_yil = request.form("baslangic_yil")
baslangic_yer = request.form("baslangic_yer")
bitis_gun = request.form("bitis_gun")
bitis_ay = request.form("bitis_ay")
bitis_yil = request.form("bitis_yil")
bitis_yer = request.form("bitis_yer")
gelis_yeri = request.form("gelis_yeri")
gelis_saat = request.form("gelis_saat")
gidis_saat = request.form("gidis_saat")
havayolu = request.form("havayolu")
ehliyet_no = request.form("ehliyet_no")
ehliyet_yer = request.form("ehliyet_yer")
ehliyet_gun = request.form("ehliyet_gun")
ehliyet_ay = request.form("ehliyet_ay")
ehliyet_yil = request.form("ehliyet_yil")
odeme_tipi = request.form("odeme_tipi")
notice = request.form("notice") 
Dim ileti
ileti=ileti&" "& chr(10)
ileti=ileti &"KİMLİK BİLGİSİ "& chr(10)
ileti=ileti&" "& chr(10) 
ileti=ileti &" İSİM SOYİSİM: "& isim_soyisim &" "& chr(10) 
ileti=ileti &" TELEFON NO: "& telefon &" "& chr(10) 
ileti=ileti &" FAX NO: "& fax &" "& chr(10)
ileti=ileti &" EMAIL: "& email &" "& chr(10) 
ileti=ileti&" "& chr(10)
ileti=ileti &"KİRALAMA BİLGİLERİ "& chr(10)
ileti=ileti&" "& chr(10) 
ileti=ileti &" ARAÇ: "& arac &" "& chr(10) 
ileti=ileti &" BAŞLANGIÇ GÜNÜ: "& baslangic_gun &" "& chr(10) 
ileti=ileti &" BAŞLANGIÇ AY: "& baslangic_ay &" "& chr(10)
ileti=ileti &" BAŞLANGIÇ YIL: "& baslangic_yil &" "& chr(10)
ileti=ileti &" BAŞLANGIÇ YERİ: "& baslangic_yer &" "& chr(10)
ileti=ileti &" BİTİŞ GÜNÜ: "& bitis_gun &" "& chr(10) 
ileti=ileti &" BİTİŞ AY: "& bitis_ay &" "& chr(10)
ileti=ileti &" BİTİŞ YIL: "& bitis_yil &" "& chr(10)
ileti=ileti &" BİTİŞ YERİ: "& bitis_yer &" "& chr(10)
ileti=ileti &" GELİŞ YERİ: "& gelis_yer &" "& chr(10)
ileti=ileti &" GELİŞ SAATİ: "& gelis_saat &" "& chr(10)
ileti=ileti &" HAVAYOLU FİRMASI: "& havayolu &" "& chr(10)
ileti=ileti &" EHLİYET NO: "& ehliyet_no &" "& chr(10)
ileti=ileti &" EHLİYET ALINMA YERİ: "& ehliyet_yer &" "& chr(10)
ileti=ileti &" EHLİYET ALINMA TARİHİ GÜN : "& ehliyet_gun &" "& chr(10)
ileti=ileti &" EHLİYET ALINMA TARİHİ AY : "& ehliyet_ay &" "& chr(10)
ileti=ileti &" EHLİYET ALINMA TARİHİ YIL : "& ehliyet_yil &" "& chr(10)
ileti=ileti&" "& chr(10)  
ileti=ileti &"ÖDEME BİLGİSİ "& chr(10)
ileti=ileti&" "& chr(10) 
ileti=ileti &" ÖDEME TİPİ: "& odeme_tipi &" "& chr(10) 
ileti=ileti&" "& chr(10)  
ileti=ileti &"İSTEKLERİNİZ "& chr(10)
ileti=ileti&" "& chr(10) 
ileti=ileti &" NOT: "& notice &" "& chr(10)
ileti= "IP No:" & Request.ServerVariables("REMOTE_ADDR") & Chr(13) & ileti
response.write(ileti)
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
' SMTP Ayarları
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
' CDOSYS Ayarları
Set objCDOSYSMail.Configuration = objCDOSYSCon
objCDOSYSMail.From = kimden
objCDOSYSMail.To = kime
objCDOSYSMail.Subject = konu
objCDOSYSMail.HTMLBody = ileti
' Gönder
objCDOSYSMail.Send
' Herşeyi Kapat
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing
response.redirect "ok.asp"
%>
<p>En kısa Sürede Sizinle </p>

dostum yardımın için çok teşekkür ederim verdiğin kodları aynen attım.

şöle bi hata çıktı.


CDO.Message.1hata '80040213'
Aktarim, sunucuya baglanamadi. /deneme/gonder3.asp, satır 82

hatayı araştırdım smtp ayarlarında sorun varmış doğru olanını nerden bulabilirim..