<% '*************************************************************** ' Not in Free Demo 5.00 ' May 26 2003 '**************************************************************** Sub NotinDemo(msg) shoppageheader shopwriteheader "This feature is not in VP-ASP 5.00 free version" shopwriteheader msg response.write "
" ShoppageTrailer end sub Sub NotinLite(msg) shoppageheader shopwriteheader "This feature is not in VP-ASP 5.00 free version" shopwriteheader msg response.write "
" ShoppageTrailer end sub %>