<%
end if
sub kayit
ad = Request.Form("ad")
firma = Request.Form("firma")
email= Request.Form("email")
adres = Request.Form("adres")
tel = Request.Form("tel")
mesaj = Request.Form("mesaj")
if ad="" OR email="" or mesaj=""then
response.write "Vous devez saisir les espaces..."
response.end
else
Set kaydet = Server.CreateObject("ADODB.RecordSet")
sql_kaydet = "Select * from fransizca"
kaydet.open sql_kaydet,bag,1,3
kaydet.addnew
kaydet("ad") = ad
kaydet("firma") = firma
kaydet("email") = email
kaydet("tel") = tel
kaydet("adres") = adres
kaydet("mesaj") = mesaj
kaydet.update
response.redirect yonlen
end if
end sub
%>
