Randomize record set
Min kode:<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database/tilbud.mdb")
SQL = "SELECT * FROM tilbudVare where priotet='A'"
set rs = Connect.execute(SQL)
top3 = 1
while not rs.eof and top3 < 4
%>
<table width="295" border="0" cellspacing="0" cellpadding="0" height="146" background="images/tilbud-kasse<%=top3%>.gif">
<tr>
<td align="right" valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="22">
<tr>
<td width="95"> </td>
<td>
<div align="center" class="boldfont"><%=rs("varenavn")%></div>
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="124">
<tr>
<td width="20"> </td>
<td width="95">
<div align="center" class="tilbud"> <%=rs("tilbudpris")%>.-</div>
</td>
<td width="10"> </td>
<td width="145">
<div align="center">
<table width="95" cellspacing="0" cellpadding="0" height="95">
<tr>
<td><img src="tilbudbilleder/<%=rs("billede")%>" width="95" height="95" border="1"></td>
</tr>
</table>
</div>
</td>
<td> </td>
</tr>
</table>
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="15">
<tr>
<td></td>
</tr>
</table>
<%
top3 = top3 +1
rs.movenext
wend
%>
HVORDAN KAN JEG LAVE SÅ DEN TRÆKKER DATA UD RANDOM ?
ALTSÅ 3 RANDOM BILLEDER HVERGANG FILEN KØRERES.
