ok...ich dachte nur, es liegt nicht am code...also, hier der code:
<%
' --- Verwenden des MySQL Treibers (MyODBC) für den Datenbankzugriff
Dim strDriver
strDriver = "DRIVER=MySQL;"
' --- Angeben des Server- und Hostnamens des Datenbankservers
Dim strServer
strServer = "SERVER=localhost;HOST=%;"
' --- Angeben des Usernamens für den Zugriff
Dim strUsername
strUsername = "UID=<hwaser>;"
' --- Angeben des Passworts zu oben eingetragenen Usernamen.
Dim strPassword
strPassword = "PWD=<nie>;"
' --- Angeben des Datenbanknamens
Dim strDatabase
strDatabase = "DATABASE=db_absenzen;"
' --- Zusammenstellen des gesamten Verbindungsstrings
Dim strComplete
strComplete = strDriver & strServer & strUsername & strPassword & strDatabase
' --- Öffnen der Datenbankverbindung
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.open strComplete
objConn.Close
Set objConn = Nothing
%>