Pageing af sider!!

Ja men det var jo kun en lille det af det... :)

Det letesteer at copy/paste koden fra det eks du har linket til ind i en ny fil som du kan rette i.


Disse to linier fra eks:
strSQL = "SELECT LinkURL FROM Links"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("/aspdigital/db/demo.mdb")

Ændre du til din egene conecction del:
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConString


-------
Så tilrette du SQL sætningen:
strSQL = "SELECT LinkURL FROM Links"

Til din egen:
varID = 1
strSQL = "SELECT * FROM annoncer WHERE u_kategoriId = " & IDnr & " AND typeindlaeg =" & varID

Dernest rette du alle links til så de metager IDnr fra side til side så linier med links rette, fra dette til:

Response.Write "<p>Gå til side "
For intNum = 1 To intPageCount
    Response.Write "<a href=paging.asp?page=" & intNum & ">" & intNum & "</a> "
Next

Til Dette:

Response.Write "<p>Gå til side "
For intNum = 1 To intPageCount
    Response.Write "<a href=paging.asp?kategori=" & IDnr & "&page=" & intNum & ">" & intNum & "</a> "
Next


Hov glemte lige siden skal hedde paging.asp som det er lavet i øjeblikket.

siden min pageing skal være på hedder u_kategori_all.asp

jeg har skrevet sådan som der står nedenfor nu, men jeg får denne fejl??


ADODB.Recordset fejl '800a0bb9'

Argumenterne har en forkert type eller er uden for det angivne område, eller der er opstået en konflikt mellem dem.

/u_kategori_all.asp, linje 343




<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
End If

Set rs = Server.CreateObject("ADODB.RecordSet")
varID = 1
strSQL = "SELECT * FROM annoncer WHERE u_kategoriId = " & IDnr & " AND typeindlaeg =" & varID
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConString
rs.Open strSQL, 1  'DETTE ER LINIE 343!!
If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 10
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount
    Response.Write "<p><b>Side " & intPage & " af " & intPageCount & "</b></p>"
    Do While Not rs.EOF And intRecCount > 0
        Response.Write rs("LinkURL") & "<br>"
    intRecCount = intRecCount - 1
    rs.MoveNext
    Loop
End If
rs.Close
Set rs = Nothing

Response.Write "<p>Gå til side "
For intNum = 1 To intPageCount
    Response.Write "<a href=paging.asp?kategori=" & IDnr & "&page=" & intNum & ">" & intNum & "</a> "
Next

Response.Write "<p>"
If Clng(intPage) > 1 Then
    Response.Write "<a href=paging.asp?kategori=" & intPage - 1 & ">&lt;&lt;</a>"
Else
    Response.Write "&lt;&lt;"
End If

Response.Write "&nbsp;"

If Clng(intPage) < Clng(intPageCount) Then
    Response.Write "<a href=paging.asp?kategori=" & intPage + 1 & ">&gt;&gt;</a> "
Else
    Response.Write "&gt;&gt;"
End If
%>

du skal lige hvade denne med før varID = 1

IDnr = request.querystring("kategori")

Hvis siden hedder noget andet så ret denne linie:

  Response.Write "<a href=paging.asp?kategori=" & IDnr & "&page=" & intNum & ">" & intNum & "</a> "

til:
  Response.Write "<a href=?kategori=" & IDnr & "&page=" & intNum & ">" & intNum & "</a> "

Du skal også rette linket til for << (forrige) og >> (næste) så kategorie bliver overført rigtigt via liket.

Ok, det har jeg rettet nu, men får stadig denne fejl:

ADODB.Recordset fejl '800a0bb9'

Argumenterne har en forkert type eller er uden for det angivne område, eller der er opstået en konflikt mellem dem.

/HOVEDPROJEKT/u_kategori_all.asp, linje 344

Hvad skal der fx. stå her?

Response.Write rs("LinkURL") & "<br>" (LinkURL eksistere jo ikke mere??)


Sådan ser mine koder ud nu:

<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
End If

Set rs = Server.CreateObject("ADODB.RecordSet")
IDnr = request.querystring("kategori")
varID = 1
strSQL = "SELECT * FROM annoncer WHERE u_kategoriId = " & IDnr & " AND typeindlaeg =" & varID
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConString
rs.Open strSQL, 1
If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 10
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount
    Response.Write "<p><b>Side " & intPage & " af " & intPageCount & "</b></p>"
    Do While Not rs.EOF And intRecCount > 0
        Response.Write rs("LinkURL") & "<br>"
    intRecCount = intRecCount - 1
    rs.MoveNext
    Loop
End If
rs.Close
Set rs = Nothing

Response.Write "<p>Gå til side "
For intNum = 1 To intPageCount
    Response.Write "<a href=u_kategori_all.asp?kategori=" & IDnr & "&page=" & intNum & ">" & intNum & "</a> "
Next

Response.Write "<p>"
If Clng(intPage) > 1 Then
    Response.Write "<a href=u_kategori_all.asp?kategori=" & intPage - 1 & ">&lt;&lt;</a>"
Else
    Response.Write "&lt;&lt;"
End If

Response.Write "&nbsp;"

If Clng(intPage) < Clng(intPageCount) Then
    Response.Write "<a href=u_kategori_all.asp?kategori=" & intPage + 1 & ">&gt;&gt;</a> "
Else
    Response.Write "&gt;&gt;"
End If
%>

du skal også huske din egen  ConString  den ser ud som om den ikke er med i scriptet.

Response.Write rs("LinkURL") & "<br>" (LinkURL eksistere jo ikke mere??)

Skal skiftes ud med en eller flere af dine egen kolonner fra databasen..
Nå jeg er nød til at smutte for i aften håber du kommer vidre med det..

Min conString ligger på siden, men er i en include file i toppen af siden!

Hvad skal der stå i stadet for LinkURL, hvad henter den??

Jeg arbejder lidt videre, og skriver igen hvis jeg har fundet ud af mere!

denne:
Response.Write rs("LinkURL")

Ud skriver en kolonne fra databasen og det skal du ændre til det du vil havde skrevet ud på siden

Hej, jeg har bøvlet og bøvlet med scriptet og har stadig ikke fundet ud af det. Derfor søgte jeg på pageing og fandt også denne http://activedeveloper.dk/aspdigital/2001112301.asp som er til Mysql som jeg jo bruger.

Jeg ved ikke om du kander til den, men her har jeg da fået lidt af det til at virke, men vil gerne have lidt hjælp hvis du vil??

Nå - jeg prøver noget andet, da jeg tror jeg har et eks liggende jeg kan kigge lidt på!