Hola que tal... tengo un error que dice asi:
Código:
Tipo de error:
(0x80020009)
Ocurrió una excepción.
/agenda/calendario.asp, línea 183
acá está la parte del código que tiene el error... lo que sucede es que cuando pongo el segundo "rs2.MoveNext" ... me aparece un error en el principio del condicional, en la parte del condicion que dice lo que se tiene que cumplir... y no sé como arreglarlo... (los puse en negrita para que los identifiquen)
Código:
'conexion a base de datos
dim con2,rs2,sql2,xdia
set con2 = server.CreateObject("ADODB.Connection")
con2.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\agenda\agenda.mdb;User Id=;Password=;"
set rs2 = server.CreateObject("ADODB.Recordset")
sql2 = "SELECT *FROM EVENTOS WHERE FECHA LIKE '%/"&xmes&"/%' order by FECHA "
rs2.open sql2,con2,1,2
rs2.MoveFirst
'Pintamos el calendario
iActual = 1
iPosicion = iPrimerDiaSemanaMes
do while iActual <= iDiasDelMes
if iPosicion = 1 then
'Empezamos nueva semana, es decir nueva fila
Response.Write vbTab & "<TR>" & VbCrLf
end if
if Cint(iActual) = Cint(day(rs2.Fields("FECHA"))) then
if iActual = iDia then
'Resaltamos la fecha seleccionada
Response.Write (vbTab & vbTab & "<TD CLASS='diaActual'><B><A HREF='diax.asp?dia="&day(rs2.Fields("FECHA"))&"'>"& iActual & "</A></B><br></TD>" & vbCrLf)
rs2.MoveNext
else
Response.Write (vbTab & vbTab & "<TD ALIGN='CENTER'><A HREF='diax.asp?dia="&day(rs2.Fields("FECHA"))&"'>" & iActual & "</A><br></TD>" & vbCrLf)
rs2.MoveNext
end if
else
if iActual = iDia then
'Resaltamos la fecha seleccionada
Response.Write vbTab & vbTab & "<TD CLASS='diaActual'><B>"& iActual & "</B><br></TD>" & vbCrLf
else
Response.Write vbTab & vbTab & "<TD ALIGN='CENTER'>" & iActual & "<br></TD>" & vbCrLf
end if
end if
gracias por cualquier ayuda!...
Alexis