15/05/2004, 23:22
|
 | | | Fecha de Ingreso: diciembre-2002 Ubicación: ...
Mensajes: 117
Antigüedad: 22 años, 5 meses Puntos: 0 | |
| Entonces es más sencillo
<%' 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)
'para que creas 2 recordsets redundantes????
'en todo caso nada más ejecuta el sp
Conn1.Execute(SQL)
'y ahora si, te mueves al siguiente registro y continua el volcado del recordset
rs.movenext
loop
__________________
" El hombre es una invención de Dios o Dios es una invención del hombre..." |