Ir para conteúdo

POWERED BY:

Arquivado

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

Martinsrj

[Resolvido] [Erro] Utilizando o IF

Por , em ASP Clássico

Recommended Posts

Martinsrj    0

Martinsrj
Postado

Olá pessoal, beleza?

Estou me deparando com o seguinte erro:

Tipo de erro:

Erro de compilação do Microsoft VBScript (0x800A0408)

Caractere inválido

/grupo_demanda/projetos/ins.descprojeto.asp, line 21, column 22

if var_status = Concluído then

---------------------^

 

A minha intenção é o seguinte:

Quando a variavel var_status for a opção Concluído (obs.: usuario escolhe essa opção através de uma combo)

quero que a variavel var_legenda receba a string: img_smiles/concluido.gif

e assim sucessivamente.

 

desde já agradeço pela luz,

 

Abraço a todos.

 

<% Option Explicit %>
<!--#Include file="conexao.asp"-->
<%
Dim conbd_gd, rsInsere, strINS, var_data, hora, Minuto, Segundo, var_codeprojeto, var_acao, var_status, var_responsavel, var_datedia, var_datemes, var_dateano, var_legenda

var_codeprojeto = TRIM(Request.Form("txt_codprojeto"))
var_acao = TRIM(Request.Form("txt_acao"))
var_status = TRIM(Request.Form("txt_status"))
'var_legenda = "img_smiles/nao_iniciado.gif"
var_responsavel = TRIM(Request.Form("txt_responsavel"))
var_datedia = TRIM(Request.Form("date_dia"))
var_datemes = TRIM(Request.Form("date_mes"))
var_dateano = TRIM(Request.Form("date_ano"))
var_data = var_dateano &"-"& var_datemes &"-"& var_datedia
'-- Essa variavel e da pagina ins.dadosprojeto.asp  var_posicaoatual = "Ativado"
'Imprimindo as variaveis data
'Response.Write(var_dateano &"-"& var_datemes &"-"& var_datedia)
'Response.End()
%>

<% if var_status = Concluído then %>
var_legenda = "img_smiles/concluido.gif"
<% end if %>
<% if var_status = "Em andamento - Atenção" then %>
var_legenda = "img_smiles/andamento_atencao.gif"
<% end if %>
<% if var_status = "Em andamento - Crítico" then %>
var_legenda = "img_smiles/andamento_critico.gif"
<% end if %>
<% if var_status = "Em andamento - Normal" then %>
var_legenda = "img_smiles/andamento_normal.gif"
<% end if %>
<% if var_status = "Não Iniciado" then %>
var_legenda = "img_smiles/nao_iniciado.gif"
<% end if %>
<% if var_status = "On-going" then %>
var_legenda = "img_smiles/on-going.gif"
<% end if %>

<%
'-- Função para conversao de data para o MySQL -- Paulo Martins.
Function ConvertDataMySQL(ConDataBanco)   
	ConDataBanco = Year(ConDataBanco) &"-"& Right("0"&Month(ConDataBanco),2) &"-"& Right("0"&Day(ConDataBanco),2)	
	ConvertDataMySQL = ConDataBanco  
End Function   
'-- Response.Write(ConvertDataMySQL(Date()))	

strINS = "INSERT into tab_acoesprojeto "
strINS = strINS & "(cod_dadosprojeto, acao, status, legenda, responsavel, data) "

strINS = strINS & "VALUES ('" & var_codeprojeto & "',"
strINS = strINS & "'" & var_acao & "',"
strINS = strINS & "'" & var_status & "',"
strINS = strINS & "'" & var_legenda & "'," 
strINS = strINS & "'" & var_responsavel & "'," 
strINS = strINS & "'" & var_data & "'"
'strINS = strINS & "'" & var_data & "',"
'strINS = strINS & "'" & var_posicaoatual & "'"
strINS = strINS & ")"


Call AbreConexao
conbd_gd.Execute(strINS)
'response.write strINS
'response.end()

'Comentário-- Verifica o sucesso da operação, baseado na variavel 'err'
	if err.number = 0 then
		Response.redirect("ins1.descprojeto.asp")
		Response.End
		'--Response.Write "<font face='arial' size'3' color='green'><b>O ID: " & var_nome.projeto & " foi incluído com sucesso!</font></b><br>
		Else
			response.write ("Erro: " + err.description)
		End if

Call FechaConexao
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Martinsrj    0

Martinsrj
Postado

Olá Patrique,

 

Se eu colocar dessa forma:

<% if var_status = "Concluído" then %>

var_legenda = img_smiles/concluido.gif

