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

mastadon

New member
Katılım
3 Ocak 2006
Mesajlar
8
Reaction score
0
Puanları
0
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 ;
------------------------------

 
Geri
Üst