<% Response.Buffer = true %> <% Response.CacheControl = "no-cache" %> <% Response.AddHeader "Pragma", "no-cache" %> <% Response.Expires = -1 %> <% 'BU SCRIPT TONGUC SARP BALYEMEZ TARAFINDAN UCRETSIZ OLARAK HAZIRLANMISTIR ' TUM ONERI VE GORUSLERINIZ ICIN BENIMLE ILETISIME GECEBILIRSINIZ ' MSN/MAIL: ADMIN@TONGUC.NET 'WWW.TONGUC.NET %>

	İsim:     Soyad:     E-Posta:   Telefon:     Mesajınız:       <% 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 "Mesajınız gönderilmiştir!" end if %> <% end sub %>