İyinet'e Hoşgeldiniz!

Türkiye'nin En Eski Webmaster Forum'una Hemen Kayıt Olun!

Kayıt Ol!

asp de yazılmış iletişim formu lazım

cenkp

0
İyinet Üyesi
Katılım
19 Kasım 2007
Mesajlar
87
Reaction score
0
Arkadaşlar aradım ama bulamadım, bana asp de yazılmış iletişim formu lazım.
Windows hostinde php ile yazılmış iletişim formları çalışmıyor da.
Yardımcı olursanız çok memnun olurum.
 

forumselcuk

0
İyinet Üyesi
Katılım
26 Şubat 2006
Mesajlar
713
Reaction score
1
Konum
Selçuk Üniversi
Windows hostingde php lerin çalışmamasının nedeni pleskde site ayarlarında setup kısmınmda php desteğinin olmamasıdır
aspindir.com da asp ilede bulabilirsin istediğin türlüsünü
 

cenkp

0
İyinet Üyesi
Katılım
19 Kasım 2007
Mesajlar
87
Reaction score
0
Dediğin ayarları yapmayı denedim ama olmadı.
Teşekkür ederim adres için.
 

Senol

0
İyinet Üyesi
Onaylı Üye
Katılım
25 Haziran 2005
Mesajlar
4,856
Reaction score
1
Konum
Bursa
pleskte domain e ait hosting alanını olustururken asp ve php seceneklerini işaretle calışır yapamaz isen pm at yardımcı olayım
 

Permission

0
İyinet Üyesi
Katılım
11 Aralık 2004
Mesajlar
6,458
Reaction score
3
Konum
izmir
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 geren 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ı"
 

Türkiye’nin ilk webmaster forum sitesi iyinet.com'da forum üyeleri tarafından yapılan tüm paylaşımlardan; Türk Ceza Kanunu’nun 20. Maddesinin, 5651 Sayılı Kanununun 4. maddesinin 2. fıkrasına göre, paylaşım yapan üyeler sorumludur.

Üst