Arama butonu
Bu konudaki kullanıcılar: 1 misafir
3
Cevap
384
Tıklama
0
Öne Çıkarma
Siteme iletişim formu koymak istiyorum.Yardım edin...
A
19 yıl
Çavuş
Konu Sahibi

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



A
19 yıl
Binbaşı

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


Bu mesaja 1 cevap geldi.
M
19 yıl
Yüzbaşı

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

%>


Bu mesaja 1 cevap geldi.
C
19 yıl
Teğmen

www.sanalweb.com da oyle bir servis var ordanda alabilirsin.



DH Mobil uygulaması ile devam edin. Mobil tarayıcınız ile mümkün olanların yanı sıra, birçok yeni ve faydalı özelliğe erişin. Gizle ve güncelleme çıkana kadar tekrar gösterme.