Deneme şansım olmadı ama çalışması lazım.
<!-- #include file=header.inc !-->
<% If Session("AdminOk") = True Then %>
<%
intGecerliSayfa =Trim(Request.QueryString("s"))
If intGecerliSayfa = "" Or IsNumeric(intGecerliSayfa) = False Then intGecerliSayfa = 1
intGecerliSayfa = CInt(intGecerliSayfa)
Set ConnData = Server.CreateOBject("ADODB.Connection")
Set RSData = Server.CreateObject("ADODB.RecordSet")
Yol = Server.MapPath("data/ariza.mdb")
ConnData.Open ("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Yol)
If Request.QueryString("sDurum") = "1" Then
SQLStr = "Select * From arizatakip ORDER BY durum"
vSort = "3"
Else
if Request.QueryString("sFisNo") = "1" Then
SQLStr = "Select * From arizatakip ORDER BY FisNo"
vSort = "2"
Else
If Request.QueryString("sGTarih") = "1" Then
SQLStr = "Select * From arizatakip ORDER BY GelisTarihi"
vSort= "4"
Else
SQLStr = "Select * From arizatakip ORDER BY ArizaNo"
vSort = "1"
End If
End If
End If
RSData.Open SQLStr, ConnData, 3
%>
<style type="text/css">
<!--
.style1 {
color: #FFFFFF;
font-weight: bold;
}
#content .postnav {
clear: both;
padding: 10px 0 20px;
}
#content .postnav ul {
list-style-type: none;
}
#content .postnav ul li {
float: left;
font-weight: bold;
padding: 2px;
font-size: 0.9em;
font-family: Verdana;
}
#content .postnav ul li a {
display: block;
padding: 7px 10px;
background-color: #9E9E9D;
color: #ffffff;
text-decoration: none;
border: 0 !important;
}
#content .postnav ul li a:hover {
background-color: #234566;
}
#content .postnav-gecerli {
display: block;
padding: 6px 10px;
color: #000000;
text-decoration: none;
border: 1px solid #234566;
}
-->
</style>
<% if Request.QueryString("Ok") = 1 Then Response.Write "<center><font color=red><b>Ürün Baþarýyla Güncellemiþtir</b></font></center>" %>
<% if Request.QueryString("Sil") = 1 Then Response.Write "<center><font color=red><b>Ürün Baþarýyla silindi</b></font></center>" %>
<table border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td colspan="2"><img src="../images/logo.gif" width="215" height="72"></td>
</tr>
<tr>
<td height="10" colspan="2" bgcolor="#000000"> </td>
</tr>
<tr>
<td width="107" height="379" align="center" valign="top" bgcolor="#DAD3FE">
<!-- #include file=menu.asp !-->
</td>
<td valign="top">
<TABLE border=0 cellPadding=1 cellSpacing=2 align=center bgcolor=#ffffff class="nice">
<TR class="style1 nice" bgcolor=#DAD3FE>
<TD width=30 height=20 align=center><b><a href=archive.asp>No<%if vSort = "1" Then Response.Write "<img src=../images/arrow.gif border=0>"%></b></TD>
<TD height="20" align=center class=linkbold><b>SeriNo</b></TD>
<TD width=50 height="20" align=center><b><a href=archive.asp?sFisno=1>FiþNo<%if vSort = "2" Then Response.Write "<img src=../images/arrow.gif border=0>"%></a></b></TD>
<TD width=120 height="20" align=center class=linkbold><b>Ürün Adý</b></TD>
<TD width=80 height="20" align=center><a href=archive.asp?sGTarih=1>Teslim Tarihi<%if vSort = "4" Then Response.Write "<img src=../images/arrow.gif border=0>"%></a></TD>
<TD width=250 height="20" align=center class=linkbold> <b>Açýklama</b></TD>
<TD width=80 height="20" align=center class=linkbold> <b>Firma</b></TD>
<TD width=80 height="20" align=center class=linkbold> <b>Teslim Alan</b></TD>
<TD width=80 height="20" align=center class=linkbold> <b>Ücret</b></TD>
</tr>
<%
icerikSayisi= "10" 'Bir sayfada kaç içerik olacak.
If Not RSData.Eof Then
intSayfaSayisi = RSData.PageCount
RSData.PageSize = CInt(icerikSayisi)
RSData.AbsolutePage = intGecerliSayfa
If intGecerliSayfa > intSayfaSayisi Then intGecerliSayfa = intSayfaSayisi
intLooper = 0
Do While Not RsData.Eof AND intLooper < icerikSayisi
intLooper = intLooper + 1
if RsData("Teslimat") = True Then
%>
<TR <% a = a + 1
if RsData("Durum") = False Then
Response.Write "bgcolor=#FEDBDB"
Else
if a mod 2 Then Response.Write "bgcolor=#f7f7f7" else Response.Write "bgcolor=#ffffff" End If
End if
%>>
<TD align=center height=18 class=nice><font color=red><b><%=RsData("ArizaNo")%></b></font></TD>
<TD align=center class=nice><%=RsData("SeriNo")%></TD>
<TD align=center class=nice><b><a href=viewrecord.asp?FisNo=<%=RsData("FisNo")%>><%=RsData("FisNo")%></a></b></TD>
<td class=nice> <%=RsData("UrunAdi")%> - <%=RsData("Marka")%>
<TD align=center class=nice><%=RsData("TeslimTarihi")%></TD>
<TD class=nice> <%=RsData("Aciklama")%></TD>
<TD class=nice> <%=RsData("FirmaAdi")%></TD>
<TD class=nice> <%=RsData("TeslimAlan")%></TD>
<TD class=nice> <%=RsData("Ucret")%> TL</TD>
</TR>
<% end if
kdGenel.Movenext
Loop %>
<%
<% If intSayfaSayisi > 1 Then %>
<%
Response.Write "<center><div id=""content"" class=""postnav""><ul>"
Aralik = 2
intSayfaAltSiniri = intGecerliSayfa - Aralik
intSayfaUstSiniri = intGecerliSayfa + Aralik
intSolGrupSayisi = 1 + Aralik
intSagAltSinir = intSayfaSayisi - Aralik
If (intSayfaUstSiniri > intSayfaSayisi) Then
intSayfaAltSiniri = intSayfaSayisi - (2 * Aralik)
intSayfaUstSiniri = intSayfaSayisi
End If
If (intSayfaAltSiniri <= 0) Then
intSayfaAltSiniri = 1
intSayfaUstSiniri = intSayfaAltSiniri + (2 * Aralik)
If intSayfaUstSiniri >= intSayfaSayisi Then intSayfaUstSiniri = intSayfaSayisi
End If
If intSolGrupSayisi >= intSayfaAltSiniri Then intSolGrupSayisi = intSayfaAltSiniri - 1
If intSagAltSinir <= intSayfaUstSiniri Then intSagAltSinir = intSayfaUstSiniri + 1
If intGecerliSayfa > 1 Then
Response.Write("<li><a href=""?s="&intGecerliSayfa-1&""" class=""sayfala"">Önceki</a></li>")
End If
For intLooper = 1 to intSolGrupSayisi
If CInt(intLooper) = intGecerliSayfa Then
Response.Write "<li><span class=""postnav-gecerli"">"& intLooper &"</span></li>"
Else
Response.Write("<li><a href=""?s="&intLooper&""" class=""sayfala"">"& intLooper &"</a></li>")
End If
Next
If (intSayfaAltSiniri - intSolGrupSayisi > 1 ) Then Response.Write "<li>. . .</li>"
For intLooper = intSayfaAltSiniri to intSayfaUstSiniri
If CInt(intLooper) = CInt(intGecerliSayfa) Then
Response.Write "<li><span class=""postnav-gecerli"">"& intLooper &"</span></li>"
Else
Response.Write("<li><a href=""?s="&intLooper&""" class=""sayfala"">"& intLooper &"</a></li>")
End If
Next
If (intSagAltSinir - intSayfaUstSiniri > 1) Then Response.Write "<li>. . .</li>"
For intLooper = intSagAltSinir to intSayfaSayisi
If CInt(intLooper) = CInt(intGecerliSayfa) Then
Response.Write "<li><span class=""postnav-gecerli"">"& intLooper &".</span></li>"
Else
Response.Write("<li><a href=""?s="&intLooper&""" class=""sayfala"">"& intLooper &"</a></li>")
End If
Next
If intGecerliSayfa <> intSayfaSayisi AND intSayfaSayisi > 1 Then
Response.Write("<li><a href=""?s="&intGecerliSayfa + 1&""" class=""sayfala"">Sonraki</a></li>")
End If
Response.Write "</ul></div></center><br /><br />"
End If
Else
Response.Write "<p>İçerik yok.</p>"
End If
RSdata.Close
Set RSdata = Nothing
Set ConnData = Nothing
Else
Response.Redirect "default.asp?Error=1"
End if %>
<tr><td colspan=11 bgcolor=DAD3FE height=20></td></tr>
</TABLE>
</td>
</tr>
<tr>
<td height="10" colspan="2" bgcolor="#000000"> </td>
</tr>
</table>
</body>
</html>