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
Napacan olm iletişim formunu pazartesi vercez dedik işte milletin kafasını şişirme bari benimkini şişirdin msnden
Bu mesaja 1 cevap geldi. Cevapları Gizle
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. Cevapları Gizle