<%@ Language=VBScript %> kmh Software GmbH - Neuigkeiten
Icon Bereich Software

kmh-News

 Home
Software Internet/Intranet Dienstleistungen Unser Know-how Unser Unternehmen Neuigkeiten
kmh-News

Archiv
<% ' --- Erstellen der Datenbankverbindung dim RS dim nameConn dim dsn SET nameConn = Server.CreateObject( "ADODB.Connection" ) dsn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" dsn = dsn & Server.MapPath("db/kmh.mdb") nameConn.open dsn dim ID dim head dim eintrag dim link dim datum Response.Write("") SET RS = nameConn.Execute("select * from kmhnews order by ID desc") 'SET RS = nameConn.Execute("select * from news where ID not in (SELECT TOP 10 news.ID FROM news ORDER BY Id DESC) ORDER BY Id DESC") WHILE NOT RS.EOF 'Response.Write(RS("ID")) Response.Write("") RS.MoveNext WEND RS.Close nameConn.Close Response.Write ("

") 'Response.Write(RS("ID")) 'Response.Write(" - ") Response.Write(RS("datum")) Response.Write("

") if len(RS("link")) > 0 then Response.Write("") end if Response.Write(myHTMLEncode(RS("head"))) if len(RS("link")) > 0 then Response.Write ("") end if Response.Write ("
") Response.Write(RS("eintrag")) Response.Write ("

") %> 		 

Neuigkeiten
Auf dieser Seite finden Sie immer die 10 neuesten Nachrichten aus der IT-Welt.
weiter >>>

Archiv
Hier finden Sie das News-Archiv der kmh Software GmbH.
weiter >>>
Home
Kontakt
E-Mail
Callback
Kundenlogin
Downloads
Sitemap
Impressum