13 Mayıs 2011, 00:52 | #1 | ||||||||||||||||||||
Keyifli~Üye Üyelik tarihi: 09 Mayıs 2011
Mesajlar: 1.000
| Sorunsuz Asp İletişim Formu 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><**** 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ı" | ||||||||||||||||||||
Bookmarks |
Etiketler |
açıklama, aspnet, aspx, destekli, dili, hostunuzun, olduğundan, programlama |
Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
Seçenekler | Arama |
Stil | |
| |