global.asa

<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_OnStart
    \' Skriv kode som skal køres når applikationen (serveren) starter
End Sub

Sub Application_OnEnd
    \' Skriv kode som skal køres når applikationen (serveren) stoppes
End Sub

Sub Session_OnStart
    \' Skriv kode som skal køres når en session starter
End Sub

Sub Session_OnEnd
    \' Skriv kode som skal køres når en session afsluttes
End Sub
</SCRIPT>

Min ser sådan her ud:

//Claus

----------------------------------------

<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_OnStart
    \'==FrontPage Generated - startspan==
    Dim FrontPage_UrlVars(5)
    \'--Project Data Connection
        Application(\"test1_ConnectionString\") = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=URL=fpdb/test1.mdb\"
        FrontPage_UrlVars(0) = \"test1_ConnectionString\"
        Application(\"test1_ConnectionTimeout\") = 15
        Application(\"test1_CommandTimeout\") = 30
        Application(\"test1_CursorLocation\") = 3
        Application(\"test1_RuntimeUserName\") = \"\"
        Application(\"test1_RuntimePassword\") = \"\"
    \'--Project Data Connection
        Application(\"test2_ConnectionString\") = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=URL=fpdb/test2.mdb\"
        FrontPage_UrlVars(1) = \"test2_ConnectionString\"
        Application(\"test2_ConnectionTimeout\") = 15
        Application(\"test2_CommandTimeout\") = 30
        Application(\"test2_CursorLocation\") = 3
        Application(\"test2_RuntimeUserName\") = \"\"
        Application(\"test2_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>

Glemte lige: Det er FrontPage som har genereret den, men det betyder ikke noget.

Alle de forhold er sådan set også opfyldt. Det jeg gerne vil vide er hvordan det fungerer. Hvad med disse to linier (står aller øverst):

<OBJECT RUNAT=Server SCOPE=Session ID=MyInfo PROGID=\"MSWC.MyInfo\">
</OBJECT>

Hvad laver de to? Der stod noget andet i den første linie, og jeg tror det er her problemet ligger. De to øverste linier er fra øvelseseksemplet og passer ikke til det oprindelige indhold.

Ups, nu fik jeg lagt den øverste linie ind, og denne meddelelse kom frem:

Active Server Pages error \'ASP 0123\'

Missing Id attribute

//global.asa, line 1

The required Id attribute of the Object tag is missing.

Dvs at det er en ID, der skal defineres. Men hvilken ID?

DET VIRKER! Jeg aner ikke hvad jeg har gjort, måske serveren selv har registreret noget? ezolu, kan du ikke lige svare, så kan du og nordclc dele pointene :o)

Jo da :o)

Tak for hjælpen. Den skulle åbenbart have lidt betænkningstid. Men 3576876463543 tak alligevel, mine nye bedste venner :o)

Selv tak :o)

Du er velkommen :o)