ASP-Script

[tom]

Hallo bei mir erscheint diese Meldung beim ausführen
des folgenden ASP-Scripts.

ADODB.Recordset- Fehler '800a0cc1'

Könnte mir jemand helfen?

Hier das Script:

<%
startpage = request.querystring("start")
if startpage = "" then
 startpage = 1
else
 startpage = CLng(startpage)
 if startpage < 1 then startpage=1
end if
%>

<%
dim dbname, dbase, strsql
dbname = server.mappath("/dbase_d.mdb")

db_table = "geraet"
doc_path = request.servervariables("url")
doc_name = mid(doc_path, InstrRev(doc_path, "/")+1)
Set dbase = Server.CreateObject("ADODB.Connection")
dbase.ConnectionString = "DBQ=" &dbname
dbase.open "dsn=Access"
'----
sql = "select count(*) as 'Anzahl' from " & db_table
set rs = dbase.execute(sql)
datensaetze = rs("Anzahl") '--Hier erscheint der Fehler--
'----
pagesize = 1

maxpage = Fix(datensaetze/pagesize)
if (maxpage*pagesize) < datensaetze then maxpage=maxpage+1
if startpage > maxpage then startpage= maxpage

'Navigationslinks einblenden
insertnavigation
Set dbback = Server.CreateObject("ADODB.Recordset")
strsql = "SELECT * FROM geraet where genr <>  0 order by genr"
Set dbback = dbase.execute(strsql)

sql = "select * from " & db_table
set rs = dbase.execute(sql)

rs.move ((startpage-1) * pagesize)
...

[Jutta]

Hallo Tom!

'----
sql = "select count(*) as 'Anzahl' from " & db_table
set rs = dbase.execute(sql)
datensaetze = rs("Anzahl") '--Hier erscheint der Fehler--
'----

Probiers mal ohne Anführungszeichen:
sql = "select count(*) as Anzahl from " & db_table

lg
Jutta

[Odium]

probier mal die ausgabe mit rs(0)

da kannst du auch as Anzahl weglassen

Odium