Forum
Aktif konular
Üyeler
Kurallar
Arama
Asp Yardım Asp Yardım
-
Konu lepusmorris kardeşimin yardımıyla çözüldü arkadaşlar,düzeltilmiş hali:
<%
veritabaniyolu = "a.mdb"
Set baglantimiz = Server.CreateObject("ADODB.Connection")
baglantimiz.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("a.mdb")
id = request.querystring("id")
Session("id") = id
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from tbforum where kat_id="& id &" order by id desc"
rs.Open sql, baglantimiz,1,3
if rs.eof or rs.bof then
response.write ".."
else
end if
Toplam = rs.RecordCount
If Toplam = 0 Then
Response.Write "Tabloda Kayıt Yok"
Else
intGecerliSayfa = Request.Querystring("sayfa")
If intGecerliSayfa = "" OR IsNumeric(intGecerliSayfa) = False Then intGecerliSayfa = 1
rs.PageSize =30
intSayfaSayisi= rs.PageCount
rs.AbsolutePage =intGecerliSayfa
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
%>
<% for k=1 to rs.pagesize %>
<% if rs.eof or rs.bof then exit for %>
<a href="x.asp?id=<%=rs("id")%>"><%=rs("icerik")%></a>
<%
rs.movenext : next
%>
<%
If intGecerliSayfa >1 Then %>
<a href="?id=<%=request.querystring("id")%>&sayfa=1" title="İlk Sayfa">[««]</a> <a href="<%=request.servervariables("HTTP_REFERER")%>" title="Önceki Sayfa">[«]</a>
<%
End If
%>
<%
For i = 1 to intSolGrupSayisi
If CInt(i) = (intGecerliSayfa) Then
Response.Write " <b>"
Else %>
<a href="" title="<%=i%>. Sayfa">
<%
End If
Response.Write i &".</a></b>"
Next
%>
<%
If (intSayfaAltSiniri - intSolGrupSayisi >1 ) Then Response.Write "<b>. . .</b>"
%>
<%
For i = intSayfaAltSiniri to intSayfaUstSiniri
If CInt(i) = CInt(intGecerliSayfa) Then
Response.Write " <b>"
Else %>
<a href="?id=<%=request.querystring("id")%>&sayfa=<%=i%>" title="<%=i%>. Sayfa">
<%
End If
Response.Write i &".</a></b>"
Next
%>
<%
If (intSagAltSinir - intSayfaUstSiniri >1) Then Response.Write "<b>. . .</b>"
%>
<%
For i = intSagAltSinir to intSayfaSayisi
If CInt(i) = CInt(intGecerliSayfa) Then
Response.Write " <b>"
Else %>
<a href="?id=<%=request.querystring("id")%>&sayfa=<%=i%>" title="<%=i%>. Sayfa">
<%
End If
Response.Write i &".</a></b>"
Next
%>
<%
If CInt(intGecerliSayfa) <>CInt(intSayfaSayisi) Then %>
<a href="?id=<%=request.querystring("id")%>&sayfa=<%=intGecerliSayfa+1%>" title="Sonraki Sayfa">[»]</a> <a href="?id=<%=Rs("kat_id")%>&sayfa=<%=intSayfaSayisi%>" title="Son Sayfa">[»»]</a>
<%
End If
%>
<% end if %>
-
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Cevapla