Sorunsuz Asp İletişim Formu

Permission · 16 Aralık 2007

Sorunsuz ve ücretsiz asp mail form Server.CreateObject("JMail.Message" ) dili ile hazırlanmış bir script scriptteki secenekleri cogaltmak kolay sadece eklediğinzi input type="text" name="Ad_Soyad" kısımlarını eklediğiniz secenekle yapınız (tr karekter ve boşluksuz)

hadi kolay gelsin bakalım.

form.asp

Kod:

<table border="1" cellpadding="3" cellspacing="3" style="border-collapse: collapse; border-width: 0" bordercolor="#111111" width="44%" id="AutoNumber1" height="80">
  <tr><form method="POST" action="gonder.asp">
    <td width="21%" style="border-style:none; border-width:medium; " height="17">
    <font size="2" face="Verdana">Adı Soyadı :</font></td>
    <td width="79%" style="border-style:none; border-width:medium; " height="17">
    <input type="text" name="Ad_Soyad" size="35"></td>
  </tr>
  <tr>
    <td width="21%" style="border-style: none; border-width: medium" height="17">
    <font size="2" face="Verdana">Mail :</font></td>
    <td width="79%" style="border-style: none; border-width: medium" height="17">
    <input type="text" name="Mail" size="35"></td>
  </tr>
  <tr>
    <td width="21%" style="border-style: none; border-width: medium" height="17">
    <font size="2" face="Verdana">Konu :</font></td>
    <td width="79%" style="border-style: none; border-width: medium" height="17">
    <select size="1" name="Konu">
    <option>---- Konu Seciniz ----</option>
    <option value="Bilgi Almak">Bilgi Almak</option>
    <option value="Şikayet">Şikayet</option>
    <option value="Reklam">Reklam</option>
    </select></td>
  </tr>
  <tr>
    <td width="21%" style="border-style: none; border-width: medium" height="17" valign="top">
    <font size="2" face="Verdana">Mesajın :</font></td>
    <td width="79%" style="border-style: none; border-width: medium" height="17">
    <textarea rows="6" name="Mesaj" cols="35"></textarea></td>
  </tr>
  <tr>
    <td width="21%" style="border-style: none; border-width: medium" height="17">
    </td>
    <td width="79%" style="border-style: none; border-width: medium" height="17">
      <input type="submit" value="Gönder" name="B1">
      <input type="reset" value="Sıfırla" name="B2"></p>
    </form>
    </td>
  </tr>
</table>

--------------------------------------------------------------------------

gonder.asp

Kod:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1254"%>
<%
CONST  infMailSunucu = "mail.site.com"
CONST  infMailKullaniciAdi = "[email protected]"
CONST  infMailSifre = "sifre"
CONST  infMailYollayan = "[email protected]"
CONST  alici_mail = "[email protected]"
CONST  mailbasligi = "Bilgi Mesajı"
dim  mesaj 
mesaj = "<html><head><meta http-equiv=""Content-Type"" content=""text/html; charset=iso-8859-9""></head><body>"

Dim bilgiler
For Each bilgiler In Request.Form
	if bilgiler <> "Submit" then
		mesaj = mesaj & "<b>" & bilgiler & " : </b> "
		mesaj = mesaj & Request.Form(bilgiler) & "<br>"
	end if
Next

mesaj = mesaj & "</body></html>"



     SET  objMail = Server.CreateObject("JMail.Message" ) 
     With  objMail
        .ContentType = "text/html" 
        .CharSet = "ISO-8859-9" 
        .AddRecipient alici_mail
        .From = infMailYollayan
        .MailServerUserName = infMailKullaniciAdi
        .MailServerPassWord = infMailSifre
        .Logging =  True
        .Silent =  True
        .Subject = mailbasligi 
        .Body = mesaj
        .Send(infMailSunucu)
     End  With
     SET  objMail =  Nothing


response.write("Mesajınız Bize Ulaşmıştır. En Kısa zamanda cevap yazılacaktır..")

%>

gonder.asp de yapman gereken degişiklikler

CONST infMailSunucu = "mail.site.com"
CONST infMailKullaniciAdi = "[email protected]"
CONST infMailSifre = "sifre"
CONST infMailYollayan = "[email protected]"
CONST alici_mail = "[email protected]"
CONST mailbasligi = "Bilgi Mesajı"

ibryas · 6 Ocak 2008

500 Internal Server Error

Elinize sağlık ama bu hatayı veriyor. JMail standart bir asp bileşeni diye biliyorum yanılıyormuyum. Hatayı neden verir?

BAR1S · 7 Ocak 2008

Form için teşekkürler yalnız gelen maillerde Türkçe karakter hatası veriyor

Permission · 9 Ocak 2008

BAR1S' Alıntı:
Form için teşekkürler yalnız gelen maillerde Türkçe karakter hatası veriyor

suana kadar kullandıgım bütün sitelerde sorun yaşamdım mail server karekter sorunu olabilir.

OutrageouS · 25 Ocak 2008

mail sorunu olduğunu sanmıyorum. Birinci ve ikinci kodun başlarına

HTML:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />

eklersen sorun gidecektir

airweb · 20 Nisan 2011

Arkadaşlar bu formu 3 ayrı mail adresine nasıl yollarız acaba ?

