find fejlen
Er her en som kan hjælpe mig med at finde fejlen i dette programJeg har hentet programmet med database kald som ligger i samme mappe ????
jeg skal klippe programmet over på en side hvor jeg bruger filen database.asp, jeg kan ikke huske hvad man kalder de to kald, men jeg er sikker på i ved hvad jeg snakker om ?
og nu giver dem fejl.....
ADODB.Recordset fejl \'800a0cb3\'
Den handling, programmet anmodede om, understøttes ikke af provideren
på denne linje..... rs.AbsolutePage = intPage
Hvis jeg fjerner hele linjen giver den ikke fejl men virker så ikke 100%
********************************************************************
<!-- #include file=\"database.asp\" -->
<html>
<head>
<title>Recordset Paging</title>
</head>
<body>
<%
Dim objConn
Dim RS
intPage = Request(\"page\")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
Set objConn = Server.CreateObject(\"ADODB.Connection\")
Set RS = Server.CreateObject (\"ADODB.Recordset\")
objConn.Open strConnect
RS.Open \"Images\", objConn,0, 1, 2
If Not (rs.BOF Or rs.EOF) Then
\'No of Records on each Page
rs.PageSize = 3
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Response.Write \"<p><b>Page \" & intPage & \" of \" & intPageCount & \"</b></p>\"
Do While Not rs.EOF And intRecCount > 0
Response.Write \"<a href=\'\" & rs(\"kr\") & \"\'>\" & rs(\"km\") & \"</a><br><br>\"
intRecCount = intRecCount - 1
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing
Response.Write \"<p>Go to page \"
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
%>
</body></html>
