Yeni Kayıt
Konudaki Resimler
|
Hızlı 
Bildirim
Siteme iletişim formu koymak istiyorum.Yardım edin...
Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Bu Konudaki Kullanıcılar:
1 Misafir - 1 Masaüstü
Giriş
Mesaj
-
-
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
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
