webmaster
 
›
Cevapla
18-04-2009 11:11:08
 

asp ' de iletisim formu hazirlama

kime mail gelecek ise yolla.asp deki

gidecekmail yerinin karşısındakini

kendinize göre uyarlayın.

cdonts mail bileşeni ile mail yollamaktadır.

hadi kolay gelsin.

ileti.asp

<form method="post" action="yolla.asp">
Adınız :
<br>
<input type="text" size="20" name="isim">
<br>
Soyisim :
<br>
<input type="text" size="20" name="soyisim">
<br>
Firmanızın Adı :
<br>
<input type="text" size="20" name="firmaismi">
<br>
Telefon :
<br>
<input type="text" size="20" name="telefon">
<br>
E-Posta :
<br>
<input type="text" size="20" name="eposta">
<br>
Adres :
<br>
<input type="text" size="20" name="adres">
<br>
Öneri / İstek / Şikayet :
<br>
<textarea name="istek"></textarea>
<br>
<input name="submit" type="submit" value=" Gönder ">
</form>



yolla.asp

<%
isim = request.form("isim")
soyisim = request.form("soyisim")
firmaismi = request.form("firmaismi")
telefon = request.form("telefon")
eposta = request.form("eposta")
adres = request.form("adres")
istek = request.form("istek")
if isim="" or soyisim="" or firmaismi="" or telefon="" or eposta="" or adres="" or istek="" then
Response.Write "<script language='JavaScript'>alert('Tüm alanları doldurunuz...');</script>"
Response.Write "<meta http-equiv='Refresh' content='1; URL=ileti.asp'>"
Response.End
end if

kontrol1= InStr(eposta,"@")
kontrol2= InStr(eposta,".")
if kontrol1="0" or kontrol2="0" then

Response.Write "<script language='JavaScript'>alert('Geçerli email adresi yazınız...');</script>"
Response.Write "<meta http-equiv='Refresh' content='1; URL=ileti.asp'>"
Response.End
end if


' xxxxxxxxxxxxxxx GİDECEK MAİL ADRESİMİZ BURADA
gidecekmail =



Set Mail=Server.CreateObject("CDONTS.NewMail")
Mail.To=" "&gidecekmail&" "
Mail.From=" "&eposta&" "
Mail.Subject= "Size Gönderilen İletişim Bilgileri"
mesajimiz = "Ad Soyad : " & isim & " " & soyisim & " "
mesajimiz = mesajimiz & " ||| "
mesajimiz = mesajimiz & " Firma İsmi : "&firmaismi&" "
mesajimiz = mesajimiz & " ||| "
mesajimiz = mesajimiz & " Adres : "&adres&" "
mesajimiz = mesajimiz & " ||| "
mesajimiz = mesajimiz & " | Gönderen E-Mail : "&eposta&" "
mesajimiz = mesajimiz & " ||| "
mesajimiz = mesajimiz & " Telefon : "&telefon&" "
mesajimiz = mesajimiz & " ||| "
mesajimiz = mesajimiz & " İstek / Öneri / Görüş : "&istek&" "
Mail.Body=mesajimiz
Mail.Send
Response.Write "<script language='JavaScript'>alert('Mesajınız İletilmiştir..');</script>"
Response.Write "<meta http-equiv='Refresh' content='1; URL=ileti.asp'>"
Set Mail=Nothing
%>

emege saygı

Bir önceki yazı MSXML2.ServerXMLHTTP ile Büyük Dosya çekme hakkında bilgi vermektedir.

18-04-2009 11:25:42
W-S W-S offline
 
Eline sağlık dün gece tam da böyle bir paylaşım gerekmişti . Rep verdim.

15-05-2010 19:25:52
 
Paylaşımın için teşekkür ederim.

15-05-2010 21:01:00
 
Paylaşımın için teşekkür kardeş

28-07-2010 10:57:06
 
güzel paylaşım
özellikle boş alanları doldurmak için uyarı eklenmiş
elinize sağlık

30-07-2010 23:58:13
 
artık bunlar kalmadı adamlar yönetim paneline girip kendi mail adresini ve şifresini yazıp öyle mail gönderiyor

23-02-2013 17:35:39
 
kardeşim mail adresinde skntı var dior bu invailed character yazıor mail adresinin oldugu satırı gösterior

Cevapla

"asp ' de iletisim formu hazirlama" konusu hakkında etiketler
adres adresi adress alanlari alert aps asp aspde basit basvuru bilgi bilgiler bilgileri bos cdonts contact deki doldurunuz ekle ekleme eli form formdaki formlar formu formundaki formundan galeri gelen gelsin girme gonder gonderme hazir hazirlama hazirlamak html ile ileti iletiism iletisim iletsim isim istekayet java javascript kayit kodlariyla kullanici leti mail mailadres maile mailing mailli mailto method methodlar olarak olusturma otomatik paneli post refresh request resim response sayfasi sayfasindan sayfasini script scripti send siparis site sitesi sitesinde sitesine siteye soyisim submit telefon text tum url uyari uyarlama uye uyelik uzun web write yap yapimi yapma yapmak yolla

MSXML2.ServerXMLHTTP ile Büyük Dosya çekme Önceki | Sonraki Asp De Inculede Etmek




İletişim Bilgileri, Contact Us, Kullanım Sözleşmesi, Gizlilik