Sacar registros aleatorios de BD?

[RauMarSo]

Iniciado por mc_quake

tu pides esto:
sacar unos registros aleatorios de una base de datos pero solo consigo sacar uno.

solucion usando la cosulta que ya tines pesta:

Código asp:

<%
AbreBaseDatos("Datos") 
SQL = "SELECT TOP 10 * FROM ARTICULOS NEWID()"
' selecconas 10 registros de forma aleatoria de la tabla articulos. el numero 10 lo cambias por la cantidad de registros que quieras optener
AbreRecordSet rs,SQL,ConDatos
intTotalRecords = rs.RecordCount
 
While NOT rs.EOF
%>
<a href="/articulo.asp?op=Ver_Articulo&RefPro=<%=rs.fields(" RefProducto")%>&RefArt=<%=rs.fields("RefArticulo") %>&cat=<%=rs.fields("categoria")%>"><img src="/imagen.asp?path=<%=Server.MapPath("/Images/Productos/")& "/" & rs.fields("RefArticulo")%>_1.jpg&height=75" height="75" border="0" align="left"></a>
<br><br>
<a href="/articulo.asp?op=Ver_Articulo&RefPro=<%=rs.fields(" RefProducto")%>&RefArt=<%=rs.fields("RefArticulo") %>&cat=<%=rs.fields("categoria")%>"><%=rs("Nombre" )&" "&rs("color")%></a><br><br><br><font size="1"><blockquote><%=(left(rs("Descripcion"),25 0)) %> ...</blockquote></font>
 
<%
Rs.MoveNext
wend
%>
 

Me da el siguiente error y no se a que se debe, creo que esta todo bien

------ error -------
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][Controlador ODBC Microsoft Access] Error de sintaxis en la cláusula FROM.

/Includes/master.asp, línea 45
---- fin error -----

----- codigo -----

Sub AbreRecordset(recordset,consulta,conexion)
'Response.Write(CONSULTA & "<BR><BR>")
Set Recordset=Server.CreateObject("ADODB.Recordset")
Recordset.Open consulta,conexion,adOpenStatic <--------Linea 45
End Sub

--- fin codigo ---

Un saludo y muchísimas gracias por vuestra ayuda