kan ikke få adgang til access DB

Hvis du har åbnet din databasefil fysisk, så skal du lige lukke den ned.

//>Rune

den er lukket...?

Så prøv at genstart din computer / server, så må den være fucked.

//>Rune

Jeg har genstartet nu, men det er stadig samme problem...?

Prøv at udskifte denne: request.ServerVariables("APPL_PHYSICAL_PATH")
med denne:
server.mappath("./")

Hmm det lyder sq godt nok underligt så!
-prøv at lad mgi se hele din kode...

Har du en Conn.Obj.Close() længere nede i din kode?

//>Rune

dim connobj, rstobj

Function OpenConn()


        'Med SYSTEM ODBC forbindelse
        'Set ConnObj = Server.CreateObject("ADODB.Connection")
        'ConnObj.Open "leasy"
       
           
        'Uden SYSTEM ODBC forbindelse
        Dim DB_CONNECTIONSTRING
        'DB_CONNECTIONSTRING = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("LEASY.mdb")
        DB_CONNECTIONSTRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & request.ServerVariables("APPL_PHYSICAL_PATH") & "\xxxx.mdb"
        Set ConnObj = Server.CreateObject("ADODB.Connection")
        ConnObj.Open DB_CONNECTIONSTRING

End Function

Function OpenRecordset(sRSSource)
    'if ConnObj.State = 0 then
        OpenConn()
    'end if
    Set RstObj = Server.CreateObject("ADODB.Recordset")
    RstObj.Open sRSSource, ConnObj, 1,&H0002
    RSCounter = RstObj.RecordCount
    Set OpenRecordset = RstObj
   
    Set RstObj = Nothing
   
End Function

Sub CloseConn()
    ConnObj.Close
End Sub

virker stadig ikke...

har løst det. prøvede at flytte filerne til en anden mappe og så var den der...

...