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

Archiv

 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 top 10 * from news 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("

") Response.Write("") Response.Write(myHTMLEncode(RS("head"))) Response.Write ("
") Response.Write(myHTMLEncode(RS("eintrag"))) Response.Write ("

") %> 		 

kmh-News
Hier finden Sie die neuesten Meldungen der kmh Software GmbH.
weiter >>>

Neuigkeiten
Auf dieser Seite finden Sie immer die 10 neuesten Nachrichten aus der IT-Welt.
weiter >>>
Home
Kontakt
E-Mail
Callback
Kundenlogin
Downloads
Sitemap
Impressum