<% Response.Buffer = True %>
<%
Set Sur = Server.CreateObject("ADODB.Connection")
Sur.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/xxyexx.mdb")
Set gir = server. CreateObject("ADODB.Recordset")
kayit = "Select * from haberler where onay = False order by tarih"
gir.Open kayit,sur,1,3
if gir.recordcount>0 then
if gir("tarih")< now() then gir("onay") = True
gir.Update
gir.close
end if
%>
<%
Set Sur2 = Server.CreateObject("ADODB.Connection")
Sur2.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/kare.mdb")
Set gir2 = server. CreateObject("ADODB.Recordset")
kayit2 = "Select * from KARE where onay = False order by kimlik"
gir2.Open kayit2,sur2,1,3
if gir2.recordcount>0 then
if gir2("tarih")< now() then gir2("onay") = True
gir2.Update
gir2.close
end if
%>
<%
set rsx = Server.CreateObject("ADODB.RecordSet")
SQL="select * from haberler where onay = True order by haber_id desc"
rsx.open SQL,Baglantim,3,3
git = Request.QueryString("git")
if git="" then
git=1
end if
%>
<% if rsx.eof or rsx.bof then
response.write "
Hiç Soru Yok !
"
else %>
<%
rsx.pagesize = asp("A_NEWS_RECORD")
rsx.absolutepage = git
sayfa = rsx.pagecount
for i=1 to rsx.pagesize
if rsx.eof or rsx.bof then exit for
%>
