Objekt krävs....

Jag ber om ursäkt för att jag svamlat i nattmössan. :)

Mvh,

f*n, jag får ju inte ordning på det :(

här är allt som allt:

<%
'####### Paging skript här för ASP #########
set connect = server.createobject("adodb.connection")
connect.open "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & Server.MapPath("/") & "\billdal\db.mdb"
Set objRs = Server.Createobject("Adodb.Recordset")
Set inlagg = Server.Createobject("Adodb.Recordset")
strSQL = "Select * from skvaller Order by datum desc"
SQLStmt = "SELECT Count(*) as X FROM skvaller"
objRs.Open strSQL, connect, 3,3
inlagg.Open SQLStmt, connect, 3,3

antal=inlagg("X")
%>

			    
			    Antal inlägg: <%=antal%>
<br></b>För att se nästa 10 inlägg navigera då enkelt på länkarna längst ner på denna 
                            sida (siffrorna 1, 2, 3 osv...)<br>
                            

</font><%
intPageId = request.querystring( "pageid" )
if intPageId = "" then intPageId = 1

with objRs
  .cursorlocation = 3
  .pagesize = 10
  
  .open strSQL, connect
  If Not.EOF then
  .absolutepage = intPageId
  end if
end with

intPages = cint( objRs.pagecount )
intCurrentPost = 0

do while not objRs.eof and intCurrentPost < objRs.pagesize
  strContents = strContents &_
"<tr size=50><td><font face=Verdana size=1 color=""#" & Color & """><b>Rubrik:</b> " & objRs( "rubrik" ) & "</td></font></tr>" &_
    "<br><tr size=50><td><font face=Verdana size=1 color=#333333><b>Datum:</b> " & objRs( "datum" ) & "</td></font></tr>"&_
    "<br><tr size=50><td><font face=verdana size=1 color=#333333><b>Mess:</b> " & objRs( "mess" ) & "<hr size=1 color=#333333></td></font></tr>"
  intCurrentPost = intCurrentPost + 1
  objRs.movenext
loop

for i = 1 to objRs.pagecount
  strNavigation = strNavigation & " <a href='?pageid=" & i & "'>" & i & "</a>"
next

response.write "<table>" & strContents & "</table>"
response.write "<table><tr><td>" & strNavigation & "</td></tr></table>" 
'######### Slut på paging skript ASP ###############
%>

------------------
My name is Chris - Chris dangerous!

vad får du för fel nu då??

ett tips!
varför skapar du 2 recordset? ett som endast plockar ut hur många poster du har och ett som plockar ut posterna. Du kan klara dig med endast ett recordset eftersom ADODB.Recordset har en alldeles utmärkt funktion för att räkan just antal poster: objRS.RecordCount

cya,
PatrikB

------------------
-=* IF there is a wrong way to do something, then someone will do it *=-