alguém Pode Me Explicar Como Fazer Uma Rotina No Asp

[Se você esta contente....]

olá pessoal eu estou fazendo meu tcc e eu preciso saber como se faz um procedimento;sub-rotinas;

metodo procedural, bom sei la como vocês chamam, mas a duvida é essa olha se fosse em javascript seria assim:

ex:

<script language="javascript">

function MUITO_OBRIGADO_POR_TENTAR_ME_AJUDAR() //<== procedimento

{

nome=form1.ed_nome.value;

document.write(nome+"voce é uma pessoa muiot legal");

}

</script>

.

.

.

<form name="form1">

seu nome<input type="text" name="ed_nome" size="20">

input<input type="button" value="clica aqui"

onclick="MUITO_OBRIGADO_POR_TENTAR_ME_AJUDAR()">// olha ai presta anteçao nesta linha

<!-- Desculpa a linha quebrou, mas o importante é que aqui no evento on click eu chama o procedimento-->

</form>

.

.

</html>

pergunta como faço isso no vbscritp?, aw você saberia aonde tem uma boa apostila de vbscript? desde já muito obrigado!

[Marcos-rj]

Bom vamos lá.

O VBScript possui dois tipos de sub-rotinas: Sub e Function.

As procedures Sub são blocos de códigos iniciados pela palavra Sub e encerrados por End Sub.

é um conjunto de comandos associados a um identificador alfanumérico.

Uma Function possui a mesma definição. só que alem de executar os comandos associados a ela, pode gerar um valor como resultado. ao contrario da Sub que não retorna valor em sua chamada.

Sintaxes:

Sub NomeDoProcedimento([Parâmetro(s)])

Comando(s)

End Sub

--------

Function NomeDaFunção([Parâmetro(s)])

Comando(s)

End Function

Exemplo: Função: Formata Nome ------------------------------------- <% Function FormataNome(Nome) aNome = Split(Nome) For i = LBound(aNome) To UBound(aNome) if Len(aNome(i)) > 0 Then nNome = nNome&" "& UCase(Mid(aNome(i),1,1)) & LCase(Mid(aNome(i),2)) End If Next FormataNome = Trim(nNome) End Function %> Aqui como Chamar a Função <%=FormataNome(" MaRcOs FeRnAnDeS ")%> -------------------------------------

Função: Soma
<%
Function soma(a,b)
Dim Resultado
resultado = a + b
soma = resultado
End Function
Dim c,d,e
Response.Write soma(10,20)
%>

Qualquer coisa posta ai, tenho que sair agora. Espero ter ajudado.

Editado Março 21, 2007 por Marcos-rj