<% end if %>

 

a variavel: var_legenda não recebe esse dado: img_smiles/concluido.gif

e com isso nao inclui nada no banco de dados.

 

 

coloque entre aspas assim

 

<% if var_status = "Concluído" then %>

senão ele interpleta como váriavel e não valor

Compartilhar este post

Link para o post
Compartilhar em outros sites

Patrique    0

Patrique
Postado

cara qual é o valor que esta vindo no var_status neste seu caso tem que ser Concluído, se for outro não vai mostrar o var_legenda = img_smiles/concluido.gif que por sinal tem que estar entre aspas var_legenda = "img_smiles/concluido.gif"

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ted k'    126

Ted k'
Postado

o acento está interferindo nesse processo, você tem que adequar o acento do concluído.

 

tente assim:

<% if cstr(var_status) = "Concluído" then %>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ted k'    126

Ted k'
Postado

força uma variável a ser convertida em string

 

exemplo, se no banco vinher um numeral, ele converte automaticamente para string com ess cstr()

 

http://www.supertrafego.com.br/asp_CStr.asp

Compartilhar este post

Link para o post
Compartilhar em outros sites

Martinsrj    0

Martinsrj
Postado

Deixei dessa forma:

<select name="txt_status" size="size"1">
									<option>Escolher Status</option>
									<option value="Concluido">Concluído</option>
									<option value="Em andamento - Atencao">Em andamento - Atenção</option>
									<option value="Em andamento - Critico">Em andamento - Crítico</option>
									<option value="Em andamento - Normal">Em andamento - Normal</option>
									<option value="Nao Iniciado">Não Iniciado</option>
									<option value="On-going">On-going</option>
								  </select>
							  </label></td>
AQUI É A PAGINA QUE REALIZA O TRATAMENTO DO CÓDIGO ACIMA

<% Option Explicit %>
<!--#Include file="conexao.asp"-->
<%
Dim conbd_gd, rsInsere, strINS, var_data, hora, Minuto, Segundo, var_codeprojeto, var_acao, var_status, var_responsavel, var_datedia, var_datemes, var_dateano, var_legenda

var_codeprojeto = TRIM(Request.Form("txt_codprojeto"))
var_acao = TRIM(Request.Form("txt_acao"))
var_status = TRIM(Request.Form("txt_status"))
'var_legenda = "img_smiles/nao_iniciado.gif"
var_responsavel = TRIM(Request.Form("txt_responsavel"))
var_datedia = TRIM(Request.Form("date_dia"))
var_datemes = TRIM(Request.Form("date_mes"))
var_dateano = TRIM(Request.Form("date_ano"))
var_data = var_dateano &"-"& var_datemes &"-"& var_datedia
'-- Essa variavel e da pagina ins.dadosprojeto.asp  var_posicaoatual = "Ativado"
'Imprimindo as variaveis data
'Response.Write(var_dateano &"-"& var_datemes &"-"& var_datedia)
'Response.End()
'Response.Write (TRIM(Request.Form("txt_status")))
'Response.End()
%>

<% if var_status = "Concluido" then %>
var_legenda = img_smiles/concluido.gif
<% end if %>
<% if var_status = "Em andamento - Atencao" then %>
var_legenda = "img_smiles/andamento_atencao.gif"
<% end if %>
<% if var_status = "Em andamento - Critico" then %>
var_legenda = "img_smiles/andamento_critico.gif"
<% end if %>
<% if var_status = "Em andamento - Normal" then %>
var_legenda = "img_smiles/andamento_normal.gif"
<% end if %>
<% if var_status = "Nao Iniciado" then %>
var_legenda = "img_smiles/nao_iniciado.gif"
<% end if %>
<% if var_status = "On-going" then %>
var_legenda = "img_smiles/on-going.gif"
<% end if %>

<%

o acento está interferindo nesse processo, você tem que adequar o acento do concluído.

 

tente assim:

<% if cstr(var_status) = "Concluído" then %>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Martinsrj    0

Martinsrj
Postado

Deixei dessa forma:

<select name="txt_status" size="size"1">
									<option>Escolher Status</option>
									<option value="Concluido">Concluído</option>
									<option value="Em andamento - Atencao">Em andamento - Atenção</option>
									<option value="Em andamento - Critico">Em andamento - Crítico</option>
									<option value="Em andamento - Normal">Em andamento - Normal</option>
									<option value="Nao Iniciado">Não Iniciado</option>
									<option value="On-going">On-going</option>
</select>
							  </label></td>
AQUI É A PAGINA QUE REALIZA O TRATAMENTO DO CÓDIGO ACIMA

