Sorunsuz Asp İletişim Formu

**Permission** · #1 (**permalink**) 2007-12-16, 20:14

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 = "mail@site.com"
CONST  infMailSifre = "sifre"
CONST  infMailYollayan = "mail@site.com"
CONST  alici_mail = "mail@site.com"
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 = "mail@site.com"
CONST infMailSifre = "sifre"
CONST infMailYollayan = "mail@site.com"
CONST alici_mail = "mail@site.com"
CONST mailbasligi = "Bilgi Mesajı"

**ibryas** · #2 (**permalink**) 2008-01-06, 16:33

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

**BAR1S** · #3 (**permalink**) 2008-01-07, 11:41

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

**Permission** · #4 (**permalink**) 2008-01-09, 03:20

Alıntı:

BAR1S´isimli üyeden 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** · #5 (**permalink**) 2008-01-25, 11:32

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

HTML-Kodu:

<%@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

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Bir İletişim Formu ama Biraz Farklı	gokhankar	PHP	1	2005-10-13 16:44