<% @ Language=VBScript %>
<% Option Explicit %>
<% Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 2
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "No-Store"
Dim iHaberSayisi
Dim intBasGun
Dim intBasAy
Dim intBasYil
Dim Aralik
Dim intSayfaAltSiniri
Dim intSayfaUstSiniri
Dim intSolGrupSayisi
Dim intSagAltSinir
Dim intUstKategori
If LinkTuru = 1 Then
intKategoriID = Temizle(Trim(Request.QueryString("katID")))
intGecerliSayfa = Temizle(Trim(Request.QueryString("s")))
Else
Set strURL = Request.ServerVariables("QUERY_STRING")
strBolum = Split(strURL,"/")
If UBound(strBolum) >= 3 + KarakterBul(strScriptYolu, "/") Then strKonu = Temizle(strBolum(3 + KarakterBul(strScriptYolu, "/")))
strKonu = Split(strKonu,"-")
intKategoriID = strKonu(0)
intGecerliSayfa = strKonu(1)
End If
If intGecerliSayfa = "" Or IsNumeric(intGecerliSayfa) = False Then intGecerliSayfa = 1
intGecerliSayfa = CInt(intGecerliSayfa)
blnKategoriVar = True
If intKategoriID <> "" AND IsNumeric(intKategoriID) Then
strGecerliKategori = KategoriBul(intKategoriID)
Else
blnKategoriVar = False
End If %>
<% If blnKategoriVar Then Response.Write strGecerliKategori &" - " End If %><%=strSiteAdi%>
<% If blnKategoriVar Then
intUstKategori = UstKategoriBul(intKategoriID)
kdFonksiyon.Open "SELECT COUNT(haberID) FROM tblHaberler WHERE durum = "& strDBTrue &" AND kategori = "& intKategoriID &"", adoCon, 1, 3
iHaberSayisi = CInt(kdFonksiyon(0))
kdFonksiyon.Close
SQL = "SELECT haberID, kategori, baslik, tarih, onay, ozet, kucuk_resim, resim FROM tblHaberler WHERE durum = 1 AND kategori = "& intKategoriID &" ORDER BY tarih DESC"
SQL = SQL & " LIMIT "& (intHaberSayisi*intGecerliSayfa)-(intHaberSayisi) &", "& intHaberSayisi
kdGenel.ActiveConnection = adoCon
kdGenel.CursorType = 3
kdGenel.CursorLocation = 3
kdGenel.Open SQL
If Not kdGenel.Eof Then
intSayfaSayisi = Yuvarla(CInt(iHaberSayisi) / CInt(intHaberSayisi))
If intGecerliSayfa > intSayfaSayisi Then intGecerliSayfa = intSayfaSayisi
intLooper = 0
Do While Not kdGenel.Eof AND intLooper < intHaberSayisi
intLooper = intLooper + 1 %>
<% If intSayfaSayisi > 1 Then
Aralik = 3
intSayfaAltSiniri = intGecerliSayfa - Aralik
intSayfaUstSiniri = intGecerliSayfa + Aralik
intSolGrupSayisi = 1 + Aralik
intSagAltSinir = intSayfaSayisi - Aralik
If (intSayfaUstSiniri > intSayfaSayisi) Then
intSayfaAltSiniri = intSayfaSayisi - (3 * Aralik)
intSayfaUstSiniri = intSayfaSayisi
End If
If (intSayfaAltSiniri <= 0) Then
intSayfaAltSiniri = 1
intSayfaUstSiniri = intSayfaAltSiniri + (3 * 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("←")
End If
For intLooper = 1 to intSolGrupSayisi
If CInt(intLooper) = intGecerliSayfa Then
Response.Write ""& intLooper &" "
Else
Response.Write(""& intLooper &"")
End If
Next
If (intSayfaAltSiniri - intSolGrupSayisi > 1 ) Then Response.Write "..."
For intLooper = intSayfaAltSiniri to intSayfaUstSiniri
If CInt(intLooper) = CInt(intGecerliSayfa) Then
Response.Write ""& intLooper &""
Else
Response.Write(""& intLooper &"")
End If
Next
If (intSagAltSinir - intSayfaUstSiniri > 1) Then Response.Write "..."
For intLooper = intSagAltSinir to intSayfaSayisi
If CInt(intLooper) = CInt(intGecerliSayfa) Then
Response.Write ""& intLooper &""
Else
Response.Write(""& intLooper &"")
End If
Next
If intGecerliSayfa <> intSayfaSayisi AND intSayfaSayisi > 1 Then
Response.Write("→")
End If
Response.Write ""
End If
Else
Response.Write "Bu kategoriye henüz haber eklenmedi."
End If
kdGenel.Close
Else
Response.Write("Yanlış kategori numarası seçtiniz.")
End If %>
" alt="<%=kdGenel("baslik")%>" />