---

Jeg bruger denne kode til at læse fra en access database men jeg for en fejl
hvis basen er tom

Kan jeg undgå denne fejl på en eller anden måde ?

<%

set conn = server.createobject("ADODB.Connection")
conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" &
Server.MapPath("../log/fest.mdb")

strid = request.querystring("id")
strmode = request.querystring("mode")

set rs = server.createobject("ADODB.RecordSet")
sql = "select * from stat order by navn"
rs.open sql, conn, 1

Dim antal
antal=rs.RecordCount
if antal > 0 then
rs.MoveFirst
end if

%>

---

Jens wrote:
>
> Jeg bruger denne kode til at læse fra en access database men jeg for en fejl
> hvis basen er tom
>
> Kan jeg undgå denne fejl på en eller anden måde ?


Udskift:

Dim antal
antal=rs.RecordCount
if antal > 0 then

med

if not rs.EOF then

---

Det var lige det jeg skulle bruge....

Takker og bukker !