hola estoy intentanto mostrar dos registros aleatorios
lo intento hacer de la siguiente manera
Código PHP:
<%' mostrando un registro aleatorio de una tabla
Dim rs_opiniones
Dim rs_opiniones_numRows
Set rs_opiniones = Server.CreateObject("ADODB.Recordset")
rs_opiniones.ActiveConnection = MM_IBW_STRING
rs_opiniones.Source = "SELECT * FROM noticias"
rs_opiniones.CursorType = 0
rs_opiniones.CursorLocation = 3
rs_opiniones.LockType = 1
rs_opiniones.Open()
'sql = "SELECT * FROM Tu_Tabla"
'set rs = Server.CreateObject("ADODB.Recordset")
'rs.OPEN sql, conn, 3, 1
intTotalRecords = rs_opiniones.RecordCount
Randomize()
intRandomNumber = Int((intTotalRecords * Rnd))
rs_opiniones.Move intRandomNumber
titulo_1= rs_opiniones("titulo")
contenido_1 = rs_opiniones("contenido")
fecha_1= rs_opiniones("fecha_not")
link_1= rs_opiniones ("link")
link_text_1 = rs_opiniones("link_text")
%>
<span><%=fecha_1%></span><h2> <%=titulo_1%></h2><br />
---------------------------------------------------------------------------------
<br />
<%
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::
':: aqui me muevo un registro por encima
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::
posicio_sup = intRandomNumber+1
if posicio_sup => intTotalRecords then
posicio_sup2 = posicio_sup-1
rs_opiniones.Move posicio_sup2
else
rs_opiniones.Move posicio_sup
end if
titulo_2= rs_opiniones("titulo")
contenido_2 = rs_opiniones("contenido")
fecha_2= rs_opiniones("fecha_not")
link_2= rs_opiniones ("link")
link_text_2 = rs_opiniones("link_text")
%>
<span><%=fecha_2%></span><h2> <%=titulo_2%></h2><br />
<br />
<br />
<br />
<br />
<%'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
' :::::::::::::::: aqui muestro numeros borrrar
' ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
%>
total registres = <%=intTotalRecords%><br />
posicio_random = <%=intRandomNumber%><br />
posicio_sup = <%=posicio_sup%><br />
posicio_sup2 = <%=posicio_sup2%>
<br />
<%
rs_opiniones.Close
conn.close
%>
el if posicio_sup => intTotalRecords then
es para que cuando posicio_sup sea igual o mayor que el total de registros no me sume si no que me reste posiciones
todo funciona pero cuando el registro es el ultimo me da un error diciendo que el registro ha sido eliminado