Simpelt ASP problem

Hejsa Eksperter..

Jeg har 2 nye server kørende.. De køre begge Windows 2000 Server med IIS 5.0 på..

De er begge ny installeret..

Dette ASP script køre fint på den ene server.. men kommer med en fejl på den anden..

*********** ASP KODE ************

<%
strDB = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("database.mdb")

Const adOpenKeyset = 1
Const adLockOptimistic = 3

set conn = server.createobject("ADODB.connection")
conn.open strDB
   
SQL = "SELECT * FROM Products"
set RS = conn.execute( SQL )
                     
do while not rs.eof
         
ID = RS("ID")
Set rs3 = Server.CreateObject("ADODB.RecordSet")
SQL3 = "SELECT * FROM Products where ID=" & ID
rs3.Open SQL3, strDB, adOpenKeyset, adLockOptimistic
       
rs3("LagerVare") = 1
rs3.Update

rs.movenext
loop
               
%>

************* ASP SLUT *************

Den fejl den ene server kommer med, er at jeg ikke kan åbne strDB 2 gange....

Altså følgende linie :
rs3.Open SQL3, strDB, adOpenKeyset, adLockOptimistic

Jeg tror det er opsætningen i IIS det er galt med.. Nogen som ved hvordan jeg løser dette problem ?

Jens K