Ir para conteúdo

POWERED BY:

Arquivado

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

dmerege

Subrotinas em ASP

Por , em ASP Clássico

Recommended Posts

dmerege    0

dmerege
Postado

Boa Tarde a todos..

 

Gostaria de saber se uma subrotina em ASP é executada pelo menos uma vez?

Porque desenvolvi uma página simples contendo uma subrotina e uma variavel alterada por ela é alterada sem mesmo essa subrotina ter sido chamada, mesmo declarando-a acima do html.

 

Aguardo retorno,

 

Obrigado.

 

Daniel

Compartilhar este post

Link para o post
Compartilhar em outros sites

dmerege    0

dmerege
Postado

Sim..

 

Sou iniciante.. é um código bem bobo.. na vdd queria entender se a sub-rotina executa pelo menos uma vez e se existe na sintaxe do VBScript a declaração de uma função por "function"

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

 

ASP
<html>

<head>

    <title>Vendedors System</title>

   

    <%

    Dim qtde , cod , preco , total , executou

    executou = false

   

    cod = request.querystring("cod")

    qtde = int (request.querystring("qtde"))

   %>

   

   <% sub calculaTotal()

   

    Select Case cod

           Case 1001

               preco = 5.32

           Case 1324

               preco = 6.45

           Case 6548

               preco = 2.37

           Case 0987

               preco = 5.32

           Case 7623

               preco = 6.45

           Case Else

               preco = -1

    End Select

   

    if preco <> -1 then

    total = preco * qtde

    else if qtde > 0 then

    total = 0

    else

    total = -2

    End if

    End if

   

   

    End sub

   

   

                    %>

</head>

<body>

<form method="get" action="<%call calculaTotal() %>">

Código do Produto: <input type="text" maxlength="4" name="cod" /><br />

Quantidade comprada: <input type="text" maxlength="6" name="qtde" />

 

<input type="submit" value="Calcular Total" />

 

<br />

<h1><font color = "black">Cód. Produto: <%=cod %> </font></h1><br />

<h1><font color = "black">Quantidade: <%=qtde %> </font></h1><br />

<% if total > 0 then %>

<h1><font color = "blue">Total = <%=total %> </font></h1>

<%else if total = -2 then%>

<h1><font color = "blue">Aguardando Código </font></h1>

<%else %>

<h1><font color = "red">Código inválido </font></h1>

<%End if %>

<%End if %>

 

 

</form>

<br />

 

 

 

</body>

</html>

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

Valeu

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