<% Option Explicit Response.Buffer = True Response.Expires = 0 %> (HIS,P) Deutscher Kolonial-Atlas mit Jahrbuch (Atlas German Colonies, with Yearbook), edited by the German Colonial Society, 1918, Books and Maps on the German Colonies. Deutsch-Südwestafrika
<% ' --- Verwenden der Jet 4.0 Engine für den Datenbankzugriff Dim strProvider strProvider = "PROVIDER=Microsoft.Jet.OLEDB.4.0;" ' --- Angeben des Speicherpfads der Datenbank Dim strDB strDB = " Data Source=" & Server.MapPath("../../Datenbank/directory_e.mdb") ' --- Zusammenstellen des gesamten VerbindungsStrings Dim strComplete strComplete = strProvider & strDB ' --- Öffnen der Datenbankverbindung DIM objConn Set objConn = Server.CreateObject("ADODB.Connection") objConn.open strComplete ' --- Hier sollte dann ihr Quellcode stehen DIM SQL, rs SQL = "SELECT * FROM [all_pages] WHERE [ID]=84" ' --- Angeben der Abfragekriterien Set rs = Server.CreateObject("ADODB.Recordset") ' --- RecordSet-Objekt instanzieren rs.Open sql, objConn, 3, 3 ' --- Abfrage starten if not rs.EOF then response.write rs("keywords") end if rs.close set rs = nothing objConn.Close Set objConn = Nothing %>