<%
isim=request.Form("isim")
mail=request.Form("mail")
adres=request.Form("adres")
tel=request.Form("tele")
konu=request.Form("konu")
mesaj=request.Form("mesaj")
if isim<>"" and mail<>"" and mesaj<>"" then
sql="insert into iletisim_girdi (tarih,isim,adres,mail,tel,konu,mesaj) values (now(),'"&isim&"','"&adres&"','"&mail&"','"&tel&"','"&konu&"','"&mesaj&"');"
set veriler=mysql_baglanti.execute(sql)
session("uyari")="Mesajınız başarıyla elimize ulaşmıştır. Teşekkür ederiz."
else
session("uyari")="Lütfen tüm alanları doldurup tekrar deneyiniz."
end if
%>