Ein modernes Medium, kombiniert mit dem traditionellen Flair eines besonderen Unternehmens. Wir freuen uns, Sie bei Hackenbuchner begrüssen zu dürfen.



<% Dim Connect_News, strProvider_News, StrDatabase_News, StrComplete_News strProvider_News = "PROVIDER=Microsoft.Jet.OLEDB.4.0;" strDatabase_News = "DATA SOURCE=" & Server.MapPath (".") & "/../~database/hackenbuchner_db.mdb;" strComplete_News = strProvider_News & strDatabase_News Set Connect_News = Server.CreateObject("ADODB.Connection") Connect_News.open strComplete_News Dim SQL_News, NewsRS SQL_News = "SELECT * FROM news WHERE news_aktiv = yes ORDER BY news_eintragsdatum DESC" Set NewsRS = Server.CreateObject("ADODB.Recordset") NewsRS.Open SQL_News, Connect_News, 3, 3 %>

<% NewsRS.Close Set NewsRS = Nothing Connect_News.Close Set Connect_News = Nothing %>