Jag får detta felmeddelande: Det ser ut som om du skapar ditt recordset felaktigt. Då måste ange Nu håller jag med putte. Man ska hellre bara öppna den Statisk, Readonly om man inte ska modifiera data. Dumta att slösa resurser på ett Keyset , LockOptimistic. Hej allesammans..Paging problem...
Feltyp:
ADODB.Recordset (0x800A0CB3)
Objektet eller providern kan inte utföra den begärda åtgärden.
/nya_aspsidan/tips.asp, line 63
För denna kod:
<code>
<%
' Lista tipsen och trixen
strAction = Request.QueryString("action")
intPage = Request.QueryString("sida")
IF intPage = "" Then intPage = 1
'******************** HÄMTAR RÄTT SQLSATS ***********************
If strAction = "popualar" Then
SQL = "SELECT * FROM tips_trix ORDER BY visits DESC"
Else
SQL = "SELECT * FROM tips_trix ORDER BY tips_date DESC"
End If
'****************************************************************
Set RS = server.CreateObject("ADODB.RecordSet")
RS.Open SQL, Con
RS.PageSize = 2
RS.AbsolutePage = intPage
intRowCount = 0
Do Until RS.EOF OR intRowCount > RS.PageSize
intRowCount = intRowCount + 1
With Response
.Write "<table width ='100%' cellspacing='0' cellpadding='2'><tr><td bgcolor='#CCCCCC'>"
.Write "<font size='1' face='Verdana, Arial, Helvetica, sans-serif'>"
.Write RS("tips_header") & "</font></td></tr><tr><td bgcolor='#F4F4F4'>"
.Write "<font size='1' face='Verdana, Arial, Helvetica, sans-serif'>"
.Write RS("tips_text") & "</font></td></tr></table>"
End With
RS.MoveNext
Loop
If RS.PageCount > 1 Then
For a = 1 to RS.PageCount
If a <> cINT(intPage) Then
Response.Write ""& a &""
Else
Response.Write " "& a
End If
Next
End If
RS.Close
Set RS = Nothing
%>
</code>Sv: Paging problem...
vilken cursorType och vilken locktype som skall användas
Test denna connectionstring:
RS.Open SQL, Con,3,1
Läs mer om detta på http://www.pellesoft.nu/login/articles/asp/asp_paging.asp
//PutteSv: Paging problem...
Hushåll med resurserna. Sedan kanske det är bättre att sätta PageSize innan man öppnar recordsetet.
Frågan är oxå om man kan vina något på attt använda ClientsideCursors.Sv: Paging problem...
Tack för svaren, inget funkade dock
Men när jag la till:
RS.CursorLocation = 3
Innan jag öppnade RecordSetet så funkade det!
/Mattias