DONTS desteği var fakat bir türlü mail gelmiyor !!!

mastadon

New member
Arkadaşlar serverda CDONTS desteği var.Mesajı yazıyorsunuz gönder diyorsunuz mesajınız gitmiştir diye ileti geliyor fakat bir türlü mail gelmiyor,gerekli bilgileri aşağıya ekliyorum.Lütfen yardımcı olunuz,tşkler.İyi çalışmalar...

ileti.asp dosyası içeriği ;
--------------------------------------------


<form method="post" action="yolla.asp">
Adınız :
<br>
<input type="text" size="20" name="isim">
<br>
Soyisim :
<br>
<input type="text" size="20" name="soyisim">
<br>
Firmanızın Adı :
<br>
<input type="text" size="20" name="firmaismi">
<br>
Telefon :
<br>
<input type="text" size="20" name="telefon">
<br>
E-Posta :
<br>
<input type="text" size="20" name="eposta">
<br>
Adres :
<br>
<input type="text" size="20" name="adres">
<br>
Öneri / İstek / Şikayet :
<br>
<textarea name="istek"></textarea>
<br>
<input name="submit" type="submit" value=" Gönder ">
</form>


yolla.asp dosyası içeriği ;
---------------------------------------------


<%
isim = request.form("isim")
soyisim = request.form("soyisim")
firmaismi = request.form("firmaismi")
telefon = request.form("telefon")
eposta = request.form("eposta")
adres = request.form("adres")
istek = request.form("istek")
if isim="" or soyisim="" or firmaismi="" or telefon="" or eposta="" or adres="" or istek="" then
Response.Write "<script language='JavaScript'>alert('Tüm alanları doldurunuz...');</script>"
Response.Write "<meta http-equiv='Refresh' content='1; URL=ileti.asp'>"
Response.End
end if

kontrol1= InStr(eposta,"@")
kontrol2= InStr(eposta,".")
if kontrol1="0" or kontrol2="0" then

Response.Write "<script language='JavaScript'>alert('Geçerli email adresi yazınız...');</script>"
Response.Write "<meta http-equiv='Refresh' content='1; URL=ileti.asp'>"
Response.End
end if


' xxxxxxxxxxxxxxx GİDECEK MAİL ADRESİMİZ BURADA
gidecekmail = "[email protected]"



Set Mail=Server.CreateObject("CDONTS.NewMail")
Mail.To=" "&gidecekmail&" "
Mail.From=" "&eposta&" "
Mail.Subject= "Size Gönderilen İletişim Bilgileri"
mesajimiz = "Ad Soyad : " & isim & " " & soyisim & " "
mesajimiz = mesajimiz & " ||| "
mesajimiz = mesajimiz & " Firma İsmi : "&firmaismi&" "
mesajimiz = mesajimiz & " ||| "
mesajimiz = mesajimiz & " Adres : "&adres&" "
mesajimiz = mesajimiz & " ||| "
mesajimiz = mesajimiz & " | Gönderen E-Mail : "&eposta&" "
mesajimiz = mesajimiz & " ||| "
mesajimiz = mesajimiz & " Telefon : "&telefon&" "
mesajimiz = mesajimiz & " ||| "
mesajimiz = mesajimiz & " İstek / Öneri / Görüş : "&istek&" "
Mail.Body=mesajimiz
Mail.Send
Response.Write "<script language='JavaScript'>alert('Mesajınız İletilmiştir..');</script>"
Response.Write "<meta http-equiv='Refresh' content='1; URL=ileti.asp'>"
Set Mail=Nothing
%>


CDONTS Desteği ;
------------------------------

 

HTML

Üst