Şimdi Ara

Siteme iletişim formu koymak istiyorum.Yardım edin...

Bu Konudaki Kullanıcılar:
2 Misafir - 2 Masaüstü
5 sn
4
Cevap
0
Favori
411
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
0 oy
Öne Çıkar
Sayfa: 1
Giriş
Mesaj
  • Arkadaşlar siteme iletişim formu koymak istiyorum.Kodları ya da scripti bilen arkadaşlardan yardım istiyorum.



  • quote:

    Orjinalden alıntı: aytacburcu34

    Arkadaşlar siteme iletişim formu koymak istiyorum.Kodları ya da scripti bilen arkadaşlardan yardım istiyorum.

    Napacan olm iletişim formunu pazartesi vercez dedik işte milletin kafasını şişirme bari benimkini şişirdin msnden sana sonuna kadar destek
  • Formu oluştur. Bu altaki koda link verdir.... Form action olarak butona
    Altaki form için uygulanan kodu kullanabilirsin


    <%@ Language=VBScript %>
    <%

    'değişkenlerin oluşturuyorsun

    isim = Request.Form("isim")
    email = Request.Form("email")
    telefon = Request.Form("telefon")
    mesaj = Request.Form("mesaj")
    konu = "Web Sitesi İletişim Formundan Gelen Mesaj"

    ' StrBody kısmını istediğin kadar genişletebilirsin...üstede ona göre değişkenkeri oluşturucan

    strBody= strBody & "Adı Soyadı: " & Request.Form("isim") & Chr(13)& Chr(10)
    strBody= strBody & "Telefon: " & Request.Form("telefon") & Chr(13)& Chr(10)
    strBody= strBody & "Mesaj: " & Request.Form("mesaj") & Chr(13)& Chr(10)

    set objMessage = createobject("cdo.message")
    set objConfig = createobject("cdo.configuration")

    ' Setting the SMTP Server
    Set Flds = objConfig.Fields
    Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

    Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail server"
    'mail server örnk: mail.donanimhaber.com gibi

    Flds.update


    Set objMessage.Configuration = objConfig
    objMessage.To = "mail adresin" ' irtibat formunun gitmesini istediğin adresi yazıcaksın
    objMessage.From = email
    objMessage.Subject = konu
    objMessage.TextBody = strBody
    objMessage.fields.update
    objMessage.Send

    Response.write "<center>Mesajınız bize ulaştı. Teşekkür ederiz."

    set objMessage = nothing
    set objConfig = nothing

    %>




  • www.sanalweb.com da oyle bir servis var ordanda alabilirsin.
  • 
Sayfa: 1
- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.