Şimdi Ara

Cdonts ve Persits form mail de hata Lütfen Yardım Edin

Sıcak Fırsatlarda Tıklananlar

Editörün Seçtiği Fırsatlar

Daha Fazla

Bu Konudaki Kullanıcılar: Daha Az

1 Misafir - 1 Masaüstü

5 sn

2
Cevap

0
Favori

348
Tıklama

Daha Fazla
İstatistik

Konu İstatistikleri Yükleniyor

Konuya Özel

0 oy

Öne Çıkar

Cevapla

Sayfa: 1

Giriş

Mesaj

slm arkadaşlar 2 hosting firmasından host aldım biri Cdonts diğeri ise Persits kullanıyor asp yi bilimiyorum Cdonts form mailde hiç bir şekilde sonuç alamadım örnek kullanıdğım asp kodu Persits için :

<style type="text/css">

</style>
<p> </p>
<table width="100%" border="0">
<tr>
<td><div align="center"><img src="wait2.gif" width="150" height="13" /></div></td>
</tr>
</table>
<p align="center" class="style1">Mesajınız Gönderilmiştir. İlginiz İçin Teşşekkür Ederiz....</p>
<% @Language = "VBScript" %>
<%
gonderen=request.form("gonderen")
konu =request.form("konu")
aciklama =request.form("aciklama")
email =request.form("email")
tel =request.form("tel")

anamesaj ="Gonderen : <b>"&gonderen&"</b> <br> Konu : <b>"&konu&"</b> <br> Açiklama : <b>"&aciklama&"</b> <br><br> Email : <b>"&email&"</b>" <br> Tel : <b>"&tel&"</b>
kimden = "****@****.****"
kime = "****@****.****"

%>
<%

Set guncelMail = Server.CreateObject("Persits.MailSender")

'//////// Bu bölüme gereki ayarlarý yazýnýz ///////////
guncelMail.Host = "****.***l.***" ' mail server
guncelMail.username = "***@****.net" 'bi mail acýlmasýlasým
guncelMail.password = "******" ' sifresini buray ayazýnýz
'//////// Bu bölüme gereki ayarlarý yazýnýz ///////////

guncelMail.From = Siteden ' bu bölüm keyfinize göre yapýn
guncelMail.FromName = kim ' bu bölüm keyfinize göre yapýn

guncelMail.AddAddress kime
guncelMail.Subject = "iletisim formu"
guncelMail.IsHTML = true
guncelMail.Body = ""&konu&""
On Error Resume Next
guncelMail.Send
If Err <> 0 Then
strErr = Err.Description
Response.Write "E-Mail Gönderilemedi.Hata :<b>"&strErr&"</b>"
Else
Response.Write "E-Mail Gönderilmiþtir."
End If
Set guncelMail=Nothing

%>

ikinci olarak kullandığım Cdonts kodu :

<%
If (cStr(Request("Submit")) <> "") Then
Dim objCDO,mesaj,ad,soyad
mesaj =cStr(Request("varmesaj"))
ad =cStr(Request("varad"))
soyad =cStr(Request("varsoyad"))

Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.From = cStr(Request("varemail")) 'Senders Email Address
objCDO.To ="****@******.com.tr"
objCDO.Subject ="Sayfadan mail var "
objCDO.Body = ad & " " & soyad & "söyle yazmis :" &"<br>" mesaj
objCDO.Bodyformat = 0
objCDO.Mailformat = 0
objCDO.Send() 'send mail
Set objCDO = Nothing 'Clean up your objects!!!
Response.Write("Mesajiniz Iletildi tesekkürler") 'default response
End If
%>
<html>
<head>
<title>Iletisim</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">

</style></head>

<body>

<form name="CDO_Email_Form" method="post" action="">
<table>
<tr>
<td><span class="style1">Adınız</span></td>
<td> <input name="varad" type="text" id="varad" size="50"> </td>
</tr>
<tr>
<td><span class="style1">Soyadınız</span></td>
<td> <input name="varsoyad" type="text" id="varsoyad" size="50"> </td>
</tr>
<tr>
<td><span class="style1">E-mail</span></td>
<td> <input name="varemail" type="text" id="varemail" size="50"> </td>
</tr>
<tr>
<td valign="top"><span class="style1">Mesaj</span></td>
<td><textarea name="varMesaj" cols="50" rows="5" id="varMesaj"></textarea></td>
</tr>
<tr>
<td colspan="2"> <input type="submit" name="Submit" value="Gönder"> </td>
</tr>
</table>
</form>

</body>
</html>

iki örnek kodda hataların nerde olduğunu sölermisiniz Persits kodunda mail geliyor ama gönderen,konu vb. yerler boş Cdonts ise hiç tık yok lütfen yardım edin.