Hjälp med arkiv..

skulle vilja fixa ett arkiv som ser ut så här Arkiv:[1][2][3][4][5][>>]

(det skall visas 5 sidor därefter när man trycker på >> så väljs 6,7,8,9,10 osv...

Vide har hjälpt mig med en funktion... och koden ser ut så här...

 
<link rel=stylesheet href="../css/stilar.css" type="text/css">
<br>
<table width="679" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td width="217" valign="middle" align="center"><img src="fiske/bilder/fluga.jpg" width="198" height="184"></td>
    <td width="462"> 
      <table width="100%" border="0" cellspacing="0" cellpadding="0" background="bilder/subject.gif">
        <tr> 
          <td width="3">&nbsp;</td>
          <td width="673"><span class="Underrubrik">&nbsp;Fisketurer:</span></td>
          <td width="3">&nbsp;</td>
        </tr>
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0" background="bilder/subject1.gif">
        <tr> 
          <td>&nbsp;</td>
        </tr>
      </table>
      <%
Session.LCID = 1053

Set Connect = Server.CreateObject("ADODB.Connection")
MdbFilePath =  "c:\inetpub\scripts\nyamcdz.mdb"
Connect.Open "driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"

Page_Size = 5

If Request("Page") = "" Then
  Current_Page = 1
Else
  Current_Page = CInt(Request("Page"))
End If

Set RecSet=Server.CreateObject("ADODB.RecordSet")

RecSet.CursorLocation = 3
RecSet.PageSize = Page_Size

SQL = "Select * From fisketurer ORDER BY adat DESC"

RecSet.Open SQL, Connect, 3, 1, &H0001

Page_Count = RecSet.PageCount

If 1 > Current_Page Then Current_Page = 1
If Current_Page > Page_Count Then Current_Page = Page_Count

RecSet.AbsolutePage = Current_Page

Do While RecSet.AbsolutePage = Current_Page And Not RecSet.EOF
%>
      <table width="100%" border="0" cellspacing="0" cellpadding="0" background="bilder/subject1.gif">
        <tr> 
          <td width="2">&nbsp;</td>
          <td width="310"><a href="#top"><%=Recset("subject")%></a></td>
          <td width="78"><%=Recset("adat")%></td>
          <%
select case cstr(recset("fisk"))
case "1": Bildx = "fiske/bilder/2.gif"
case "3": Bildx = "fiske/bilder/3.gif"
case "2": Bildx = "fiske/bilder/1.gif"
end select
%>
          <td width="33" valign="middle" align="center"><img src="<%=Bildx%>"> 
            <div align="left"></div>
          </td>
          <%
select case cstr(recset("foto"))
case "ja" : BildY = "fiske/bilder/foto.gif"
case "nej": BildY = "bilder/subject1.gif"
end select
%>
          <td width="33" align="center" valign="middle"><img src="<%=BildY%>"> 
            <div align="left"></div>
          </td>
          <td width="6">&nbsp;</td>
        </tr>
      </table>
      <%
RecSet.MoveNext
Loop

RecSet.Close
Set RecSet = Nothing
Connect.Close
Set Connect = Nothing

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"
antal = 0
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM fisketurer ORDER BY Id DESC"
RecSet.Open Addera, Connect, 3, 3 
Do Until RecSet.EOF 	
antal = antal + 1
RecSet.MoveNext
Loop
RecSet.Close
Connect.Close
%>
         
      <table width="100%" border="0" cellspacing="0" cellpadding="0" background="bilder/subject1.gif">
        <tr>
          <td>&nbsp;</td>
        </tr>
      </table>
      
      <table width="100%" border="0" cellspacing="0" cellpadding="0" background="bilder/subject1.gif">
        <tr> 
          <td width="185"align="right">&nbsp; </td>
          <td width="272"align="right"> 
<%
Function getLinks(howmanypages,currentpage)
 	if currentpage > 1 then 
 	' skriv ut länk "<<"
        end if

        If currentpage >= 3 Then
		For i = currentpage - 2 To currentpage + 2
			tmpVar = tmpVar & "<a href=""default.asp?sida1=arkivturer&"&i&""">["&i&"]</a>"
			If howmanypages = currentpage Then Exit For
		Next
        Else
		For i = 1 To howmanypages
			tmpVar = tmpVar & "<a href=""default.asp?sida1=arkivturer&"&i&""">["&i&"]</a>"
		Next
	End If
	
	getLinks = tmpVar
	
	if currentpage < howmanypages then
        ' skriv ut ">>"-länk
        end if

End Function

response.write getLinks(Current_Page, Page_Count)

%>
          </td>
          <td width="5"align="right">&nbsp;</td>
        </tr>
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0" background="bilder/subject1.gif">
        <tr> 
          <td>&nbsp;</td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<br>

detta funkar fint... MEN det blir bara [1][2][3] osv i all oändlighet...

Vad ska jag göra med detta för att få ut informationen länkarna i detta fall så som jag vill ha dem?

Mcyket tacksam för hjälp.

------------------
McD- Burgers for the people!

www.McDz.net www.SweQuake.com