FP / Access - fejlmelding...

Hej,

Jeg har prøvet at få FP 2000 til at lave en asp side, hvor den skal hente data fra en Access-fil, som er placeret på et andet domæne. FP database \"kontrol\" siger at connection til Access-fil er OK, men på asp siden fejlmeldes søgningen. Hvem kan decifrere det følgende ?

I global.asa på domænet er stien ændret det andet domæne med databasen i biblioteket fpdb, men det virker ikke. Som det kan ses har jeg defineret et ekstern sti - og den 2. og 3. databasetilslutning ligger bare lokalt på domænet. Det er den første jeg vil have til at virke.

Global.asa indeholder:

<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_OnStart
    \'==FrontPage Generated - startspan==
    Dim FrontPage_UrlVars(3)
    \'--Project Data Connection
        Application(\"Database1_ConnectionString\") = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=http://www.XXX.dk/fpdb/XYZ.mdb\"
        Application(\"Database1_ConnectionTimeout\") = 15
        Application(\"Database1_CommandTimeout\") = 30
        Application(\"Database1_CursorLocation\") = 3
        Application(\"Database1_RuntimeUserName\") = \"\"
        Application(\"Database1_RuntimePassword\") = \"\"
    \'--Project Data Connection
        Application(\"guestclub_ConnectionString\") = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=URL=fpdb/guestclub.mdb\"
        FrontPage_UrlVars(1) = \"guestclub_ConnectionString\"
        Application(\"guestclub_ConnectionTimeout\") = 15
        Application(\"guestclub_CommandTimeout\") = 30
        Application(\"guestclub_CursorLocation\") = 3
        Application(\"guestclub_RuntimeUserName\") = \"\"
        Application(\"guestclub_RuntimePassword\") = \"\"
    \'--Project Data Connection
        Application(\"guestclub1_ConnectionString\") = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=URL=fpdb/guestclub.mdb\"
        FrontPage_UrlVars(2) = \"guestclub1_ConnectionString\"
        Application(\"guestclub1_ConnectionTimeout\") = 15
        Application(\"guestclub1_CommandTimeout\") = 30
        Application(\"guestclub1_CursorLocation\") = 3
        Application(\"guestclub1_RuntimeUserName\") = \"\"
        Application(\"guestclub1_RuntimePassword\") = \"\"
    \'--
    Application(\"FrontPage_UrlVars\") = FrontPage_UrlVars
    \'==FrontPage Generated - endspan==
End Sub
Sub Session_OnStart
    FrontPage_StartSession \'==FrontPage Generated==
End Sub
Sub FrontPage_StartSession
    On Error Resume Next
    if Len(Application(\"FrontPage_VRoot\")) > 0 then Exit Sub
    \' discover the VRoot for the current page;
    \' walk back up VPath until we find global.asa
    Vroot = Request.ServerVariables(\"PATH_INFO\")
    strG1 = \"global.asa\"
    strG2 = \"Global.asa\"
    iCount = 0
    do while Len(Vroot) > 1
        idx = InStrRev(Vroot, \"/\")
        if idx > 0 then
            Vroot = Left(Vroot,idx)
        else
            \' error; assume root web
            Vroot = \"/\"
        end if
        if FrontPage_FileExists(Server.MapPath(Vroot & strG1)) then exit do
        if FrontPage_FileExists(Server.MapPath(Vroot & strG2)) then exit do
        if Right(Vroot,1) = \"/\" then Vroot = Left(Vroot,Len(Vroot)-1)
        iCount = iCount + 1
        if iCount > 100 then
            \' error; assume root web
            Vroot = \"/\"
            exit do
        end if
    loop
    \' map all URL= attributes in _ConnectionString variables
    Application.Lock
    if Len(Application(\"FrontPage_VRoot\")) = 0 then
        Application(\"FrontPage_VRoot\") = Vroot
        UrlVarArray = Application(\"FrontPage_UrlVars\")
        for i = 0 to UBound(UrlVarArray)
            if Len(UrlVarArray(i)) > 0 then FrontPage_MapUrl(UrlVarArray(i))
        next
    end if
    Application.Unlock
End Sub
Sub FrontPage_MapUrl(AppVarName)
    \' convert URL attribute in conn string to absolute file location
    strVal = Application(AppVarName)
    strKey = \"URL=\"
    idxStart = InStr(strVal, strKey)
    If idxStart = 0 Then Exit Sub
    strBefore = Left(strVal, idxStart - 1)
    idxStart = idxStart + Len(strKey)
    idxEnd = InStr(idxStart, strVal, \";\")
    If idxEnd = 0 Then
        strAfter = \"\"
        strURL = Mid(strVal, idxStart)
    Else
        strAfter = \";\" & Mid(strVal, idxEnd + 1)
        strURL = Mid(strVal, idxStart, idxEnd - idxStart)
    End If
    strOut = strBefore & Server.MapPath(Application(\"FrontPage_VRoot\") & strURL) & strAfter
    Application(AppVarName) = strOut
End Sub
Function FrontPage_FileExists(fspath)
    On Error Resume Next
    FrontPage_FileExists = False
    set fs = CreateObject(\"Scripting.FileSystemObject\")
    Err.Clear
    set istream = fs.OpenTextFile(fspath)
    if Err.Number = 0 then
        FrontPage_FileExists = True
        istream.Close
    end if
    set istream = Nothing
    set fs = Nothing
End Function
</SCRIPT>


- Og søgningen på asp-siden svarer:

Database Results Error
[Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key \'Temporary (volatile) Jet DSN for process 0x8d8 Thread 0x964 DBC 0x25d9b64 Jet\'.