YA LO HICE PERO ME SALE Error de compilación de Microsoft VBScript (0x800A03FB)
Se esperaba 'Loop'
/rrhhnew/temasdesalud/0030031copy.asp, línea 333
ESTO ES LO QUE ACABO DE HACER
<%' codigo para filtrar Horarios de medicos, ginecologos y pediatras.
select case Request("TipoDoctor")
case "MEDICO"
Con.Execute Sp_HorarioCitas
case "GINECOLOGO"
Con.Execute Sp_HorarioCitasCopy
case "PEDIATRA"
Con.Execute Sp_HorarioCitasCopy
End Select
%>
<%SQL = "Execute Sp_HorarioCitas '" + Trim(DiaSemana) + "','" + Trim(Fecha) + "','" + Trim(Request("TipoDoctor")) + "'"
response.Write(sql)
Set RS = Conn1.Execute(SQL)
Do While Not RS.EOF%>
<%SQL = "Execute Sp_HorarioCitasCopy '" + Trim(DiaSemana) + "','" + Trim(Fecha) + "','" + Trim(Request("TipoDoctor")) + "','" + Trim(FechaInicio) + "','" + Trim(FechaFin) + "'"
response.Write(sql)
Set RS = Conn1.Execute(SQL)
Do While Not RS.EOF%>
AHORA SI YA NO SE QUE ESSSS.
GRASCIAS POR SU AYUDA
