<%
dim yaz
yaz=""
if Request.Form("adi")<> "" and Request.Form("syd")<> "" and Request.Form("n")<> "" and Request.Form("okl")<> "" and Request.Form("em")<> "" then
Set Baglantimiz = Server.CreateObject("ADODB.Connection")
Baglantimiz.open "provider = microsoft.JET.OLEDB.4.0;Data Source="& server.MapPath("kayit.mdb")
Set Girdi=Server.CreateObject("ADODB.RecordSet")
SQL = "SELECT * From uyeler"
Girdi.Open SQL , Baglantimiz , 1 , 3
Girdi.AddNew
Girdi("isim")=Request.Form("adi")
Girdi("soyadi")=Request.Form("syd")
Girdi("no")=cint (Request.Form("n"))
Girdi("okul")=Request.Form("okl")
Girdi("dtarih")=Request.Form("dt")
Girdi("email")=Request.Form("em")
Girdi("ekt")=date
yaz="Kaydiniz Basariyla Tamamlanmistir Tesekkür Ederiz.."
Girdi.Update
end if
%>
veri tabanini veri tabani adında ki baslıktan bakabilirsinizzz