random udtræk i loop

jeg har nedestående side, hvor jeg så gerne vil have vist 4 TILFÆLDIGE billeder
<%
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db.mdb")
sql = "SELECT TOP 4 * FROM kort"
set rs = Conn.Execute(sql)
%>
<font face="Arial" size="2"><table border="0" width="106" id="table3">
<tr>
<%
COUNTER = 0
Do While Not rs.eof
%>
    <td width="100">
        <div align="center">
            <table border="0" width="100" id="table4" cellspacing="0" cellpadding="0" bordercolor="#000000">
            <tr>
                <td width="100" align="left"><font face="Arial" size="2"><b><%=rs("beskrivelsestitel")%></b></font></td>
            </tr>
            <tr>
                <td width="100" align="center">
                <font face="Arial" size="2">
                <a href="default.asp?menu=<%=request.querystring("menu")%>&menunavn=<%=request.querystring("menunavn")%>&sub=<%=request.querystring("sub")%>&id=<%=rs("id")%>">
                <img border="0" src="billeder/<%=rs("forside")%>" width="100" height="125"></a></font></td>
            </tr>
            <tr>
                <td width="100" align="center">
                <p align="right"><font face="Arial" size="2"><b>
                Antal: <%=rs("antal")%></b></font></td>
            </tr>
            </table>
        </div>
    </td>
<%
    rs.Movenext
    COUNTER = COUNTER + 1
    If COUNTER = 2 And Not rs.eof Then
        COUNTER = 0
%>
</tr>
<tr>
<%
    End If
Loop
%>
</tr>
</table></font>