Buchner Gerhard <[EMAIL PROTECTED]> scribbled:
> Hat jemand noch einen Rechner auf dem Jet 3.51 installiert ist und
> der das Script mal kurz testen k�nnte?
Das Script hier sollte funzen:
On Error Resume Next
Dim strProvider
strProvider = "PROVIDER=Microsoft.Jet.OLEDB.4.0;"
Dim strDB
strDB = "DATA SOURCE=" & Server.MapPath ("./") & "\mydir\meinedb.mdb;"
Set obCon = Server.CreateObject("ADODB.Connection")
obCon.open strProvider & strDB
If Err.Number <> 0 Then
Response.write "Jet 4.0 ist nicht installiert"
Else
Response.write "Jet 4.0 ist installiert"
End If
obCon.Close
Set obCon = Nothing
On Error Goto 0
gruss
frank
_______________________________________________
Coffeehouse mailing list
[EMAIL PROTECTED]
http://www.glengamoi.com/mailman/listinfo/coffeehouse
