Ejecutar varias Instrucciones para una expresion Select-Case

Juan Miguel
21 de Julio del 2003
Ejemplo de una sola instrccion en cada "Case"
pdcto1 = Request.Form("placa1")
Select Case(pdcto1)
Case "1" : precio = miConexion("placa1")
Case "2" : precio = miConexion("placa2")
End Select
¿Como podria ejecutar mas de una instruccion para cada caso?
Si pongo otra instruccion mas me da error.Creo que es porque las instrcciones las separo por espacios y quizas deberia usar algun simbolo.

ejemplo mas de una instruccion por cada "Case"
pdcto1 = Request.Form("placa1")
Select Case(pdcto1)
Case "1" : precio = miConexion("placa1") nombre = miConexion("nombre1")
Case "2" : precio = miConexion("placa2")
End Select

Juan Miguel
21 de Julio del 2003
El caracter para separar las instrucciones y que de esta manera permita ejecutar mas de una instruccion por cada "Case" es los dos puntos ":".

Zulu
21 de Julio del 2003
o prueba a meter saltos de línea, que además quedará más claro

select case cosarara
case 1:
instruccion1
instruccion2
instruccion3
case 2:
instruccion4
instruccion5
end select

Juan Miguel
21 de Julio del 2003
Quedaria asi:

pdcto1 = Request.Form("placa1")
Select Case(pdcto1)
Case "1" : precio = miConexion("placa1") : nombre = miConexion("nombre1")
Case "2" : precio = miConexion("placa2") : nombre = miConexion("nombre2")

End Select