%@ LANGUAGE=VBScript %>
<% Option Explicit %>
<%
Dim cnn, rst, curDir, strSQL
'---------------------------------------------
curDir = Server.MapPath("./database/fachinfos/database/fachinfos.mdb")
Set cnn = Server.CreateObject("ADODB.Connection")
cnn.Open "DBQ="& curDir &";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;"
Set rst = Server.CreateObject("ADODB.Recordset")
Set rst.ActiveConnection = cnn
strSQL = "SELECT * FROM Kategorien ORDER BY Kategorie"
rst.Source = strSQL
rst.CursorType = adOpenStatic
rst.LockType = adLockOptimistic
rst.Open
'---------------------------------------------
%>
LIPPEDENT Fachinformationen Übersichtsseite
Patienten-Informationen
Wählen Sie einen Bereich aus und klicken Sie diesen an.
Wenn Sie nicht wissen, wo sie etwas finden, können Sie einen
Suchbegriff in die Suchmaschine eingeben.