[new] [mvasp] MiniVend ASP

MiniVend ASP Syntax Example

What's new
<% sub testit { my $something = shift; return "Testing: $something
\n"; } $Document->write("Hello, you are in <%ASP LAND%>

"); my $fmt = "%H:%M:%S %D (some time format for y2K, huh...)"; my $time = $Tag->tag( $fmt, { op => 'time' } ); $Document->write ( "The current time is $time
"); %>


<% $Document->write ( "

Your session ID is $Session->{id}

"); if($Session->{arg}) { HTML "

The argument given is $Session->{arg}

"; HTML "

Return to " . $Tag->page('mvasp') . "no argument.

"; } else { HTML "No argument sent, ", $Tag->page('mvasp', 'An arg'), "try one.
"; } %>

You can loop. Create a select box:

Current submit: Saved submit:

<% = "######################################
", "You can do explict <%= writes like this one
", "######################################
", "You can use UserTags, too...ORDERS_TO => ", $Tag->var('ORDERS_TO'), "

\n", "And you can call subroutines with testit('testing'):

", testit('testing'), "

\n", %> Compare to ORDERS_TO => __ORDERS_TO__

You can see the source here.


[/mvasp]