consulta Stored Procedures Urgente Please

[fercom]

Hola a todos tengo un tema un poco complicaado

Tengo una pagina que ejecuta un Stored Procedures que es el sgte:

SQL = "Execute Sp_HorarioCitas '" + Trim(DiaSemana) + "','" + Trim(Fecha) + "','" + Trim(Request("TipoDoctor")) + "'"
Set RS = Conn1.Execute(SQL)
Do While Not RS.EOF
La variable TipoDoctor tiene tres valores MEDICO PEDIATRA GINECOLOGO

lo que quiero nhacer es que cuando venga como MEDICO se ejecute el Stored Procedures de arriba y cuando venga PEDIATRA Y MEDICO ejecute este otro Stored Procedures:

<%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%>

se que hay que hacer algo de If o Else pero no lo se bien, si alguien es tan amable de escribirme el codigo ya resuleto para poder entenderlo se lo voy agradecer.

Gracias de antemano y saludos

[fercom]

donde dice Pediatra y Medico debe decir Pediatra y ginecologo.


Gracias.

[Myakire]

Puede ser con condicionales:

select case Request("TipoDoctor")
case "Pediatra"
Con.Execute1
case "Ginecologo"
Con.Execute2
etc
End Select

Saludos

[fercom]

Voy hacerlo y despues si necesito mas ayuda vuelvo.
Graciasss..

[fercom]

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

[Atonovich]

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