Sınav Kodu Sınav Tarih Sınav Saat <% set iogr = Server.CreateObject("ADODB.Recordset") iogr.open "SELECT* FROM sinavlar order by idsinav asc",erdc,1,3 if not iogr.eof then %> <% sira=1 do while not iogr.eof %> <% sira=sira+1 iogr.movenext loop iogr.close %> Sıra Sınavkodu Sınav Tarih Sınav Saat  <%=sira%> <%=iogr("sinavkodu")%> <%=iogr("sinavtarih")%> <%=iogr("sinavsaat")%> <%end if%>

<% if islem="1" then sinavkodu=request.form("sinavkodu") sinavtarih=request.form("sinavtarih") sinavsaat=request.form("sinavsaat") if sinavkodu<>"" then set k_ekle = Server.CreateObject("ADODB.Recordset") k_ekle.open "SELECT* FROM sinavlar where sinavkodu="&sinavkodu&"",erdc,1,3 if k_ekle.eof then k_ekle.addnew k_ekle("sinavkodu")=sinavkodu k_ekle("sinavtarih")=sinavtarih k_ekle("sinavsaat")=sinavsaat k_ekle.update response.Redirect("sinavlar.asp") else response.Redirect("sinavlar.asp") k_ekle.close set k_ekle=Nothing end if end if end if %>