Dim Foo
Foo = format_string( "<ol><li>%s</li><li>%s</li></ol>", "foo", "bar" )
[download]

<script language="perlscript" runat="server">

    # ' Format a string like perl's sprintf function
    # '
    # '
    # '   Input:  A format string followed by a list of values
    # '           to insert into the string.
    # '
    # '   Output  A formatted string.
    # '
    # '   example:    format_string( "<p>%s</p>", "Now is the time of 
+our ..." )
    # '
    # '    prints:    <p>Now is the time of our ...</p>
    # '
    # '   see http://www.perldoc.com/perl5.6.1/pod/func/sprintf.html
    # '       for complete details and other formatting.

    sub format_string {
        my $format = shift;
        return sprintf $format, @_;
    }

</script>
[download]