Language: français | deutsch | english | español |
|
| > Judía > Calabacín > Tomate > Pimiento > Pepino > Berenjena > Melón |
 |
 |
 Nuestra empresa se constituyó en 1990, somos una subasta agraria dedicada a la comercialización y distribución de producto hortofrutícola Almeriense. |
 La casi totalidad de nuestra campaña parte hacia el mercado internacional. La constante mejora profesional y nuestro estricto control de calidad nos hacen ser muy valorados más allá de nuestra frontera. |
<%
' Moving to random record - Steven Jones' Extension
If Not(campagna.bof and campagna.eof) Then
' reset the cursor to the beginning
If (campagna.CursorType > 0) Then
campagna.MoveFirst
Else
campagna.Requery
End If
campagna_totalrn = -1
campagna_totalrn = campagna.RecordCount ' ony works on some recordsets, but much faster
If (campagna_totalrn = -1) Then ' and if it didn't work, we still have to count the records.
' count the total records by iterating through the recordset
campagna_totalrn=0
While (Not campagna.EOF)
campagna_totalrn = campagna_totalrn + 1
campagna.MoveNext
Wend
' reset the cursor to the beginning
If (campagna.CursorType > 0) Then
campagna.MoveFirst
Else
campagna.Requery
End If
End If
' now do final adjustments, and move to the random record
campagna_totalrn = campagna_totalrn - 1
If campagna_totalrn > 0 Then
Randomize
campagna.Move Int((campagna_totalrn + 1) * Rnd)
End If
End If
' all done; you should always check for an empty recordset before displaying data
%>
Encuentra aqui la información y la evolución de precios de nuestros productos en el presente año. <%=(campagna.Fields.Item("nombre").Value)%> / <%=(campagna.Fields.Item("fecha").Value)%> |
|
|||||
 |
 |
 |
2007. Agrupalmeria S.A.® todos los derechos reservados.