File: D:/HostingSpaces/PvdBoogaard/indoorski.nl/backup/oude-site/asp/nieuws.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include virtual="/Connections/indoorski_reader.asp" -->
<%
Dim nieuws
Dim nieuws_numRows
Set nieuws = Server.CreateObject("ADODB.Recordset")
nieuws.ActiveConnection = MM_indoorski_reader_STRING
nieuws.Source = "SELECT * FROM VIEW_TABEL_NIEUWS ORDER BY Datum DESC"
nieuws.CursorType = 0
nieuws.CursorLocation = 2
nieuws.LockType = 1
nieuws.Open()
nieuws_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
nieuws_numRows = nieuws_numRows + Repeat1__numRows
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Untitled Document</title>
<link href="/css/standaard.css" rel="stylesheet" type="text/css" />
<SCRIPT src="/scripts/scroller-code.js"></SCRIPT>
<SCRIPT src="/scripts/scroller.js"></SCRIPT>
<SCRIPT src="/scripts/dom-drag.js"></SCRIPT>
</head>
<body topmargin="0" leftmargin="2">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="Style01">Laatste Nieuws </td>
</tr>
<tr>
<td background="/image/container-lijn.PNG"><img src="/image/container-lijn.PNG" width="11" height="9" /></td>
</tr>
<tr>
<td><DIV class=scrollable style="WIDTH: 120px; HEIGHT: 230px" scrollspeed="10">
<%
While ((Repeat1__numRows <> 0) AND (NOT nieuws.EOF))
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="Style04"><br /><style04><a href="nieuws-overzicht.asp" class="Style04" target="iframe2"><%=(nieuws.Fields.Item("Datum").Value)%><br /><br /></a></td>
</tr>
<tr>
<td class="Style05"><a href="nieuws-overzicht.asp" class="Style05" target="iframe2"><%=(nieuws.Fields.Item("Tekst").Value)%><br /><br /></a></td>
</tr>
<td height="9" background="/image/container-lijn.PNG"></div></td>
</tr>
</table>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
nieuws.MoveNext()
Wend
%>
<p align="justify" class="Style02"><br />
</p> </td>
</tr>
</table>
<SCRIPT>
MyJSScrollerHandler.initByClassName('scrollable');
</SCRIPT>
</body>
</html>
<%
nieuws.Close()
Set nieuws = Nothing
%>