Objekt krävs....

Du skapar aldrig något connectionobjekt

set connect = server.createobject("adodb.connection")
connect.open strConString
connect.execute SQLStmt,,128

så här???

<%
'####### Paging skript här för ASP #########
set connect = server.createobject("adodb.connection")

Set objRs = Server.Createobject("Adodb.Recordset")
Set inlagg = Server.Createobject("Adodb.Recordset")
strConString = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" &_
Server.MapPath("/") & "/billdal/db.mdb"
strSQL = "Select * from skvaller Order by datum desc"
SQLStmt = "SELECT Count(*) as X FROM skvaller"
connect.open strConString
connect.execute SQLStmt,,128
antal=inlagg("X")
%>

byt

connect.execute SQLStmt,,128

mot

set inlagg = connect.excute(SQLStmt)

Mvh,

nope... får felmess :(:

ADODB.Connection fel '800a0bb9' 

Parametrarna är felaktiga, ligger utanför tillåtet intervall eller skapar en inbördes konflikt. 

/billdal/skvaller.asp, rad 79

vill ni ha resten av skriptet eller (paging skript)??? men detta verkar vara mer som att det är db-kopplingen som strular bara...

Hur ser den raden ut då?

rad och rad...

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

with objRs
  .cursorlocation = 3
  .open strSQL, strConString
  .pagesize = 10
  .absolutepage = intPageId
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 ###############
%>

Jag tänkte mest på den rad som felmeddelandet pekade på.

Jag antar att det är denna:

.open strSQL, strConString

Byt den mot

.open strSQL, connect

Mvh,

nope... "Datakällans namn är för långt..." fan va kan det vara för fel...

Response.write Server.MapPath("/") & "/billdal/db.mdb"

Hur ser det ut?

C:\Inetpub\wwwroot/billdal/db.mdb

Och om du vänder så slasharna är åt samma håll?

har nu fått ordning på db kopplingen... och fått fram antal poster i db:n, men sen blir det fel i paging skriptet
fel rad markerad med fet-stil

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

with objRs
 [b] .cursorlocation = 3[/b]
  .open strSQL, strConString
  .pagesize = 10
  .absolutepage = intPageId
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 ###############
%>

ps. hur får jag in varannan tabellrad i olika färger, vet ju hur man gör koden, men vart ska den ligga? d.s

Du måste ange vilken provider du ska använda oxå, inte endast sökvägen till databasen.

cya,
PatrikB

Vad får du för fel?

hopp... detta är felmesset:

ADODB.Recordset fel '800a0e79' 

Åtgärden är inte tillåten när objektet är öppet. 

/billdal/skvaller.asp, rad 94

....och rad 94 är den raden jag markerad med fetstil...

pssst... PatrikB vart håller du hus på icq? Fan hade ju brudsnack där ett tag

Prova att byta plats på den raden och raden under.

Mvh,

okej..har gjort det nu... samma felmess:

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

with objRs
  .open strSQL, connect
  .cursorlocation = 3
    .pagesize = 10
  .absolutepage = intPageId
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 ###############
%>

Um, är ditt recordsetobjekt öppnat tidigare i koden?

Man kan inte sätta vissa av egenskaperna i recordset objectet efter att det är öppnat. Dessa måste sättas före, eftersom de talar om hur recordsetet ska öppnas.

with objRs
[b].cursorlocation = 3
.pagesize = 10[/b]
.open strSQL, connect

If Not .EOF Then
.absolutepage = intPageId
End If
end with

hoppas att ni förstod

cya,
PatrikB

PS ... kan inte köra ICQn på jobbet ... DS