Problem med databaseplacering

Jeg er sq lidt på den - har en hjemmeside hvor jeg selv har lavet det meste - men nedenstående har nadre kræfter kreeret

Koden finder den database der er nyest ved at finde den sidste ved sortering.. Virker fint - men  nu har det været nødvendigt at flytte selve databasen til et underbibliotek - "database" hvor index.asp stadig ligger (og skal ligge) i roden...

Jeg kan sgutte lige regne ud hvor der skal stå "/database"

Pls..help !

<% Dim filesystem, folder, files, file, s, dbnavn(2), db, tempfile, database
    Set filesystem = CreateObject("Scripting.FileSystemObject")
    set tempfile = filesystem.GetFile(Server.mappath("index.asp"))
    set folder = tempfile.parentfolder
    set files = folder.files
    dbnavn(0)=""
    For Each file in files
      s = split(file.shortname,".",-1,1)
      if ucase(s(1))="MDB" then
        if s(0)>dbnavn(0) then
          dbnavn(0)=s(0)
          dbnavn(1)=s(1)
        end if
      end if
    Next
    db = dbnavn(0) & "." & dbnavn(1)
    Set Session("Connection") = Server.CreateObject("ADODB.Connection")
    Session("Connection").Open "DRIVER={Microsoft access Driver (*.mdb)}; DBQ=" & Server.MapPath(db) & ";"
        %>