Ir para conteúdo

POWERED BY:

Arquivado

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

Moisés Sousa

[Resolvido] If não funciona

Por , em ASP Clássico

Recommended Posts

Moisés Sousa    0

Moisés Sousa
Postado

Ola pessoal no seguinte codigo:

<%
		 dim km, comb, cons
		 km = Request.QueryString("kilom")
		 comb = Request.QueryString("litros")
		
		 if (comb = 0) then
		 Response.Write("Não Funciona.")
		 else
		 cons = km / comb
		 end if
	   %> 
	   <%
		 Response.Write cons
		 Response.Write("Ltrs/Km")
	   %>
Quando a pagina é carregada ela já vem com o nome "Não Funciona", porem não era pra acontecer isso. Isso era para acontecer somente se os campos recebecem 0, entretanto assim que você abre a pagina ele ja vem junto.

Já tentei reformular o if e nada consegui talvez a minha logica não esta 100% se alguem poder me ajudar.

obrigado.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Patrique    0

Patrique
Postado

Faz assim

 

<%
dim km, comb, cons
km = Request.QueryString("kilom")
comb = Request.QueryString("litros")

if comb = 0 then
Response.Write("Não Funciona.")
else
cons = km / comb
end if
%> 
<%
Response.Write cons
Response.Write("Ltrs/Km")
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Moisés Sousa    0

Moisés Sousa
Postado

Oi Patrique

Não entendi a unica coisa que vi de diferente foi "if comb = 0 then if (comb = 0) then" é isso ai, se for eu testei e continua a mesma coisa

:blink:

Compartilhar este post

Link para o post
Compartilhar em outros sites

Dee    0

Dee
Postado 

<%
dim km, comb, cons
km = Request.QueryString("kilom")
comb = Request.QueryString("litros")

if comb = "" then
Response.Write("Não Funciona.")
else
cons = km / comb
end if
%>
<%
Response.Write cons
Response.Write("Ltrs/Km")
%>

ou inverte

<%
dim km, comb, cons
km = Request.QueryString("kilom")
comb = Request.QueryString("litros")
if comb <> "" then
   cons = km / comb
else
   Response.Write("Não Funciona.")
end if
%>
<%
Response.Write cons
Response.Write("Ltrs/Km")
%>

e outra. ele ta trazendo os litros e os kilom certinho ?

da um response.write(comb) e response.write(kilom) pra ver se está trazendo certo

e nos mostre o resultado

Compartilhar este post

Link para o post
Compartilhar em outros sites

Moisés Sousa    0

Moisés Sousa
Postado

Ola pessoal nenhuma das alternativas que me deram funcou. então estarei postando todo o codigo "lai vai" heheheh

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title>Consumo de Combustível</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<form name="teste" method="get" action="combustivel.asp">
  <div align="center">
	<p>Kilometragem:
	  <input name="kilom" type="text" id="kilom" size="10">
		  Litros Gastos:
	  <input name="litros" type="text" id="litros" size="10">
	</p>  
	<p>
	  <input name="calc" type="submit" id="calc" value="Calcular">
	</p>
  </div>
</form>
	 <hr color="#660099" size="5" align="center" width="50%">
	   <%
		 dim km, comb, cons
		 km = Request.QueryString("kilom")
		 comb = Request.QueryString("litros")
		
		 if (comb = 0) then
		 Response.Write("Não Funciona.")
		 else
		 cons = km / comb
		 end if
	   %> 
	   <%
		 Response.Write cons
		 Response.Write("Ltrs/Km")
	   %> 
</body>
</html>

Agradeço a atenção de todos. http://forum.imasters.com.br/public/style_emoticons/default/clap.gif

Compartilhar este post

Link para o post
Compartilhar em outros sites

CaBo GeL    0

CaBo GeL
Postado

tenta assim...

 

<%
dim km, comb, cons
km = Request.QueryString("kilom")
comb = Request.QueryString("litros")

if comb = "" Or comb = "0" Or  Isnull(comb) Or IsEmpty(comb) then
Response.Write("Não Funciona.")
else
cons = km / comb
end if

Response.Write cons
Response.Write("Ltrs/Km")
%>

 

Ate +

Compartilhar este post

Link para o post
Compartilhar em outros sites

mx loco    1

mx loco
Postado 

<%

dim km, comb, cons

km = Request.QueryString("kilom")

comb = Request.QueryString("litros")

 

if Len(comb) > 0 And IsNumeric(comb) = True then

cons = km / comb

else

Response.Write("Não Funciona.")

end if

 

Response.Write cons

Response.Write("Ltrs/Km")

%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

aki foi normal, qual era o erro:

 

<%
		 dim km, comb, cons
		' km = Request.QueryString("kilom")
		' comb = Request.QueryString("litros")
	 km = 0 
		 comb = 20
		
		 if (comb = 0) then
		 Response.Write("Não Funciona.")
		 else
		 cons = km / comb
		 end if
	   %> 
	   <%
		 Response.Write cons
		 Response.Write("Ltrs/Km")
	   %>

da um response. write km

da um response. write comb

response.end()

 

para ver o k é passado nas variaveis, tb...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Moisés Sousa    0

Moisés Sousa
Postado

Ola pessoal consegui resolver o po.... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif valeu a todos bem o codigo ficou assim:

 

dim km,comb,cons
km = Request.QueryString("kilom")
comb = Request.QueryString("litros")
if comb="" then
	Response.Write("")
else
	if (comb = 0) then
		Response.Write("Não Funciona.")
	else
		cons = km/comb
	end if
end if

obrigado a todos que me ajudaram.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Moisés Sousa    0

Moisés Sousa
Postado

Caro colega xanburzum, não era um erro exatamente o problema era que a palavra não funciona aparecia assim que você correga a pagina sem que você colocace algum dado nos campos do form

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