<% set rsConnMTNewsDB= Server.CreateObject("ADODB.Recordset") rsConnMTNewsDB.ActiveConnection = "dsn=MTNews;" rsConnMTNewsDB.Source = "SELECT TOP 10 tNewsTicker.*, Format([ntTime],'dd/mm/yy hh:nn') AS ntTimeShort FROM tNewsTicker ORDER BY tNewsTicker.ntTime DESC;" rsConnMTNewsDB.CursorType = 0 rsConnMTNewsDB.CursorLocation = 2 rsConnMTNewsDB.LockType = 3 rsConnMTNewsDB.Open rsConnMTNewsDB_numRows = 0 %> <% Dim mTNTValue Dim mtNTLink Dim mtNTFont1 Dim mtNTFont2 dim mtUseFont mtUseFont = 1 mtNTFont1 = "" mtNTFont2 = "" if not rsConnMTNewsDB.eof then mtNTLink = "" mTNTValue = mtNTLink & mtNTFont1 & rsConnMTNewsDB.Fields.Item("ntHeadLine").Value & "" if not rsConnMTNewsDB.eof then rsConnMTNewsDB.MoveNext end if end if Do Until rsCOnnMTNewsDB.EOF mtNTLink = "" if mtUseFont = 1 then mTNTValue = mTNTValue & mtNTFont2 & " ... " & mtNTLink & mtNTFont2 & rsConnMTNewsDB.Fields.Item("ntHeadLine").Value & "" mtUseFont = 2 else mTNTValue = mTNTValue & mtNTFont1 & " ... " & mtNTLink & mtNTFont1 & rsConnMTNewsDB.Fields.Item("ntHeadLine").Value & "" mtUseFont = 1 end if rsConnMTNewsDB.MoveNext if not rsConnMTNewsDB.eof then rsConnMTNewsDB.MoveNext end if Loop %> The Munich Times - Nachrichten - Page 1

                Vorherige Seite - Previous Page

Erste Seite - First Page



     
   
   
     

Internet Content Rating Association

     

<%=(mTNTValue)%>

Jestino Fashion International · Starnberg 08151 - 65 36 36

   
  
      
     
Historie:
Was HEUTE geschah...
     
    Würmtaler Nachrichten 
     
   SelectCase Deutschland GmbH  
     

Text am
Rande

   

   

OBI Baumärkte

   

 

   

DKV - Ergo Versicherungsgruppe

   

 

     

M"net - Telekommunikation für München

   

 

     
ProMarkt Online GmbH
   

 

     

The Munich Times
powered by

SelectCase Deutschland GmbH
 

Index     Seitenanfang     Vorherige Seite     Nächste Seite
© Copyright 2004 The Munich Times - net-publications gmbh - All rights reserved