Şifremi/Kullanıcı Adımı Unuttum
Bağlan Google+ ile Bağlan Facebook ile Bağlan
Şimdi Ara

ÖNEMLI!!! Bir irtibat formu lazim LÜTFEN!!!

Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
1 Misafir Kullanıcı, 1 Masaüstü Kullanıcı
3
Cevap
0
Favori
118
Tıklama
Cevapla
Tüm Forumlar >> Web Tasarım - Programlama >> Tasarım ve grafik >> Web Tasarım ve Hazır Kodlar >> ÖNEMLI!!! Bir irtibat formu lazim LÜTFEN!!!
Sayfaya Git:
Sayfa:
1
Giriş
Mesaj
  • Yüzbaşı
    976 Mesaj
    Arkadaslar aslinda daha cok hardware isiyle ilgiliyim. ama kismet bu ya bir sekilde bu ise de bulastim
    halt ettim bir web sitesi yaptim. Sadece html kullandim diyebilirim. baska da birsey bildigim söylenemez zaten.
    Simdi gelelim meseleye. Bu site icin asagida verdigim örnege benzer bir irtibat formunu nasil yapabilirim. Ama lütfen hicbirsey bilmeyen birine anlatir gibi anlatin. hatta hazir kod olursa daha makbule gecer. kopyala yapistir hani

    simdiden saolun

    Edit: Örnegin linkini unutmusum

    http://www.nurol.com.tr/erisim/erisim_form.html



    < Bu mesaj bu kişi tarafından değiştirildi doganza -- 17 Mayıs 2005, 2:15:59 >



    |
    |
    _____________________________





  • Binbaşı
    1299 Mesaj
    serverinin asp veya php yi desteklemesi lazım bu tür uygulamalar için eğer aspyi destekliyorsa.www.aspindir.com dan istediğin türden bir form indirebilirsin
    |
    |
    _____________________________
  • Yüzbaşı
    486 Mesaj
    Altaki Asp kodunu yeni bir sayfaya kaydet...
    Sonra Eğer Asp destekliyorsa hosting 'in İletişim Sayfandakı Gönder Butonunu bu yeni oluşturduğun sayfaya yönlendir..

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

    %>
    |
    |
    _____________________________




  • Yüzbaşı
    976 Mesaj
    tesekkürler arkadaslar biraz ugrasip yine buraya sonucunu yazarim.
    |
    |
    _____________________________

HızlıCevap
Sayfaya Git:
Sayfa:
1
Reklamlar
Veri Merkezi;Metro Ethernet;Cloud Sunucu
haberler
Kurumsal Web Tasarım Şirketi
google reklamları
üniversite
Bu sayfanın
Mobil sürümü
Mini Sürümü

DHBR1
0,170
1.2.165

Reklamlar
- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.