fejl i db conn

Hej jeg har flg. kode til en db conn:

<%
'---- CursorTypeEnum Values ----
Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3
'---- LockTypeEnum Values ----
Const adLockReadOnly = 1
Const adLockPessimistic = 2
Const adLockOptimistic = 3
Const adLockBatchOptimistic = 4


Sub OpenDB

  On Error Resume Next
  Const cnstDBPath = "d:\web\localuser\domæne.dk\database\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

Sub CloseDB
  objConn.Close
  Set objConn = Nothing
End Sub
%>

men jeg får en fejl når jeg køre min side, den er ved linje 36 som er:

On Error Resume 0

fejlen er:
Microsoft VBScript compilation error '800a03ea'

Syntax error

/site/include/dsn.asp, line 36

On Error Resume 0
----------------^


min mappe struktur ved unoeuro er:

Domæne.dk
|_Database
| |_database.mdb
|
|_Public_html
  |_site
    |_default.asp
    |_dsn.asp


nogle der kan se hvad fejlen evt er !?