<%@Page Language="VB" %>
sub Page_Load(obj as object,e as eventargs)
Response.Write(MultiplyNumbers(8,9)&"
")
Response.Write(MultiplyNumbers(4,12)&"
")
Response.Write(MultiplyNumbers(38,23)&"
")
end sub
function MultiplyNumbers(intA as integer,intB as integer) _
as Integer
Return intA *intB
end function