For... Next

[eduvivi]

Ok ahi va....


<%
Dim buscar
buscar= Trim(Request("buscar") )
buscar=Replace(Request("buscar"),"'", "''")

'*****************************
' Conectamos a la BD.
Set oConn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.Recordset")
oConn.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("clientes.mdb")
' seleccionamos todos los registros.
sql = "SELECT * FROM datos WHERE ((grupo = 'patrocinador') AND (pclaves LIKE '%" & buscar & "%' OR nombre LIKE '%" & buscar & "%' OR descripcion LIKE '%" & buscar & "%')) "
RS.OPEN sql, oConn, 3, 1
If Rs.EOF and Rs.BOF THEN
Response.Write "No se encontraron registros acorde a su busqueda en la sección PATROCINADORES"
ELSE
DIM cuenta
FOR cuenta=0 TO 3 Step 1
intTotalRecords = rs.RecordCount
Randomize()
intRandomNumber = Int((intTotalRecords * Rnd))
rs.Move intRandomNumber
%>
<b><font color="#FF0033"><br>
</font></b> </strong></font><b><font face="Verdana, Arial, Helvetica, sans-serif"><b><font face="Verdana, Arial, Helvetica, sans-serif"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#FF0033"><%=RS("nombre")%></font></b></font><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#FF0033"><br>
<%=RS("descripcion")%><br>
</font><font face="Verdana, Arial, Helvetica, sans-serif"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#FF0033"><%=RS("url")%></font></b></font><br>
</b></font></b><font color="#999999" size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong>
<%
If (cuenta=3) Then
Response.Write "Ha terminado el bucle..."
END IF
Next
'Cerramos y limpiamos (como siempre).
RS.Close
oConn.close
Set RS = Nothing
Set oConn = Nothing
End If
%>

Ahi esta todo completo