<%Response.Buffer = True 'Make sure this page is not cached 'Do not remove this stuff '------------- Response.Expires = 0 Response.ExpiresAbsolute = Now() - 2 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "private" set erdc = Server.CreateObject("ADODB.Connection") zahide = "Provider = Microsoft.Jet.OLEDB.4.0;data source = "&Server.MapPath("datdat/liste1erc.mdb")&";" erdc.open(zahide) on error resume next set snvl= Server.CreateObject("ADODB.Recordset") snvl.open "ALTER TABLE ogrenciler add column devamsiz numeric(1) default 0 ",erdc,1,3 set ogr= Server.CreateObject("ADODB.Recordset") ogr.open "Select* From ogrenciler order by idogrenci asc",erdc,1,3 do while not ogr.eof ogr("devamsiz")=0 ogr.update ogr.movenext loop ogr.close %>