Error ?

Gah... blir knäpp snart, vad heter sidan som man kan kolla upp fel mess när det gäller databaskopplingar? Fel, 80020009 ger mig inte så mycket så det kan ju vara bra att kolla upp det på någon sida, tack.

//Troll

Vi kanske kan hjälpa dig om du visar lite kod.
Annars tror jag att ASPSidan hade någon liten felmeddelandebank. :)

Jag håller på att försöka få ordning på ett paging script som ska visa mina bilder så som jag vill men det sturlar lite här och var.. Förut fungerade det perfekt men då hade jag byggt upp databasen annorlunda och så...

Just nu har jag en databas som heter 'bilder.mbd' i den finns en tabell som heter 'tblBilder'som ser ut såhär:

ID
picMapp
picFile
picThmb
picDate

picMapp är mappen där bilderna ligger.

När jag sedan ska skriva ut bilderna så blir det fel, här kommer koden:

<%@ LANGUAGE="VBSCRIPT" %>
<% Option Explicit %>
<!--#include file="adovbs.inc"-->
<%
	Dim cat
	cat = Request.QueryString("cat")
	
    'Set how many records per page we want
    Const NumPerPage = 1

    'Retrieve what page we're currently on
    Dim CurPage
    If Request.QueryString("CurPage") = "" then
        CurPage = 1 'We're on the first page
    Else
        CurPage = Request.QueryString("CurPage")
    End If

    Dim conn
    Set conn = Server.CreateObject("ADODB.Connection")
    Conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("data/bilder.mdb"))

    'Explicitly Create a recordset object
    Dim rs
    Set rs = Server.CreateObject("ADODB.Recordset")

    'Set the cursor location property
    rs.CursorLocation = adUseClient

    'Set the cache size = to the # of records/page
    rs.CacheSize = NumPerPage

    'Open our recordset
    Dim strSQL
    strSQL = "SELECT * FROM tblBilder WHERE picMapp='" & cat & "'"
    rs.Open strSQL, Conn

    rs.MoveFirst
    rs.PageSize = NumPerPage

    'Get the max number of pages
    Dim TotalPages
    TotalPages = rs.PageCount

    'Set the absolute page
    rs.AbsolutePage = CurPage

    'Counting variable for our recordset
    Dim count
%>

Detta meddelande visas när jag kör sidan:

error '80020009'
Undantag inträffade.

/Galleri/showpic.asp, line 97

Koden som skriver ut bilden, rad 97 markerad:

<%
    'Set Count equal to zero
    Count = 0
    Do While Not rs.EOF And Count < rs.PageSize
    Count = Count + 1
        rs.MoveNext
    Loop

    [B] Response.Write "<img border=0 src='img/" & cat & "/" & rs("picFile") & "' style='border-left: 1px solid rgb(0,0,0); border-right: 1px solid; border-top: 1px solid rgb(0,0,0); border-right: 1px solid rgb(0,0,0); border-bottom: 1px solid rgb(0,0,0)'>"[/B]
%>

Förstår inte varför det bråkar :(

Jag tror att det är meningen att du ska skriva ut bilderna innanför loopen. :)

<%
Count = 0

Do While Not rs.EOF And Count < rs.PageSize
  Count = Count + 1
  Response.Write "<img border=0 src='img/" & cat & "/" & rs("picFile") & "' style='border-left: 1px solid rgb(0,0,0); border-right: 1px solid; border-top: 1px solid rgb(0,0,0); border-right: 1px solid rgb(0,0,0); border-bottom: 1px solid rgb(0,0,0)'>"
  rs.MoveNext
Loop
%>

Sen kan du ju ta bort adovbs.inc eftersom du inte använder den :q