Pronóstico de pleamares y bajamares

<% filasc = 0 SQL = combo Set TEM = DATACONN.Execute(sql) if NOT TEM.BOF AND NOT TEM.EOF THEN datosc = TEM.GetRows() filasc = UBound(datosc, 2) For intRowc = 0 to filasc Response.Write "" & datosc(1,introwc) & "" Next END IF set tem = nothing %>     <% sql="select distinct(year(fecha)) as annyo from planabaja order by annyo desc" set tem=DATACONN.execute(sql) do while not(tem.eof) %> <%=tem.fields(0)%> <% tem.movenext loop set tem = nothing oconn.desconectar set dataconn = nothing %>     Enero Febrero Marzo Abril Mayo Junio Julio Agosto Septiembre Octubre Noviembre Diciembre