<table width="27%" border="1">
<tr>
<td width="52%"><font color="#000099" size="4">Kimlik Numarası</font></td>
<td width="48%"><font color="#000099" size="4">Isim</font></td>
</tr>
<%
Set Baglantimiz = Server.CreateObject("ADODB.Connection" )
Baglantimiz.Open "Provider=Microsoft.JET.OLEDB.4.0;Data Source=" & Server.MapPath("ssss.mdb" )
Set Girdi = Server.CreateObject("ADODB.RecordSet" ) ' kayıt seti
aa=Request.Form("aa")
bb=Request.Form("bb")
if aa<> "" then
SQL="SELECT * From sinif Where Kimlik="&Cint(aa)
Girdi.Open SQL , Baglantimiz , 1 , 3 ' kayit setimizi açıyoruz
Girdi("isim" ) = bb ' 1. değerimiz
Girdi.Update
Girdi.Close ' bağlantılarımızı kapatıyoruz
end if
SQL="SELECT * From sinif" ' kayıtlar tablosunu seçtik
Girdi.Open SQL,Baglantimiz,1,3 ' kayit setimizi açıyoruz
do while not Girdi.Eof
%>
<tr>
<td><%=Girdi("Kimlik")%></td>
<td><%=Girdi("isim")%></td>
</tr>
<%
Response.Write("<br>")
Girdi.Movenext
loop
Girdi.Close ' bağlantılarımızı kapatıyoruz
Set Girdi = Nothing '
%></table><%
%>
<form id="form1" name="form1" method="post" action="">
<p>
<label> Kimlik Numarası :
<input type="text" name="aa" id="aa" />
</label>
</p>
<p>
<label> Isim :
<input type="text" name="bb" />
</label>
</p>
<label>
<input type="submit" name="button" id="button" value="Ekle" />
</label>
</form>