<%@ Language = VBScript %> <% Response.Buffer = True %> <% Function Calcola(Base, Esponente) Dim Risultato Risultato = Base ^ Esponente Calcola = Risultato End Function %> <% Base = Request.Form("Base") Esponente = Request.Form("Esponente") Response.Write "Il risultato è " & Calcola(Base, Esponente) %>