Det var det jeg fandt ud af at det hed ;-) Lidt nemmere at finde det, når man har ordet for det... Jeg kan dog ikke få det til at virke.. Har prøvet lidt forskelligt, men er ret ny inden for ASP, så fejlen ligger nok i mine skills - eller mangel på samme.
Jeg prøvede nemlig at copy/paste fra en side samt rette lidt i det, men det er ikke alt hvad der står som jeg kender funktionen af eller kan gennemskue... Derfor kan der sagtens være noget som står forkert, slet ikke burde være der eller noget som burde være der og ikke står der..
Jeg har prøvet lidt forskelligt, og endte med at have rodet det her sammen, som sagt med lidt fra internettet samt lidt panik forsøg fra egen side.. Hvor langt ved siden af er det?
Koden:
<!--#include file="adovbs.inc"-->
<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
Dim Myconn, objRS
Set MyConn = Server.CreateObject("ADODB.Connection")
Myconn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.MapPath("test.mdb") & ";"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open "produkt", MyConn, , , adCmdTable
%>
<html>
<head>
<meta name="GENERATOR" Content="ASP Express 2.0">
<title>produkter</title>
</head>
<body>
<table border="1">
<%
If Not (objRS.BOF Or objRS.EOF) Then
objRS.PageSize = 10
objRS.AbsolutePage = intPage
intRecCount = objRS.PageSize
intPageCount = objRS.PageCount
%>
<tr>
<td>
<%
Response.Write "<p><b>Side " & intPage & " af " & intPageCount & "</b></p>"
%>
</td>
</tr>
<%
Do while not objRS.EOF And intRecCount > 0
If objRS("hp") = true then
%>
<tr>
<td><% response.write objRS("id")%></td>
<td><% response.write objRS("nvn")%></td>
<td><% response.write objRS("mdl")%></td>
<td><img src="<% response.write objRS("pic")%>"></td>
<td><% response.write objRS("hp")%></td>
</tr>
<%
intRecCount = intRecCount - 1
End If
objRS.MoveNext
Loop
End If
%>
<tr>
<td>
<%
Response.Write "<p>Side: "
For intNum = 1 To intPageCount
Response.Write "<a href=paging.asp?page=" & intNum & ">" & intNum & "</a> "
Next
Response.Write "<p>"
If Clng(intPage) > 1 Then
Response.Write "<a href=paging.asp?page=" & intPage - 1 & "><<</a>"
Else
Response.Write "<<"
End If
Response.Write " "
If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=paging.asp?page=" & intPage + 1 & ">>></a> "
Else
Response.Write ">>"
End If
%>
</td>
</tr>
</table>
</body>
</html>
<%
objRS.close
Set objRS = Nothing
MyConn.Close
Set MyConn = Nothing
%>
PS.. Jeg får denne fejl:
"
ADODB.Recordset error '800a0cb3'
Current Recordset does not support bookmarks. This may be a limitation of the provider or of the selected cursortype.
/lordpoke/index.asp, line 32
"
Newbie på dybt vand søger hjælp :S
