kode der kan sige om sti til DB er ok eller ej

Hvis du bruge den fulde sti til database skal der ikke Server.Mappath omkring i strProvider.


Du kan tjekke om selv DB filen findes med FSO eks:

set fso = Server.CreateObject("Scripting.FileSystemObject")
Const cnstDBPath = "d:\domæne\db\Database.mdb"
if (fso.FileExists(cnstDBPath))=true Then
  'Connect til database

else
  'selve database filen kunne ikke findes
end if


Du kan også på connection objectet tjekke på .state for at se om objektet er åbnet.

if objConn.State = 0 then
  'IKKE Connected
else
  'Connected
end if


Så du kan lave det lidt om så den skriver en fejl besked:


Sub OpenDB

  On Error Resume Next
  Const cnstDBPath = "d:\domæne\db\Database.mdb"
  Dim strProvider
  strProvider = ""
  strProvider = strProvider & "Provider=Microsoft.Jet.OLEDB.4.0;"
  strProvider = strProvider & "Data Source=" & Server.MapPath(cnstDBPath) & ";"
  strProvider = strProvider & "Persist Security Info=False"
  Set objConn = Server.CreateObject("ADODB.Connection")
  kontaktOk = true
 
  set fso = Server.CreateObject("Scripting.FileSystemObject")
  if (fso.FileExists(cnstDBPath))=true Then
    objConn.Open strProvider
    if objConn.State = 0 then kontaktOk = false
  else
    kontaktOk = false
  end if
  if kontaktOk = false then
    response.Write "Fejl kunne ikke få kontakt til databasen, prøv at reloade siden."
  end if
  On Error Resume 0
End Sub

vil du lægge et svar EE og mange tak

Ja det vil jeg da meget gerne :)