Skal bruge nyhed nummer 2 og 3 i record
<%Dim tblnyheder
Dim tblnyheder_numRows
Set tblnyheder = Server.CreateObject("ADODB.Recordset")
tblnyheder.ActiveConnection = MM_conn_STRING
tblnyheder.Source = "SELECT * FROM nyheder ORDER BY tbldato DESC, tbltid DESC"
tblnyheder.CursorType = 0
tblnyheder.CursorLocation = 2
tblnyheder.LockType = 1
tblnyheder.Open()
tblnyheder_numRows = 0
%>
og
<%
Dim Repeat5__numRows
Dim Repeat5__index
Repeat5__numRows = 2
Repeat5__index = 0
tblnyheder_numRows = tblnyheder_numRows + Repeat5__numRows
%>
og
<%
While ((Repeat5__numRows <> 0) AND (NOT tblnyheder.EOF))
%><tr>
<td width="358" class="textheader1"><%=(tblnyheder.Fields.Item("tbloverskrift").Value)%><font style="font-family: verdana, arial, tahoma; font-size: 7pt; font-weight: bold; color: #3C4576"> | <%=(tblnyheder.Fields.Item("tbldato").Value)%>, <%=Left((tblnyheder.Fields.Item("tbltid").Value),5)%></font></td>
</tr>
<tr>
<td width="358" class="text"><%=Left((tblnyheder.Fields.Item("tblnyhed").Value),100)%>...<font style="font-family: verdana, arial, tahoma; font-size: 7pt; font-weight: bold; color: #3C4576"> | </font><a href="nyhedertext.asp?id=<%=(tblnyheder.Fields.Item("tblid").Value)%>" class="textlink">Læs »</a></td>
</tr><%
Repeat5__index=Repeat5__index+1
Repeat5__numRows=Repeat5__numRows-1
tblnyheder.MoveNext()
Wend
%>
