> Jetzt br�uchte ich einen Rechner mit Jet < 4 um das mal
> testen zu k�nnen obs damit auch funktioniert. Hat jemand noch
> einen Rechner auf dem Jet 3.51 installiert ist und der das
> Script mal kurz testen k�nnte?
Hier kommt mal das ganze Script.
W�re nett wenns der ein oder andere mal laufen lassen k�nnte und mir kurz
per PM mitteilen w�rde obs funktioniert hat.
--- Code ---
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE> Data Component Check </TITLE>
</HEAD>
<BODY>
<%
Dim myConn
Dim strConn
Dim cat
Set myConn = Server.CreateObject("ADODB.Connection")
strConn = myConn.Version
Set myConn = Nothing
Response.Write "ADO Version: " & strConn & "<br>"
Function GetScriptEngine()
Dim strSE
strSE = ScriptEngine & " "
strSE = strSE & ScriptEngineMajorVersion & "."
strSE = strSE & ScriptEngineMinorVersion & "."
strSE = strSE & ScriptEngineBuildVersion
GetScriptEngine = strSE
End Function
Response.Write "VBSkript Version: " & GetScriptEngine() & "<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
'Response.Write cat.Version
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
%>
</BODY>
</HTML>
--- Code ---
Schon mal Danke
Buchi
_______________________________________________
Coffeehouse mailing list
[EMAIL PROTECTED]
http://www.glengamoi.com/mailman/listinfo/coffeehouse
