Asp İletişim Formu Spam'a Düşmesi ? Yardım..

08/Mar/10 13:35

Kısayol

Şikayet

Özel Mesaj

streetw1se

Kayıt Tarihi: 22/Eylül/2007

mrb arkadaslar.aspde CDO.Message ile iletişim formu gonderiyorum ama bütün formlar spama düşüyor.kodlarım aşağıda inceleyip düzeltmem gereken yada bunun haricinde yapmam gereken herhangi birşey varsa söylerseniz sevinirim.

Kodlar :

<%
On Error Resume Next
Dim SMTPSunucuAdresi
Dim SMTPKullaniciAdi
Dim SMTPSifre
Dim MKonf
Dim Alnlr
Dim CDOM
Dim strAd
Dim strTel
Dim strEmail
Dim strKonu
Dim strAdres
Dim strMesaj
Dim strEEmail
Dim strAlici

strAlici = "info@siteadresi.com"
SMTPSunucuAdresi     = "mail.siteadresi.com"
SMTPKullaniciAdi     = "iletisimformu@siteadresi.com"
SMTPSifre     = "123456"

strAd  = request.form("isim")
strTel  = request.form("tel")
strEmail   = request.form("email")
strKonu = request.form("konu")
strAdres = request.form("adres")
strMesaj = request.form("mesaj")

dim strHtml
strHtml = strHtml & "<html>" & vbNewLine
strHtml = strHtml & "<head>" & vbNewLine
strHtml = strHtml & "<title>Html Mail</title>" & vbNewLine
strHtml = strHtml & "<meta http-equiv=""Content-Type"" content=""text/html; charset=iso-8859-9"">" & vbNewLine
strHtml = strHtml & "</head>" & vbNewLine
strHtml = strHtml & "<body leftmargin=""0"">" & vbNewLine
strHtml = strHtml & "<table align=""center"" border=""1"" cellspacing=""0"" cellpadding=""0"" width=""400"">" & vbNewLine
strHtml = strHtml & " <tr> " & vbNewLine
strHtml = strHtml & "  <td> " & vbNewLine
strHtml = strHtml & "   <table align=""left"" border=""1"" cellspacing=""0"" cellpadding=""0"" width=""400"">" & vbNewLine
strHtml = strHtml & "    <tr> " & vbNewLine
strHtml = strHtml & "     <td><b>Konu :</b> " & strKonu & "</td>" & vbNewLine
strHtml = strHtml & "    </tr>" & vbNewLine
strHtml = strHtml & "    <tr> " & vbNewLine
strHtml = strHtml & "     <td><b>Adınız :</b> " & strAd & "</td>" & vbNewLine
strHtml = strHtml & "    </tr>" & vbNewLine
strHtml = strHtml & "    <tr> " & vbNewLine
strHtml = strHtml & "     <td><b>E-Mail :</b> " & strEmail & "</td>" & vbNewLine
strHtml = strHtml & "    </tr>" & vbNewLine
strHtml = strHtml & "    <tr> " & vbNewLine
strHtml = strHtml & "     <td><b>Telefon :</b> " & strTel & "</td>" & vbNewLine
strHtml = strHtml & "    </tr>" & vbNewLine
strHtml = strHtml & "    <tr> " & vbNewLine
strHtml = strHtml & "     <td><b>Adres :</b> " & strAdres & "</td>" & vbNewLine
strHtml = strHtml & "    </tr>" & vbNewLine
strHtml = strHtml & "    <tr> " & vbNewLine
strHtml = strHtml & "     <td><b>Zaman :</b> " & Now() & "</td>" & vbNewLine
strHtml = strHtml & "    </tr>" & vbNewLine
strHtml = strHtml & "    <tr> " & vbNewLine
strHtml = strHtml & "     <td><b>IP Adres :</b> " & Request.ServerVariables("REMOTE_ADDR") & "</td>" & vbNewLine
strHtml = strHtml & "    </tr>" & vbNewLine
strHtml = strHtml & "    <tr> " & vbNewLine
strHtml = strHtml & "     <td><b>Mesaj :</b> " & strMesaj & "</td>" & vbNewLine
strHtml = strHtml & "    </tr>" & vbNewLine
strHtml = strHtml & "   </table>" & vbNewLine
strHtml = strHtml & "  </td>" & vbNewLine
strHtml = strHtml & " </tr>" & vbNewLine
strHtml = strHtml & "</table>" & vbNewLine
strHtml = strHtml & "</body>" & vbNewLine
strHtml = strHtml & "</html>" & vbNewLine

dim blnHtmlMail
blnHtmlMail = True


Set MKonf = CreateObject("CDO.Configuration")
Sch = "http://schemas.microsoft.com/cdo/configuration/"
Set Alnlr = MKonf.Fields
With Alnlr
.Item(Sch & "sendusing")     = 2
.Item(Sch & "smtpserver")     = SMTPSunucuAdresi
.Item(Sch & "smtpserverport")    = 587
.Item(Sch & "sendusername")    = SMTPKullaniciAdi
.Item(Sch & "sendpassword")    = SMTPSifre
.Update
End With

Set CDOM = CreateObject("CDO.Message")
CDOM.Configuration    = MKonf
CDOM.From     = strAd & "<" & strEmail & ">"
CDOM.To     = strAlici
CDOM.Subject     = "İletişim Formu"
CDOM.HtmlBody     = strHtml
CDOM.Send

Set CDOM    = Nothing
Set Alnlr    = Nothing
Set MKonf    = Nothing

if err Then
Response.write err.description
Response.end
cdoSys = false
else
Response.write "."
End If
%>

Alıntı yap

08/Mar/10 14:00

Kısayol

Şikayet

Özel Mesaj

renegadealien

Kayıt Tarihi: 23/Mart/2003

domaininin spf recordu vardı?

mx serverlarında bir sıkıntı varmı?

reversednsler düzgünmü?

sditenin bulunduğu server ipsi mx server ipsi domain ipsi spam listelerindemi?

bunlara bakmak lazım

sorun kodda değil geri kalan kısımda hocam...

10.05.2013 tarihli google arama sonucu : Aradığınız - "herşeyin hayırlısı rampanın bayırlısı" - ile ilgili hiçbir arama sonucu mevcut değil. Kendi özlü sözümdür, kaynak belirterek kullanınız.

Alıntı yap

08/Mar/10 14:00

Kısayol

Şikayet

Özel Mesaj

angels_demos

Kayıt Tarihi: 03/Haziran/2006

Dim SMTPSunucuAdresi
Dim SMTPKullaniciAdi
Dim SMTPSifre
Dim MKonf
Dim Alnlr
Dim CDOM
Dim strAd
Dim strTel
Dim strEmail
Dim strKonu
Dim strAdres
Dim strMesaj
Dim strEEmail
Dim strAlici

oha bu ne.taş devri asp'cisi.sil şunları artık önemi yok gereksiz.spama düşmesi senin suçun değil sunucu yada bileşenden farklı yolla yollamayı dene

Alıntı yap