Hvordan ungå fejl når db er tom

Man tester på recordset EOF flag.

if not rs.EOF then
  'brug recordsetet her
end if

på hver sin ende af denne ?

<%If Request.QueryString("do") = "" Then%>
        <%Set Conn = Server.CreateObject("ADODB.Connection")
          Set RecSet = Server.CreateObject("ADODB.Recordset")
          Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db1

          Sidan = Request.QueryString("sida")
          If Sidan = "" then
              sida = 1
          Else
              sida = Sidan
          End If

          With RecSet
              .CursorLocation = 3
              .CacheSize = perSida
          End With

          If CStr(Request.QueryString("id")) <> "" Then
            SQL = "SELECT * FROM nyheter Where id=" & Request.QueryString("id")
          Else
            SQL = "SELECT * FROM nyheter ORDER BY DATUM DESC"
          End If
          RecSet.Open SQL, Conn%>

Efter linjen med RecSet:

RecSet.Open SQL, Conn

if not RecSet.EOF then %>


<%end if%>

samme fejl, det er nok fordi jeg har mange RecSet

f.eks denne

          <%Else
          RecSet.Close

          SQL = "SELECT * FROM nyheter ORDER BY DATUM DESC"
          RecSet.Open SQL, Conn

          With RecSet
              .MoveFirst
              .PageSize = perSida
              .AbsolutePage = sida
          End With

          Sidor =  RecSet.PageCount%>

og denne:

          <%Count = 0
          Do While Not RecSet.EOF And Count < RecSet.PageSize

          X = X + 1
          If X Mod 2 = 0 then
            color = ""
          Else
            color = "#f0f0f0"
          End If %>

og den sidste :

        <%Count = Count + 1
        RecSet.MoveNext
        Loop

        RecSet.Close
    Set RecSet = nothing
        End If%>
<%If Sidor > 1 Then%>

Til denne skal man havde det omkring:

          SQL = "SELECT * FROM nyheter ORDER BY DATUM DESC"
          RecSet.Open SQL, Conn

          With RecSet
              .MoveFirst
              .PageSize = perSida
              .AbsolutePage = sida
          End With

          Sidor =  RecSet.PageCount%>


Sådan:

          SQL = "SELECT * FROM nyheter ORDER BY DATUM DESC"
          RecSet.Open SQL, Conn
          if not RecSet.EOF then
          With RecSet
              .MoveFirst
              .PageSize = perSida
              .AbsolutePage = sida
          End With

          Sidor =  RecSet.PageCount
          ..
          end if%>

de to andre er ok, det ligger i denne linje at siker EOF er false:
Do While Not RecSet.EOF And Count < RecSet.PageSize

det får jeg ikke til at virke..... :o(

Generalt skal man hvade det efter RecSet.Open og så end if efdter man har bruge RecSet.

Eks:

RecSet.Open SQL, Conn
Response.Write RecSet("kolonne")


Skal være:

RecSet.Open SQL, Conn
if not RecSet.EOF then
  Response.Write RecSet("kolonne")
end if

hmmmm, kan ikke få det her til at spille, men et nyhedsystem vil jo heller ikke være tomt, så jeg tror bare jeg glemmer det indtil vider