Database lås

Jge har haft samme prob. Jeg løste det ved at uploade db\'en under et andet navn. Derefter lavede jeg et script på en startside, hvor den vha. \"FileSystemObject\" fandt den nyeste database, og lagde den i en sessionvariabel, hvorefter de nye bruge kom til at køre på den nye db...

/wisen

... noget i stil med :

<%
Dim filesystem, folder, files, file, s, dbnavn(2), db, tempfile
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) & \";\"
%>

...

<%
Set rs = Server.createObject(\"ADODB.RecordSet\")
sql = \"Select * from EtEllerAndet\"
rs.open sql, Session(\"connection\"), 1, 3

...

%>

Navnet på databasen var lavet ud fra dagsdato, således at man udfra navnet kan afgøre hvilken er nyest....

/wisen