Objekt krävs....

22 svar · 290 visningar · startad av crisse6 23 jan. 2002

crisse6Medlem sedan dec. 20002 526 inlägg

Frågan23 jan. 2002 20:49#1

Hopp då var man tebax i asp-världen :e och en aning ringrostig och stöter på problem också :(

aja, denna kod blir det fel på:

<%
'####### Paging skript här för ASP #########
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"
strConString.execute(SQLStmt)
antal=inlagg("X")
%>

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

LarsGMedlem sedan dec. 200012 464 inlägg

23 jan. 2002 20:52#2

Du skapar aldrig något connectionobjekt

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

------------------
essentitia preter non sans multiplicandum

crisse6Medlem sedan dec. 20002 526 inlägg

23 jan. 2002 20:55#3

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")
%>

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

@ndersMedlem sedan juni 200032 967 inlägg

23 jan. 2002 20:58#4

byt

connect.execute SQLStmt,,128

mot

set inlagg = connect.excute(SQLStmt)

Mvh,

crisse6Medlem sedan dec. 20002 526 inlägg

23 jan. 2002 21:00#5

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...

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

@ndersMedlem sedan juni 200032 967 inlägg

23 jan. 2002 21:00#6

Hur ser den raden ut då?

crisse6Medlem sedan dec. 20002 526 inlägg

23 jan. 2002 21:02#7

rad och rad... :e

<%
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 ###############
%>

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

@ndersMedlem sedan juni 200032 967 inlägg

23 jan. 2002 21:03#8

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,

crisse6Medlem sedan dec. 20002 526 inlägg

23 jan. 2002 21:06#9

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

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

@ndersMedlem sedan juni 200032 967 inlägg

23 jan. 2002 21:07#10

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

Hur ser det ut?

crisse6Medlem sedan dec. 20002 526 inlägg

23 jan. 2002 21:10#11

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

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

@ndersMedlem sedan juni 200032 967 inlägg

23 jan. 2002 21:12#12

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

crisse6Medlem sedan dec. 20002 526 inlägg

23 jan. 2002 21:41#13

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

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

[Redigerat av crisse6 den 23 jan 2002]

PatrikBMedlem sedan mars 20002 836 inlägg

23 jan. 2002 22:05#14

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

cya,
PatrikB

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

LarsGMedlem sedan dec. 200012 464 inlägg

23 jan. 2002 22:07#15

Vad får du för fel?

------------------
essentitia preter non sans multiplicandum

crisse6Medlem sedan dec. 20002 526 inlägg

24 jan. 2002 10:39#16

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 :e

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

@ndersMedlem sedan juni 200032 967 inlägg

24 jan. 2002 10:49#17

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

Mvh,

crisse6Medlem sedan dec. 20002 526 inlägg

24 jan. 2002 11:19#18

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 ###############
%>

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

@ndersMedlem sedan juni 200032 967 inlägg

24 jan. 2002 11:22#19

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

PatrikBMedlem sedan mars 20002 836 inlägg

24 jan. 2002 11:32#20

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 :e

cya,
PatrikB

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

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