Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Martinsrj

Tem como fazer com a estrutura case?

Por , em ASP Clássico

Recommended Posts

Martinsrj    0

Martinsrj
Postado

Olá pessoal, boa tarde!

Possuo o código abaixo e quero saber se existe como transforma-lo na estrutura case?

Desde já agradeço.

 

If var_SiteTecnico = "Rio de Janeiro" and var_StatusChamado "Chamado Fechado" Then
	EnviaEmail "falecommartins@hotmail.com"
Else
  If var_SiteTecnico = "São Paulo" and var_StatusChamado "Chamado Fechado" then
  	EnviaEmail "Exemplo2@gmail.com.br"
  Else
	 If var_SiteTecnico = "Macaé" var_StatusChamado "Chamado Fechado" then
	 	EnviaEmail "paulomartinsrj@ymail.com.br"
	 Else
		EnviaEmail "paulomartinsrj@gmail.com"					
	 End if
  End if
End if

Compartilhar este post

Link para o post
Compartilhar em outros sites

Vinicius Ianni    189

Vinicius Ianni
Postado

Não pode ser assim ?

 

if var_StatusChamado "Chamado Fechado" then
if var_SiteTecnico = "Rio de Janeiro" Then        
EnviaEmail "falecommartins@hotmail.com"
end if
If var_SiteTecnico = "São Paulo" then        
EnviaEmail "Exemplo2@gmail.com.br"  
end if
If var_SiteTecnico = "Macaé" then                
EnviaEmail "paulomartinsrj@ymail.com.br"
EnviaEmail "paulomartinsrj@gmail.com"                                            
End if
End if

Compartilhar este post

Link para o post
Compartilhar em outros sites

Martinsrj    0

Martinsrj
Postado

Assim eu já sei, conforme eu mencionei no post.

Quero saber com CASE.

 

Abs.

 

Não pode ser assim ?

 

if var_StatusChamado "Chamado Fechado" then

if var_SiteTecnico = "Rio de Janeiro" Then

EnviaEmail "falecommartins@hotmail.com"

end if

If var_SiteTecnico = "São Paulo" then

EnviaEmail "Exemplo2@gmail.com.br"

end if

If var_SiteTecnico = "Macaé" then

EnviaEmail "paulomartinsrj@ymail.com.br"

EnviaEmail "paulomartinsrj@gmail.com"

End if

End if

 

Compartilhar este post

Link para o post
Compartilhar em outros sites

Martinsrj    0

Martinsrj
Postado

Olá pessoal!

Segue o código abaixo a ídéia que tive. Existe no case colocar a opção AND.

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Estrutura Case</title>
</head>

<body>
<form name="" action="" >
<label id="optStatusChamado" for="optStatusChamado">Status do Chamado:</label><br />
<select name="optStatusChamado" id="optStatusChamado">
  <option value="">... Selecione ...</option>
  <option value="Chamado Fechado">Chamado Fechado</option>
  <option value="Pedido de Peças">Pedido de Peças</option>
  <option value="Pré Agendado">Pré Agendado</option>
  <option value="Incompleto">Incompleto</option>
  <option value="Outros">Outros</option>
</select>
<br /><br />
<label id="optSite" for="optSite">Escolha o Site:</label><br />
<select name="optSite" id="optSite">
  <option value="">... Selecione ...</option>
  <option value="Rio de Janeiro">Rio de Janeiro</option>
  <option value="São Paulo">São Paulo</option>
  <option value="Campinas">Campinas</option>
  <option value="Macaé">Macaé</option>
</select>

<input name="Enviar" type="submit" id="Enviar" value="Enviar" />
</form>

<%
var_StatusChamado = Trim(Request("optStatusChamado"))
var_SiteTecnico = Trim(Request("optSite"))

var_Situacao = var_StatusChamado &"|"& var_SiteTecnico
   
