Active Server Pages (idea)

<%
   function inspiration (tool as String, salary as Double)
      select case tool
         case "vbscript+asp"
           toolvalue=0
         case "php+apache"
           toolvalue=10
      end select
      inspiration = toolvalue * salary
   end function
%> 

debug.print inspiration("vbscript+asp", 800.00)
0

OK, back to work.. *sigh*...