gracias mano, mira hice esto:
Cita: <%v=request.QueryString("var")%>
<%
set rs=server.CreateObject("adodb.recordset")
sql="SELECT HORA FROM dbo.HORAS"
rs.ActiveConnection = db
rs.Open SQL
dim vh(24)
i=0
while not rs.eof
vh(i)=rs(0)
i=i+1
rs.movenext
wend
rs.close
set rs=nothing
%>
<%
set rs=server.CreateObject("adodb.recordset")
sql="SELECT HORA FROM dbo.CITA WHERE (FECHA = '"& v &"')"
rs.ActiveConnection = db
rs.Open SQL
dim h_ocupadas(24)
a=0
while not rs.eof
h_ocupadas(a)=rs(0)
a=a+1
rs.movenext
wend
rs.close
set rs=nothing
%>
<%
response.Write "<select id=libres>"
for i=0 to ubound(vh)
for j=0 to ubound(h_ocupadas)
if h_ocupadas(j)<>vh(i) then
temp=temp+1
else
j=ubound(h_ocupadas)+1
end if
if temp=ubound(h_ocupadas) then
response.Write "<option value="&i&">"&vh(i)&"</option>"
temp=0
end if
next
next
response.Write "</select>"
%>
lo q esta rojo es porq si lo redimensionaba los vectores como lo pusiste tu pues me decia q estaba fuera del intervalo....pero aun asi como lo hice anda mal, ya q si son menores de 25 pues en el combo siempre me deja un espacio en blanco al final.....como hago q el vector empiece en nada osea vector(0) y luego redimensaionarlo...como lo pusiste me genera error man...espero me ayudes