yo tengo uno asi:
[highlight=asp]<%'REALIZA TU CONEXION
SQL="Select * From palabras order by id"
RS.open sql, oconn
do while not rs.eof
Randomize
minimo = 2
maximo = 4
p_id = Int(((maximo-minimo+1) * Rnd) + minimo)
%><h<%=p_id%> style="clear:none !important; display:inline !important; background:none !important;">
<a href="<%=rs("enlace")%>"><%=rs("palabra")%></a>
</h><%=p_id%>>
<%rs.movenext
loop%>
[/highlight]
Aqui lo que hago es intercambiar etiquetas <H2> a <H4> aleatoriamente