anita mira este ejemplo alomejor te puede ayudar
Cita:
SQL="SELECT * FROM actividades WHERE clavearea='"&area&"' AND claveproceso='"&proceso&"' AND fecha='"&fecha&"' ORDER BY fecha"
fCount = Registros.Fields.Count - 1 ' se coloca -1 por que empieza a contar de 0
Response.Write "<table border=1><tr bgcolor='#D8ECFC'>"
for i=0 to fCount
Response.Write "<th><font color=#0000FF size=1 face=Trebuchet MS><strong>" & Registros(i).name & "</strong></font></th>"
next
Response.Write "</tr>"
While Not Registros.EOF
Response.Write "<tr>"
for i=0 to fCount
Response.Write "<td><font color=#0000FF size=1 face=Trebuchet MS>" & Registros(i).value & "</font></td>"
next
Response.Write "</tr>"
Registros.MoveNext
Wend
Response.Write "</table>"
y deacurdo a la revision de tu codigo :
Cita: <table border=1>
<tr>
<td>Nº</td>
<td>Actividad</td>
<td>Hora Inicio</td>
<td>Hora Final</td>
<td>Tiempo Programado</td>
</tr>
<% SQL="SELECT * FROM actividades WHERE clavearea='"&area&"' AND claveproceso= '"&proceso&"' AND fecha='"&fecha&"' ORDER BY fecha"
'Set Conn=Server.CreateObject("ADODB.Connection")
'Conn.Open "DSN=actividades;uid=actividades;pwd=actividad es"
Set RC=Conn.Execute(SQL)
i = 1
DO WHILE NOT RC.EOF
%>
<tr>
<td><%=i%></td>
<td><%=rc("actividad")%></td>
<td><%=rc("horainicio")%></td>
<td><%=rc("horafinal")%></td>
<td><%=rc("tiempoprog")%></td>
</tr>
<%
i = i + 1
rc.movenext
Loop
si no funciona talves sea por problemas con el campo fecha que estas consultando