No logro comparar campo hora con variable hora

[heman24]

Hola amigos, tengo un script con el cual compara si la hora es igual a un valor de variable para ejecutar un proceso. El tema es que probe de mil maneras y no pasa nada. Cuando la variable hora es exactamente igual a el campo hora, pero no se si el mismo tipo de datos, me da siempre vacio. Mientras que si en lugar de poner la variable pongo "07:00:00 a.m." lo lee perfecto.
aca va el codigo y agradecere una mano, ya que sino (cosa que ya hice jeje) recurrire al precario metodo de repetir 17 veces el mismo script..

en negrita marque el lugar de conflicto.

mi tabla es con los siguientes campos

id_r1=autonum
id_cancha1 = numero - entero
miembro_id = numero - entero
hora_comienzo = fecha/hora - fecha corta (probe tambien con larga y sin formato)
hora_fin = fecha/hora - fecha corta (probe tambien con larga y sin formato)
fecha = fecha/hora



For i= 1 to 17
n=n+1
hora= FormatDateTime(TIMESERIAL (n+1, 00, 00), 4)
response.write"<tr>"
response.write"<td width='15%' bgcolor='#CCCC00'><div align='center'>"
response.write(hora)
response.write"</div></td>"
response.write"<td width='85%' rowspan='2' bgcolor='#ffffff'><div align='center'>"
response.write"<a target='MM' href='carga_reserva_cancha1.asp?hora=07:00'>Dispon ible</a>"
response.write"</td>"
response.write" </tr>"
response.write"<tr>"
Response.write"<td bgcolor='#CCCC00'><div align='center'>"
hora =FormatDateTime(TIMESERIAL (n+2, 00, 00), 4)
response.write(hora)
response.write"</div></td>"
Response.write"</tr>"

next
response.write"</table>"

else
i=1
n=05
response.write"<table width='100%' border='0' align='left'>"
For i= 1 to 17
' RS3.movenext
n=n+1
hora= FormatDateTime(TIMESERIAL (n+1, 00, 00), 4)
hora_sql=FormatDateTime(TIMESERIAL (n, 00, 00), 3)
'nueva_hora_sql =Dateadd("h",1, hora_sql)
response.write(Cstr(hora_sql))'de control
response.write" "'decontrol
response.write(n) ' de control

if RS3.fields("hora_comienzo") = hora_sql and not rs3.eof then ' para ver la hora
id_user = rs3.Fields("miembro_id")
user=Csng(id_user)
' response.write (id_user)'control
SQL_user="SELECT * FROM usuarios_p WHERE id="&user&"" ' busco usuario
Set RS_user = Server.CreateObject("ADODB.Recordset")
RS_user.Open SQL_user,conexion3,2,3,1

response.write"<tr>"
response.write"<td width='15%' bgcolor='#CCCC00'><div align='center'>"
'response.write"0"
hora =FormatDateTime(TIMESERIAL (n+1, 00, 00), 4)
response.write(hora)
'response.write":00"
response.write"</div></td>"
response.write"<td width='85%' rowspan='2' bgcolor='#CCCC99'><div align='center'>"
response.write(RS_user.Fields("Nombre"))
response.write" "
response.write(RS_user.Fields("Apellido"))
response.write"<br>"
response.write"Lote: "
response.write(RS_user.Fields("Lote"))
response.write" | Telefono: "
response.write(RS_user.Fields("Telefono"))
response.write " "
if RS_user.Fields("id") = CINt(Request.Cookies("usuario"))then
response.write "<a target='MM' href='elimina_reserva_cancha1.asp?hora=07:00'><img src='imagenes/b_eliminar_x1.GIF' width='16' height='16' border='0'></a>"
end if
response.write"</td>"
response.write" </tr>"
response.write"<tr>"
Response.write"<td bgcolor='#CCCC00'><div align='center'>"
hora =FormatDateTime(TIMESERIAL (n+2, 00, 00), 4)
response.write(hora)
response.write"</div></td>"
Response.write"</tr>"
'response.write(RS3.Fields("miembro_id"))
' response.write "el que estaba----"
rs3.movenext
else
response.write"<tr>"
response.write"<td width='15%' bgcolor='#CCCC00'><div align='center'>"
response.write(hora)
response.write"</div></td>"
response.write"<td width='85%' rowspan='2' bgcolor='#ffffff'><div align='center'>"
response.write"<a target='MM' href='carga_reserva_cancha1.asp?hora=07:00'>Dispon ible</a>"
response.write"</td>"
response.write" </tr>"
response.write"<tr>"
Response.write"<td bgcolor='#CCCC00'><div align='center'>"
hora =FormatDateTime(TIMESERIAL (n+2, 00, 00), 4)
response.write(hora)
response.write"</div></td>"
Response.write"</tr>"


end if
next