|
<% 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 "Bitte füllen Sie komplettes Formuldre aus..." response.end else Set kaydet = Server.CreateObject("ADODB.RecordSet") sql_kaydet = "Select * from almanca" 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 %> |
