Select case

[empirerock 0]

Eu tenho esse código aqui que recebe de um form. Eu criei um select case, porém

na linha 7 do jeito que está não vai. Agora se eu colocar assim:

 

varImagens = 2

aí dá certo.

Más eu quero que seja selecionado o case de acordo com o que vem do form, no caso o request.form

 

Porque será que dá erro assim como está abaixo?

 

 

 

 

%
' Variaveis
' *********
Dim mySmartUpload
Dim intCount
Dim varImagens

varImagens = Request.form ("categoria") *****linha 7*****


' Cria o objeto
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

' Upload
mySmartUpload.Upload


' Rotina que salva os arquivos na pasta
select case varImagens

case 1
intCount = mySmartUpload.Save("c:\inetpub\vhosts\brvision.net\httpdocs\maquetes\imagens\parques")

case 2
intCount = mySmartUpload.Save("c:\inetpub\vhosts\brvision.net\httpdocs\maquetes\imagens\especiais")

case 3
intCount = mySmartUpload.Save("c:\inetpub\vhosts\brvision.net\httpdocs\maquetes\imagens\decoradas")

case 4
intCount = mySmartUpload.Save("c:\inetpub\vhosts\brvision.net\httpdocs\maquetes\imagens\loteamentos")

case 5
intCount = mySmartUpload.Save("c:\inetpub\vhosts\brvision.net\httpdocs\maquetes\imagens\residenciais")

case 6
intCount = mySmartUpload.Save("c:\inetpub\vhosts\brvision.net\httpdocs\maquetes\imagens\edificios")

end select



Response.Write(intCount & " file(s) uploaded.")

' Destroi o objeto
set mySmartUpload = nothing
%>

[Vinicius Ianni 189]

Boa Tarde !

 

Já tentou converter de sting para inteiro ?

 

Abraços,

Vinicius Ianni

[empirerock 0]

Eu estou tentando más não estou conseguindo.

Tô fazendo assim:

 

varImagens = Request.form ("categoria")

CINT = varImagens

[Vinicius Ianni 189]

E se ao inves de usar o select case, você fizer o seguinte:

if varimagens = 1

varimagen1 = "c:\inetpub\vhosts\brvision.net\httpdocs\maquetes\imagens\parques"

end if

 

e depois

 

intCount = mySmartUpload.Save '"& varimagen1 &"'

 

mais ou menos isso...

Acho que já deu para pegar minha linha de pensamento ...

 

Abraços,

Vinicius Ianni

[empirerock 0]

Primeiramente, obrigado por responder minhas dúvidas.

 

Bom, e como eu coloco várias opções? Eu tô fazendo assim e não tá dando certo.

 

 

if varimagens = 1

varimagen1 = ("c:\inetpub\vhosts\brvision.net\httpdocs\afmaquetes\imagens\parques")

 

elseif varimagens = 2

varimagen2 = ("c:\inetpub\vhosts\brvision.net\httpdocs\afmaquetes\imagens\especiais")

 

elseif varimagens = 3

varimagen3 = ("c:\inetpub\vhosts\brvision.net\httpdocs\afmaquetes\imagens\decoradas")

 

elseif varimagens = 4

varimagen4 = ("c:\inetpub\vhosts\brvision.net\httpdocs\afmaquetes\imagens\loteamentos")

 

elseif varimagens = 5

varimagen5 = ("c:\inetpub\vhosts\brvision.net\httpdocs\afmaquetes\imagens\loteamentos")

 

elseif varimagens = 6

varimagem6 = ("c:\inetpub\vhosts\brvision.net\httpdocs\afmaquetes\imagens\edificios")

 

end if

[Vinicius Ianni 189]

sem elseif

é melhor assim

else

if

 

mas no sistema que estou finalizando aqui e testado já faz um tempo, acho que se colocar

if ....

end if

e depois os outros casos, o processamento fica mais rápido - Imagino eu.

Acredito nisso porque seria algo assim

"se for 1 eu faço isso. fim."

com o uso de else ficaria assim

"se for 1 eu faço isso, se for 2 faço aquilo, se for 3 faço aquilo outro, se for 4, ufa, ...."

e pelo que vi você está usando a tags de prog. vb e não propriamente ASP, talvez seja por isso que esteja tendo uma certa dificuldade, pois apesar de usarem o basic como base, essas linguagens tem algumas diferenças.

Tá certo que tem uma tag que parece que se colocada, fica =, mas nunca é a mesma coisa que usar o codigo nativo.

<%@language=vbscript%>

 

Abraços,

Vinicius Ianni

[Vinicius Ianni 189]

AHHHHHHHHHHHH

e outra coisa:

 

Sem essa de varimagens2 varimagens3 e assim por diante.

 

note que na resposta anterior a varimagens1 é alimentada pela varimagens e dessa forma os laços condicionais que determinam onde será gravada a imagem vão variar de acordo com o valor de varimagens1

 

if varimagens = 1

varimagen1 = "c:\inetpub\vhosts\brvision.net\httpdocs\maquetes\imagens\parques"

end if

 

e depois

 

intCount = mySmartUpload.Save '"& varimagen1 &"'

 

 

com isso a variavel intCount é a unica que voce irá escrever, e o que vai mudar é só o caminho que a varimagens1 armazena. Variando conforme o valor de varimagens

 

Abraços,

Vinicius Ianni

[Mário Monteiro 179]

Nao pe bem assim nao

 

varImagens = Request.form ("categoria")
CINT = varImagens

faça assim

 

varImagens = Request.form ("categoria")
varImagens = CINT(varImagens)

[Anderson Roberto 0]

Só uma observação, o uso correto do If ElseIf é esse:

If <condicao> Then
   <procedimento>
ElseIf <condicao> Then
   <procedimento>
End If

[empirerock 0]

Obrigado por responderem.

 

Eu ainda não testei, más vou faze-lo, e se der certo eu posto aqui novamente.

 

 

Obrigado a todos

 

empirerock

TechMaster

[Mário Monteiro 179]

E nao der pode postar tambem

 

Abraços