bool(false) asp iletişim formu


 
AnasayfaSSSAramaÜye ListesiKayıt OlGiriş yap

Paylaş
 

 asp iletişim formu

Aşağa gitmek 
YazarMesaj
Misafir
Misafir
Anonymous


asp iletişim formu Empty
MesajKonu: asp iletişim formu   asp iletişim formu EmptyPerş. 11 Haz. 2009 - 1:04

Bu script ile firmanıza ait web sitenizin iletişim formunda size mail yollayabilirler...açıklamayı aşşağıda yazdım

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

Kod:


Adınız :





Soyisim :





Firmanızın Adı :





Telefon :





E-Posta :





Adres :





Öneri / İstek / Şikayet :








------------- yolla.asp -----------------------

Kod:

<%
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 "alert('Tüm alanları doldurunuz...');"
Response.Write ""
Response.End
end if

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

Response.Write "alert('Geçerli email adresi yazınız...');"
Response.Write ""
Response.End
end if


' xxxxxxxxxxxxxxx GİDECEK MAİL ADRESİMİZ BURADA
gidecekmail = "ontedi@hotmail.com"



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 "alert('Mesajınız İletilmiştir..');"
Response.Write ""
Set Mail=Nothing
%>
Sayfa başına dön Aşağa gitmek
 
asp iletişim formu
Sayfa başına dön 
1 sayfadaki 1 sayfası
 Similar topics
-
» Kullanıcı Adı Değiştirme Formu

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
 :: Eğlence - KapalıÇarşı - Donanım - Oyun Dünyası - WebMaster - Grafik :: Webmaster ve Photoshop :: Webmaster Genel-
Buraya geçin: