AnasayfaSSSAramaÜye ListesiKayıt OlGiriş yap

Paylaş | 
 

 asp iletişim formu

Önceki başlık Sonraki başlık Aşağa gitmek 
YazarMesaj
Misafir
Misafir
avatar


MesajKonu: asp iletişim formu   Perş. 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
Önceki başlık Sonraki başlık 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: