kullandıgım asp tagları ----- olan yerlerde tablolar var
<%
Set izlemelisin=Server.CreateObject("ADODB.Connection")
izlemelisin.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("xxx.mdb")
%>
----------------------------
<%
pn = Request.QueryString("pn")
kullanici_tercihi = request.form("kullanici_tercihi")
if kullanici_tercihi <> "" then
session("kult") = kullanici_tercihi
end if
harf = request.querystring("harf")
%>
--------------------------
<%
if harf = "" then
set levent=server.CreateObject("Adodb.Recordset")
sql="select * from download order by downid desc"
levent.open sql,izlemelisin,1,3
scriptler=levent.recordcount
end if
toplamp3 = levent.recordcount
IF pn = "" then pn = 1 ELSE pn = CInt(pn) END IF
if session("kult") = "" then
levent.pagesize = 12
else
levent.pagesize = session("kult")
end if
levent.absolutepage = pn
sayfasa = levent.PageCount
%>
---------------------------------
<%
FOR i = ( pn - 1 ) * levent.pagesize + 1 TO levent.pagesize + ( pn - 1 ) * levent.pagesize
IF levent.eof THEN EXIT FOR
%>
----------------------------------------
<%
levent.movenext
if mode=1 then
mode=2
else
mode=1
end if
next
%>
---------------------------------------------
<% m = pn - 1 %>
<% if m = 0 then %>
<font size="2" color="<%=renkfour%>"><- Önceki|
<% else %>
<a href="son-videolar.asp?pn=<%=m%>" title="'<%=m%>' Nolu Sayfa" onmouseover="window.status='<%=m%> Nolu Sayfa';return true;"><font color="<%=renkthree%>" size="2"><- Önceki|</font></a><font color="<%=renkthree%>" size="2"><% end if %>
<% for i=1 to sayfasa %>
<% IF i = pn then %>
<font color="<%=renkfour%>"><%=i%>
<% ELSE %>
<a href="son-videolar.asp?pn=<%=i%>" title="'<%=i%>' Nolu Sayfa" onmouseover="window.status='<%=i%> Nolu Sayfa';return true;"><font color="<%=renkthree%>" size="2"><%=i%></font></a><font color="<%=renkthree%>" size="2">
<% END IF
NEXT %>
------------------------------------
<% n = pn + 1 %>
<% if n = levent.pagecount + 1 then %>
<font color="<%=renkfour%>">|Sonraki ->
<% else %>
<a href="son-videolar.asp?pn=<%=n%>" title="'<%=n%>' Nolu Sayfa" onmouseover="window.status='<%=n%> Nolu Sayfa';return true;"><font color="<%=renkthree%>" size="2">|Sonraki -></font></a><font color="<%=renkthree%>" size="2"><% end if %>
</font></font>
</td>
-------------------------------------
<%
set levent = server.createobject("adodb.recordset")
sql="select * from kategoriler order by kateid desc"
levent.open sql,izlemelisin,1,3
%>
-----------------------------------
<%
i=1
do while i<9 and not levent.eof
%>
-------------------------------------------
<%
levent.movenext
i=i+1
if mode=1 then
mode=2
else
mode=1
end if
loop
%>
---------------------------------
<%
set levent = server.createobject("adodb.recordset")
sql = "select * from download order by hit desc "
levent.open sql, izlemelisin, 1, 3
%>
----------------------------
<%
i=1
do while i<9 and not levent.eof
%>
----------------------------------
<%
levent.movenext
i=i+1
if mode=1 then
mode=2
else
mode=1
end if
loop
%>
---------------------------------
<%
levent.close
set levent=nothing
izlemelisin.close
set izlemelisin=nothing
%>