Asp coderlerin dikkatine :(

15-05-2008, 01:45:08

Arkadaşlar daha önce buradaki konuyu açtım sağ olsun bi kaç arkadaş ilgilendi ama iletişim sayfası yapamadık bi türlü sunucuda eklenti yokmuş eklenti kurdurdum. Eklentinin adı "CDONTS" şuanda sunucuda kurulu ayrıca asp.net de aktif edildi.

Sunucuya bi kaç mail forumu kurdum ama hala hata veriyor.

En son kurdugum eklenti;

ASP ?ndir - ?bsuweb Email ?leti?im Formu (tr)

Mail forumunun bulundugu sayfa; orucoglunakliyat.com/mail

59. satırda hata var diyo 59. satırda şu kod var; objMail.send

Sorun nereden kaynaklanıyor ?

15-05-2008, 09:16:40

#2

TaGo

Hocam msn eklemiştim yardım için açmadınız benim size verdiğim kodlarda ufak bir değişiklik yaptım çalıştı. Tekrar burdan yolluyorum.
İyi çalışmalar

15-05-2008, 16:25:56

#3

GelecekZaman

İletişim

buyur ekledim ama yine hata veriyor

15-05-2008, 16:36:54

#4

~~LineBilisim~~

arkadaşım şu linkteki dosyayı hostuna at. daha sonra çalıştır ve sayfadan mail gönderimini dene. hangi tüm bileşenleri seç. bak bakalım hangi mail ile gönderecek. çalışan maillerde hata vermeyecektir..

www.linebilisim.com/testmail.rar

15-05-2008, 16:40:03

#5

~~LineBilisim~~

ve bu arada elindeki dosyada bulunan aşağıdaki kodları düzeltirmisin.
(CDOSYS'nin 2003 Kurulu serverlerda çalışması gerekir)

Alıntı

objCDOSYSCon.Fields ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = "25"

İyi çalışmalar

15-05-2008, 16:47:39

#6

GelecekZaman

Advanced Mailer Component Test - http://www.pensaworks.com

olmuyor

15-05-2008, 16:51:26

#7

~~LineBilisim~~

çalışıyor yaw CDOSYS çalışıyor..
mail.orucoglunakliyat.com yazıldığındada çalışıyor localhost yazıldığındada..
herhangi bir sorun yok serverda.

kodu kendine göre düzenleyebilirsin.. yukarıda verdiğim gibi

15-05-2008, 16:56:32

#8

GelecekZaman

linebilisim adlı üyeden alıntı: mesajı görüntüle

çalışıyor yaw CDOSYS çalışıyor..
mail.orucoglunakliyat.com yazıldığındada çalışıyor localhost yazıldığındada..
herhangi bir sorun yok serverda.
kodu kendine göre düzenleyebilirsin.. yukarıda verdiğim gibi

Sorunda orda işte ben asp'den ve kodlarından anlamıyorum. O sayfayı biriniz iletişim sayfası olarak düzenlerseniz çok makbüle geçer.

15-05-2008, 17:32:03

#9

~~LineBilisim~~

gonder.asp yi bu şekilde düzenle..

<%
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
%>

iletisim.asp çalışıyor..