If var_Situacao <> "" then
	Select Case var_Situacao
		Case "Chamado Fechado|Rio de Janeiro"
			Response.Write "Email 1  " & var_StatusChamado & var_SiteTecnico 
		Case "Pedido de Peças|Rio de Janeiro"
			Response.Write "Email 2  " & var_StatusChamado & var_SiteTecnico
		Case "Pré Agendado|Rio de Janeiro"
			Response.Write "Email 3  " & var_StatusChamado & var_SiteTecnico
		Case "Incompleto|Rio de Janeiro"
			Response.Write "Email 4  " & var_StatusChamado & var_SiteTecnico
		Case "Outros|Rio de Janeiro"
			Response.Write "Email 5  " & var_StatusChamado & var_SiteTecnico
		Case "Chamado Fechado|São Paulo"
			Response.Write "Email 6  " & var_StatusChamado & var_SiteTecnico
		Case "Pedido de Peças|São Paulo"
			Response.Write "Email 7  " & var_StatusChamado & var_SiteTecnico
		Case "Pré Agendado|São Paulo"
			Response.Write "Email 8  " & var_StatusChamado & var_SiteTecnico
		Case "Incompleto|São Paulo"
			Response.Write "Email 9  " & var_StatusChamado & var_SiteTecnico
		Case "Outros|São Paulo"
			Response.Write "Email 10  " & var_StatusChamado & var_SiteTecnico		
		Case "Chamado Fechado|Campinas"
			Response.Write "Email 11  " & var_StatusChamado & var_SiteTecnico 
		Case "Pedido de Peças|Campinas"
			Response.Write "Email 12  " & var_StatusChamado & var_SiteTecnico
		Case "Pré Agendado|Campinas"
			Response.Write "Email 13  " & var_StatusChamado & var_SiteTecnico
		Case "Incompleto|Campinas"
			Response.Write "Email 14  " & var_StatusChamado & var_SiteTecnico
		Case "Outros|Campinas"
			Response.Write "Email 15  " & var_StatusChamado & var_SiteTecnico		
		Case "Chamado Fechado|Macaé"
			Response.Write "Email 16  " & var_StatusChamado & var_SiteTecnico 
		Case "Pedido de Peças|Macaé"
			Response.Write "Email 17  " & var_StatusChamado & var_SiteTecnico
		Case "Pré Agendado|Macaé"
			Response.Write "Email 18  " & var_StatusChamado & var_SiteTecnico
		Case "Incompleto|Macaé"
			Response.Write "Email 19  " & var_StatusChamado & var_SiteTecnico
		Case "Outros|Macaé"
			Response.Write "Email 20  " & var_StatusChamado & var_SiteTecnico
		
		Case Else
			'Response.Write "Email da Diretoria " & "Status do Chamado: " & var_StatusChamado & "Site do Maluco: " & var_SiteTecnico
			Response.Write("Aqui segue a mensagem caso o usuario não escolha as duas opções!!!")			
	End Select
Else

End if	
%>
</body>
</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

o operador SELECT CASE é utilizado para condições que possuam muitos elementos

 

Select Case my_num
Case 100 
Response.Write “It is less than 100" & "<br>"
Case 150 Response.Write “It is equal to 150 " & "<br>"
Case 200 Response.Write “It is equal to 200 " & "<br>"
...
...
Case 150,160

Response.Write " It is equal to 150 or 160 " & "<br>" 
End Select

Compartilhar este post

Link para o post
Compartilhar em outros sites

Martinsrj    0

Martinsrj
Postado

Compreendo.

Eu sei utilizar o select case. A minha dúvida se tem como realizar o mesmo procedimento que eu fiz com if no primeiro post desse tópico. O meu segundo post desse tópico eu criei apenas uma pagina de teste onde eu criei uma estrutura de decisão utilizando o CASE simulando a mesma idéia do IF do primeiro post.

A pergunta é,

Conforme a pagina que eu criei utilizando CASE foi uma gambiarra ou foi uma boa pratica de programação?

 

Abraços.

 

o operador SELECT CASE é utilizado para condições que possuam muitos elementos

 

Select Case my_num
Case 100 
Response.Write “It is less than 100" & "<br>"
Case 150 Response.Write “It is equal to 150 " & "<br>"
Case 200 Response.Write “It is equal to 200 " & "<br>"
...
...
Case 150,160

Response.Write " It is equal to 150 or 160 " & "<br>" 
End Select

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Conforme a pagina que eu criei utilizando CASE foi uma gambiarra ou foi uma boa pratica de programação?

Foi uma boa solução.

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

ao invés de usar o "and" use a "," para atribuir mais de um teste

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito