Access consulta randomica

[MARCOSOFTHARD 0]

Ola pessoa, tenho essa página e não consigo fazer ela ficar randomica

 

<!--#include file="../db/conexao.asp"-->

<%
Response.Expires = -1000






sql = "SELECT * FROM TAB_Ramo INNER JOIN TAB_Parceiro ON TAB_Ramo.RamoID = TAB_Parceiro.RamoID WHERE tipoparceiro = 0 ORDER BY RND(INT(NOW*[TAB_Ramo.RamoID])-NOW*[TAB_Ramo.RamoID])"




objRS.Open SQL , Conn
'rndMax = CInt(objRS.RecordCount)
'objRS.MoveFirst
'Randomize Timer
'rndNumber = Int(RND * rndMax) 
'objRS.Move rndNumber

xx = 1

%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
  <%
  While xx <= 2
  %>
	<th width="50%" scope="col"><table width="223" border="0" cellpadding="1" cellspacing="1">
	  <tr>
		<td align="center" valign="middle"><img src="<%=objRS("LogoMarceParceiro")%>" border="1" /> </td>
	  </tr>
	  <tr>
		<td align="center" valign="middle" class="h2">Nome: <%=objRS("NomeParceiro")%></td>
	  </tr>
	  <tr>
		<td align="center" valign="middle" class="h2">Ramo: <%=objRS("NomeRamo")%></td>
	  </tr>
	  <tr>
		<td align="center" valign="middle"><a href="<%=objRS("SiteParceiro")%>" target="_blank" class="h2">Visite 
		  o site</a> </td>
	  </tr>
	</table></th>
  
  
  <%
  if (xx mod 2 = 0) then
  %>
  </tr><tr>
   <%
   end if
  xx = xx + 1
  ObjRS.moveNext
Wend
%>
  </tr>
</table>
<p>
  <%

Conn.close
'objRs.close

set Conn = nothing
set objRS = nothing
%>
</p>
<p>  </p>

[hargon 64]

Alguma mensagem de erro?