Tjena

finns det något enkelt sätt att få med antal sidor som länkar på en liten asp sida.

tänker som följer: sidan ser ut ungefär som nedan
==========================================
det finns 24 poster i basen

post 1
post 2
post 3
post 4
post 5

Nästa >>
=========================================

detta innebär ju att det finns 4 sidor till att titta på förutom den som ligger framme, skulle då alltså vilja att det ser ut som så här:

==========================================
det finns 24 poster i basen

post 1
post 2
post 3
post 4
post 5

Nästa >>

1 [2] [3] [4] [5]
=========================================

så tt man kan ta sig direkt till sidan 5 istället för att behöva klicka nästa 4 ggr, kan ju bli tradigt om de finns ex 30 sidor.

nästa funkar och nu undrar jag om man kan implementera nån bra liten kod i detta ASP-avsnittet:
==================================================================
intCurrentPost = intCurrentPost + 1
RecSet.MoveNext
Loop

if intPageId > 1 then
Response.Write " "
end if

if cint( intPageId ) < cint(RecSet.PageCount) then
Response.Write " "


end if
==================================================================

eller om ni har några andra bra förslag så tar jag ju gärna emot dom oxå.

-- synd att man inte kan ASP --

Hej Roger

En liten bas du kan utgå ifrån, "test.asp".

<%
' Declarations.
Dim pageNb, maxItemsPerPage, itemCount
Dim lStart, lEnd
Dim i

' Initialization.
pageNb = Int(Request.QueryString("page"))
maxItemsPerPage = 10
itemCount = 120

' Calculate item range.
lStart = pageNb*maxItemsPerPage
lEnd = lStart+maxItemsPerPage
if lEnd>itemCount Then lEnd=itemCount

' Print items.
For i=lStart To lEnd
 Response.Write i & "<br>"
Next

' Print "page footer".
PrintPages pageNb, itemCount, maxItemsPerPage, 2, 2

' ##########
' PRINTPAGES
'
' Parameters: pageNb          - Current page number.
'             itemCount       - Number of items.
'             maxItemsPerPage - Maximum number of items per page.
'             maxLeft         - Maximum page-indexes left to the current one (-1 = unlimited)
'             maxRight        - Maximum page-indexes right to the current one (-1 = unlimited)
'
Sub PrintPages(pageNb, itemCount, maxItemsPerPage, maxLeft, maxRight)
 Dim lEnd, itemPrinted, i, print

 ' Calculate number of pages.
 lEnd = Int(itemCount / maxItemsPerPage)

 ' Indicates whether an items has been printed or not.
 itemPrinted = False 

 ' Print.
 For i=0 To lEnd
  ' Default
  print = True

  ' Page index outside bounds?
  If maxLeft<>-1 And i<pageNb And pageNb-i>maxLeft Then print = False
  If maxRight<>-1 And i>pageNb And i-pageNb>maxRight Then print = False

  ' Print page
  If print Then
   ' Print "<<"?
   If Not itemPrinted And pageNb>0 Then Response.Write "<<&nbsp;"

   ' At least one item printed.
   itemPrinted = True

   ' Print current page?
   If i=Int(pageNb) Then
    Response.Write i
   Else
    Response.Write "[" & i & "]"
   End If

   ' Print space?
   If i<lEnd Then Response.Write "&nbsp"
  End If
 Next

 If pageNb<lEnd Then Response.Write "&nbsp;>>"
End Sub
%>

Tjena Peter
har testat fnuttinutton olika koder, har även testat din men resultatet blir detsamma, pga annan kod så får jag felmeddelande [Do without Loop] går bara inte att lägga pagern där jag vill ha den..

jag får la ge upp den funktionen, eller så får jag låta det vila och testa annan dag.

tack så hemskt mycket iaf

<b>Do without Loop</b>

Du har syntax-fel i din kod.

/ Peter

jo nog e de så, varje gång jag försöker göra en räknare så fadäsar den... utan att lägga till nån räknare funkar den klockrent, det måste bara vara nån liten kodsnutt som ska till för att det ska fungera..
'
koden efter ser ut som följande, å de e la den som fadäsar då, eller nåt

sista raderna i nästa - förra:
<% Connect.Close

End If %>

sen kommer en kodning för att visa antal klickningar:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &Server.MapPath ("tavlingar.mdb")
strSQL = "SELECT TOP 5 webadress, vinst, klick, ID FROM tavlingar ORDER BY klick DESC"
Set Recset = Conn.Execute(strSQL)
Do Until RecSet.EOF
testar =RecSet("klick")
response.write testar
response.write(" ")

Response.Write "<font size=""2"" face=""Verdana"">" & RecSet("vinst") & "</font><br><br>"

RecSet.MoveNext
Loop

%>

och jag förmodar att det är denna do - Loop som fadäsar när jag försöker lägga in kod imellan förrä - nästa och antal klick.

du kan kika på hur sidan ser ut på:
http://www.i-g.se/tavlingsbas/links_to_tavlingar.asp?ordning=tavlingsnr

tack igen

<b>sen kommer en kodning för att visa antal klickningar:</b>

Kör den koden för sig och kolla om det är den som är fel.

/ Peter

den funkar ju när jag inte lägger något annat där, men funderade faktiskt lite i dina banor... man skulle ju kunna flytta den koden till annan plats på sidan... ska testa det å se va som händer...

Flyttade koden och körde en variant på sidbläddring som jag tycker är relativt snygg och nu
fungerar det :-)
kan vi alltså konstatera att det var koden efter som ställde till det, men det måste ändå gå att ha den koden efter, ska väl bara avsluta koden före på ett riktigt sätt...