Yeni Kayıt
Konudaki Resimler
< Bu mesaj bu kişi tarafından değiştirildi doganza -- 17 Mayıs 2005, 2:15:59 > |
Hızlı 
Bildirim
ÖNEMLI!!! Bir irtibat formu lazim LÜTFEN!!!
Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
SoundPEATS Space Kablosuz Kulaklık BT5.3 Katlanabilir Kafa Bandı Hibritlerle Aktif Gürültü Engelleme ENC Gürültü Azaltma 40 mm : Amazon.com.tr: Elektronik
https://www.amazon.com.tr/gp/product/B0CJ29PJS9
14 sa. önce paylaşıldı
Bu Konudaki Kullanıcılar:
1 Misafir - 1 Masaüstü
Giriş
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 
-
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
%>
-
tesekkürler arkadaslar biraz ugrasip yine buraya sonucunu yazarim.
Sayfa:
1
Ip işlemleri
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
