Bize Ulaşın...

<% Response.Buffer = true %> <% Response.CacheControl = "no-cache" %> <% Response.AddHeader "Pragma", "no-cache" %> <% Response.Expires = -1 %> <% ' %>

Online İletişim Formu
Isim:
Soyad:
E-Posta:
Telefon:
Mesajiniz:
<% islem = Request.QueryString("islem") If islem = "gonder" then Call submit end if %> <% sub submit %> <% isim = Request.Form("isim") soyad = Request.Form("soyad") eposta = Request.Form("eposta") telefon = Request.Form("telefon") mesaj = Request.Form("mesaj") If isim = "" or soyad = "" or eposta = "" or telefon = "" or mesaj = "" then Response.Redirect "form-iletisim.asp" else Set yenikayit = Server.CreateObject("Adodb.Recordset") SQL = "Select * From iletisim" yenikayit.Open SQL,baglanti,1,3 yenikayit.addnew yenikayit("isim") = isim yenikayit("soyad") = soyad yenikayit("eposta") = eposta yenikayit("telefon") = telefon yenikayit("mesaj") = mesaj yenikayit.update Response.Write "Mesajiniz gönderilmistir!" end if %> <% end sub %>