<% Option Explicit %>
<!--#Include file="conexao.asp"-->
<%
Dim conbd_gd, rsInsere, strINS, var_data, hora, Minuto, Segundo, var_codeprojeto, var_acao, var_status, var_responsavel, var_datedia, var_datemes, var_dateano, var_legenda

var_codeprojeto = TRIM(Request.Form("txt_codprojeto"))
var_acao = TRIM(Request.Form("txt_acao"))
var_status = TRIM(Request.Form("txt_status"))
'var_legenda = "img_smiles/nao_iniciado.gif"
var_responsavel = TRIM(Request.Form("txt_responsavel"))
var_datedia = TRIM(Request.Form("date_dia"))
var_datemes = TRIM(Request.Form("date_mes"))
var_dateano = TRIM(Request.Form("date_ano"))
var_data = var_dateano &"-"& var_datemes &"-"& var_datedia
'-- Essa variavel e da pagina ins.dadosprojeto.asp  var_posicaoatual = "Ativado"
'Imprimindo as variaveis data
'Response.Write(var_dateano &"-"& var_datemes &"-"& var_datedia)
'Response.End()
'Response.Write (TRIM(Request.Form("txt_status")))
'Response.End()
%>

<% if var_status = "Concluido" then %>
var_legenda = img_smiles/concluido.gif
<% end if %>
<% if var_status = "Em andamento - Atencao" then %>
var_legenda = "img_smiles/andamento_atencao.gif"
<% end if %>
<% if var_status = "Em andamento - Critico" then %>
var_legenda = "img_smiles/andamento_critico.gif"
<% end if %>
<% if var_status = "Em andamento - Normal" then %>
var_legenda = "img_smiles/andamento_normal.gif"
<% end if %>
<% if var_status = "Nao Iniciado" then %>
var_legenda = "img_smiles/nao_iniciado.gif"
<% end if %>
<% if var_status = "On-going" then %>
var_legenda = "img_smiles/on-going.gif"
<% end if %>

<%
aGORA NÃO ESTÁ ERRO, porem no banco não insere o caminho da imagem

 

Opa, saquei Ted, valeu! bom saber!

 

----------------------------------------

 

Mais funfou né Martinsrj?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Patrique    0

Patrique
Postado

cara tu tem que resgatar e jogar o var_legenda em uma tag img

 

assim

 

<img src="<%=var_legenda%>">

ou então tirar a variavel e montar um response.write

 

<% if var_status = "Concluido" then %>
Response.Write("<img src=""img_smiles/concluido.gif"">")
<% end if %>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ted k'    126

Ted k'
Postado

faltou a aspas dupla dele....

 

var_legenda = "img_smiles/concluido.gif"

imagino que é assim por seguir os padrões do outros...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Martinsrj    0

Martinsrj
Postado

JÁ COLOQUEI ASSIM: "img_smiles/concluido.gif" E ASSIM: img_smiles/concluido.gif

 

porem a variavel: var_legenda não recebe os dados.

 

 

 

faltou a aspas dupla dele....

 

var_legenda = "img_smiles/concluido.gif"

imagino que é assim por seguir os padrões do outros...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ted k'    126

Ted k'
Postado

ai vou ter que fazer a mesma pergunta que o patrique, como está mostrando essa variavel? via javascript ou via asp, independente de como seja, posta o codigo!

Compartilhar este post

Link para o post
Compartilhar em outros sites

Martinsrj    0

Martinsrj
Postado

Olá Pessoal!

Resolvido colocando o IF da seguinte forma:

%>

<% if var_status = "Concluido" then
	  var_legenda = "img_smiles/concluido.gif"
	else
	  if var_status = "Em andamento - Atencao" then
		 var_legenda = "img_smiles/andamento_atencao.gif"
	  else
		 if var_status = "Em andamento - Critico" then
			var_legenda = "img_smiles/andamento_critico.gif"
		 else
			if var_status = "Em andamento - Normal" then
			   var_legenda = "img_smiles/andamento_normal.gif"
			else
			   if var_status = "Nao Iniciado" then
				  var_legenda = "img_smiles/nao_iniciado.gif"
			   else
				  if var_status = "On-going" then
					 var_legenda = "img_smiles/on-going.gif"
				  else
					 var_legenda = "?"
				  end if
			   end if
			end if
		 end if
	  end if
   end if %>

<%

Valeu galera pela ajuda, abraços.

 

ai vou ter que fazer a mesma pergunta que o patrique, como está mostrando essa variavel? via javascript ou via asp, independente de como seja, posta o codigo!

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