Problema con rutina que lee base de datos
Necesito saber en que forma puedo leer los valores de una base de datos. El problema es el siguiente: Yo lo que estoy realizando es un calendario de eventos. En cada dia tengo que presentar unos eventos que los leo de Access. Pero hay dias en los cuales en la base de datos aparecen dos eventos diferentes en dos lineas diferentes. Y con la rutina que tengo solo me presenta un evento por dia. Esta es mi rutina:
Response.Write aCalendarDays((iWeek-1)*7 + _ iDay) & "<BR>"
strSQL = "SELECT subject FROM calendario _
WHERE startDate = #" & dtOnDay &"#"
Set objRS = objConn.Execute(strSQL)
If NOT objRS.EOF Then
dailyMsg = objRS("subject")
Else
dailyMsg = ""
End If
Set objRS = Nothing
Response.Write ("<A HREF=""" & _
strPage & """> " & "<BR> " & (dailyMsg) & "</A>")
Response.Write aCalendarDays((iWeek-1)*7 + _ iDay) & "<BR>"
strSQL = "SELECT subject FROM calendario _
WHERE startDate = #" & dtOnDay &"#"
Set objRS = objConn.Execute(strSQL)
If NOT objRS.EOF Then
dailyMsg = objRS("subject")
Else
dailyMsg = ""
End If
Set objRS = Nothing
Response.Write ("<A HREF=""" & _
strPage & """> " & "<BR> " & (dailyMsg) & "</A>")
Buenas, creo que el problema esta en que solo lees la informacion del primer registro. Deberias hacer un Do while not objRS.EOF
dailyMSG = dailyMSG & objRS("Subject")
objRS.movenext
loop
para que recorra todos los recordset. No crees?
dailyMSG = dailyMSG & objRS("Subject")
objRS.movenext
loop
para que recorra todos los recordset. No crees?
