<%
Set objCn = Server.CreateObject ("ADODB.Connection")
Set objRs = Server.CreateObject ("ADODB.Recordset")
objCn.ConnectionString = "Data Source="& Server.MapPath("./cgi-bin/ercsr02.mdb")
objCn.Provider = "Microsoft.JET.OLEDB.4.0"
objCn.Open
%>
<%%>
<% pagename="internet" %>
Satan Reklam :: İnternet Reklamları
<%
sql="SELECT * FROM BANNERS WHERE PAGENAME='"& pagename & "'"
objRs.open sql,objCn,1,3
if not objRs.EOF then
%>
" >" width="468" height="60" border="0">
<%
end if
objRs.Close()
%>
<% if pagename="gulenelma" then %>
<%
sql=" SELECT * FROM TV WHERE ID IN (SELECT MAX(ID) FROM TV)"
objRS.open sql,objCN,1,3
%>
<%
sql=" SELECT * FROM INTERNET ORDER BY NEW DESC,PRIORITY DESC, DATE DESC"
objRS.open sql,objCN,1,3
if not objRS.eof then
%>
<%
maxPageCap=5
if trim(request.querystring("page"))="" then
curpage=1
else
curPage=cint(trim(request.querystring("page")))
end if
recCo=objRs.recordcount
x=(curpage-1)*maxPageCap
if x>recCo then
response.write "hata"
response.end
end if
objRs.move x
co=0
co1=(curPage-1)*maxPageCap
%>
<%if curPage>1 then%>
<% else %>
<%end if%>
sayfa
<%=curPage %>
<%if (curPage*maxPageCap)
<% else %>
<%end if%>
<%
while not objrs.eof and co
<%=objRS("TITLE")%>
<% if objRs("NEW")= 1 then %>
<% end if %>
<% if objRS("FLASH")=0 then %>
<%=objRS("IMG_NAME")%>" border="0" vspace="3" width="468" height="60">
<% else %>
<% end if %>
<%
co=co+1
co1=co1+1
objRS.movenext
wend
end if
objRs.close
%>
<%end if%>
<% end if %>
