Sorunsuz Asp İletişim Formu - Türkçe Forum

**Sanal** · 12-25-07, 00:22

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ı"

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder