cliche eller script der laver fejl?

Hej

Jeg blir ved at få fejl i dette script hos cliche. Det mærkelige er at det virker på den ene af deres servere, men ikke på den anden. Generelt virker det, men nogle gange går siden ned pga det. Er der nogle der kan se en mulig fejl?

    <%
ConnGuestBook_ConnectionString = "DBQ=" & Server.Mappath("guestbook.mdb") & ";DefaultDir=" & Server.Mappath("..\..\_database") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;"
ConnGuestBook_ConnectionTimeout = 15
ConnGuestBook_CommandTimeout = 30
ConnGuestBook_RuntimeUserName = "admin"
ConnGuestBook_RuntimePassword = ""
   
Set ConnGuestBook = Server.CreateObject("ADODB.Connection")
ConnGuestBook.ConnectionTimeout = ConnGuestBook_ConnectionTimeout
ConnGuestBook.CommandTimeout = ConnGuestBook_CommandTimeout
ConnGuestBook.Open ConnGuestBook_ConnectionString, ConnGuestBook_RuntimeUserName, ConnGuestBook_RuntimePassword
Set cmdTemp = Server.CreateObject("ADODB.Command")
Set CmdEditInfo = Server.CreateObject("ADODB.Recordset")
cmdTemp.CommandText = "SELECT BOOK1.* FROM BOOK1 WHERE (ID = " & ID & ")"
cmdTemp.CommandType = 1
Set cmdTemp.ActiveConnection = ConnGuestBook
CmdEditInfo.Open cmdTemp, , 0, 1

   
MESSAGE = CmdEditInfo("MESSAGE")

%>