|
|
|
<%
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)
pasif=0
set sorubul6 = Server.CreateObject("ADODB.Recordset")
sorubul6.open "SELECT* FROM aktarim where aktarim="&pasif&" order by idaktar asc",erdc,1,3
do while not sorubul6.eof
set dersbul = Server.CreateObject("ADODB.Recordset")
dersbul.open "SELECT* FROM dersler where dersadi='"&sorubul6("dersadi")&"'",erdc,1,3
if not dersbul.eof then
set ogretmenbul = Server.CreateObject("ADODB.Recordset")
ogretmenbul.open "SELECT* FROM ogretmenler where adisoyadi='"&sorubul6("adi")&"'",erdc,1,3
if not ogretmenbul.eof then
set sinifbul = Server.CreateObject("ADODB.Recordset")
sinifbul.open "SELECT* FROM siniflar where sinif='"&sorubul6("sinif")&"'",erdc,1,3
if not sinifbul.eof then
set sinifd = Server.CreateObject("ADODB.Recordset")
sinifd.open "SELECT* FROM sinifders",erdc,1,3
sinifd.addnew
sinifd("idsinif")=sinifbul("idsinif")
sinifd("idders")=dersbul("idders")
sinifd("sinifadi")=sorubul6("sinif")
sinifd("dersadi")=sorubul6("dersadi")
sinifd("idogretmen")=ogretmenbul("idogretmen")
sinifd("ogretmenadi")=sorubul6("adi")
sinifd("duzey")=sorubul6("duzey")
sinifd.update
sinifd.close
sorubul6("aktarim")=1
sorubul6.update
end if
end if
end if
sorubul6.movenext
loop
sorubul6.close
%>
|
|
