> Wie/wo kann ich feststellen, welche Version ich habe?
<%
Dim myConn
Dim strConn
Dim cat
Dim strSE
Set myConn = Server.CreateObject("ADODB.Connection")
strConn = myConn.Version
Set myConn = Nothing
Response.Write "ADO Version: " & strConn & "<br>"
strSE = ScriptEngineMajorVersion & "."
strSE = strSE & ScriptEngineMinorVersion & "."
strSE = strSE & ScriptEngineBuildVersion
Response.Write "VBSkript Version: " & strSE & "<BR>"
On Error Resume Next
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
Server.Mappath("/jhfgjfgh/test.mdb") & ";"
Set cat = Server.CreateObject("ADOX.Catalog")
cat.Create strConn
Set cat = Nothing
If err.number = -2147467259 Then
Response.Write "Jet 4.0 ist installiert"
End If
If err.number = -2147221164 Then
Response.Write "Jet 4.0 nicht vorhanden. Bitte updaten."
End If
On Error Goto 0
%>
Buchi
_______________________________________________
Coffeehouse mailing list
[EMAIL PROTECTED]
http://www.glengamoi.com/mailman/listinfo/coffeehouse
