Ver Mensaje Individual
  #1 (permalink)  
Antiguo 21/09/2006, 02:47
Avatar de Bravenap
Bravenap
 
Fecha de Ingreso: noviembre-2002
Ubicación: Los Arroyos, El Escorial, Madrid
Mensajes: 2.084
Antigüedad: 22 años, 2 meses
Puntos: 4
Sacar registro diario

Muy buenas. Tengo una función de ASP 3.0 para sacar un registro diario de una base de datos. La quiero adaptar a .Net pero hay algunas cosas que se me escapan.

Código:
<%
fechaBase = CDate("01/01/1980")
fechaActual = Date

iteracionDiaria = DateDiff("d",fechaBase,fechaActual)
iteracionSemanal = DateDiff ("w",fechaBase,fechaActual)

'Cambio de libro cada día
sqlLibros = "select id,autor,titulo from libros"
set rsLibros = Conn.Execute(sqlLibros)

'Lo siguiente supongo que se abrevia utilizando un SELECT COUNT(*)...
numLibros = 1
while not rsLibros.eof
	rsLibros.movenext
	numLibros = numLibros + 1
wend
rsLibros.movefirst
'calculamos resto de division entera con numLibros
posicion = iteracionDiaria mod numLibros

for i = 1 to posicion - 1
 rsLibros.movenext
next 
response.Write("<i>" & rsLibros("titulo") & "</i> " & rsLibros("autor"))
%>
¿Por qué posición nunca es mayor que el número de registros, en este caso 366?
__________________
¡¡NO A LA GUERRA!!
Si ponemos a nuestros mensajes títulos adecuados, la gente se animará más a abrirlos y resultarán más útiles en las busquedas. ¡No a los ayuuudaaa, urgenteee y similares!