sonkorku · 29 Ağustos 2011

anlayamadım

Permission' Alıntı:

Sorunsuz ve ücretsiz asp mail form Server.CreateObject("JMail.Message" ) dili ile hazırlanmış bir script scriptteki secenekleri cogaltmak kolay sadece eklediğinzi input type="text" name="Ad_Soyad" kısımlarını eklediğiniz secenekle yapınız (tr karekter ve boşluksuz)

hadi kolay gelsin bakalım.

form.asp

Kod:

<table border="1" cellpadding="3" cellspacing="3" style="border-collapse: collapse; border-width: 0" bordercolor="#111111" width="44%" id="AutoNumber1" height="80">
  <tr><form method="POST" action="gonder.asp">
    <td width="21%" style="border-style:none; border-width:medium; " height="17">
    <font size="2" face="Verdana">Adı Soyadı :</font></td>
    <td width="79%" style="border-style:none; border-width:medium; " height="17">
    <input type="text" name="Ad_Soyad" size="35"></td>
  </tr>
  <tr>
    <td width="21%" style="border-style: none; border-width: medium" height="17">
    <font size="2" face="Verdana">Mail :</font></td>
    <td width="79%" style="border-style: none; border-width: medium" height="17">
    <input type="text" name="Mail" size="35"></td>
  </tr>
  <tr>
    <td width="21%" style="border-style: none; border-width: medium" height="17">
    <font size="2" face="Verdana">Konu :</font></td>
    <td width="79%" style="border-style: none; border-width: medium" height="17">
    <select size="1" name="Konu">
    <option>---- Konu Seciniz ----</option>
    <option value="Bilgi Almak">Bilgi Almak</option>
    <option value="Şikayet">Şikayet</option>
    <option value="Reklam">Reklam</option>
    </select></td>
  </tr>
  <tr>
    <td width="21%" style="border-style: none; border-width: medium" height="17" valign="top">
    <font size="2" face="Verdana">Mesajın :</font></td>
    <td width="79%" style="border-style: none; border-width: medium" height="17">
    <textarea rows="6" name="Mesaj" cols="35"></textarea></td>
  </tr>
  <tr>
    <td width="21%" style="border-style: none; border-width: medium" height="17">
    </td>
    <td width="79%" style="border-style: none; border-width: medium" height="17">
      <input type="submit" value="Gönder" name="B1">
      <input type="reset" value="Sıfırla" name="B2"></p>
    </form>
    </td>
  </tr>
</table>

--------------------------------------------------------------------------

gonder.asp

Kod:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1254"%>
<%
CONST  infMailSunucu = "mail.site.com"
CONST  infMailKullaniciAdi = "[email protected]"
CONST  infMailSifre = "sifre"
CONST  infMailYollayan = "[email protected]"
CONST  alici_mail = "[email protected]"
CONST  mailbasligi = "Bilgi Mesajı"
dim  mesaj 
mesaj = "<html><head><meta http-equiv=""Content-Type"" content=""text/html; charset=iso-8859-9""></head><body>"

Dim bilgiler
For Each bilgiler In Request.Form
	if bilgiler <> "Submit" then
		mesaj = mesaj & "<b>" & bilgiler & " : </b> "
		mesaj = mesaj & Request.Form(bilgiler) & "<br>"
	end if
Next

mesaj = mesaj & "</body></html>"



     SET  objMail = Server.CreateObject("JMail.Message" ) 
     With  objMail
        .ContentType = "text/html" 
        .CharSet = "ISO-8859-9" 
        .AddRecipient alici_mail
        .From = infMailYollayan
        .MailServerUserName = infMailKullaniciAdi
        .MailServerPassWord = infMailSifre
        .Logging =  True
        .Silent =  True
        .Subject = mailbasligi 
        .Body = mesaj
        .Send(infMailSunucu)
     End  With
     SET  objMail =  Nothing


response.write("Mesajınız Bize Ulaşmıştır. En Kısa zamanda cevap yazılacaktır..")

%>

gonder.asp de yapman gereken degişiklikler

CONST infMailSunucu = "mail.site.com"
CONST infMailKullaniciAdi = "[email protected]"
CONST infMailSifre = "sifre"
CONST infMailYollayan = "[email protected]"
CONST alici_mail = "[email protected]"
CONST mailbasligi = "Bilgi Mesajı"

CONST infMailSunucu = "mail.site.com"---------->mail hizmeti sağlayan google
CONST infMailKullaniciAdi = "[email protected]"----->benim kullanıcı adım
CONST infMailSifre = "sifre"---------------------> şifrem
CONST infMailYollayan = "[email protected]"--------> buraya ve alttakileri ne gibi değiştireceğiz
CONST alici_mail = "[email protected]"
CONST mailbasligi = "Bilgi Mesajı"

kuvars · 23 Eylül 2011

yardım

bu linkleri ekledim ama "Web sitesi sayfayı görüntüleyemiyor" diye hata veriyor
nerede yanlış yapmış olabilirim yardım edermisiniz

Sorunsuz Asp İletişim Formu

Permission

0

ibryas

0

BAR1S

0

Permission

0

OutrageouS

airweb

0

sonkorku

0

kuvars

0

Backlink ve Tanıtım Yazısı için iletişime geçmek için Skype Adresimiz: .cid.1580508955483fe5