<% '************************************************************** ' VP-ASP General error handler ' VP-ASP 5.00 check for injection ' July 2, 2003 handle order number 0 '************************************************************** dim rc serror = Request.QueryString("msg") CleanseMessage serror, rc If xordernumber="" or xordernumber="0" or getconfig("xshopclosed")="Yes" then PrintPageHeader else ShopPageHeader end if response.write "" home=getconfig("xhome") Response.write "

" If rc=0 then shopwriteerror sError Response.write "

" end if Response.write "" & getlang("LangCommonHome") & "" If xordernumber="" or xordernumber="0" or getconfig("xshopclosed")="Yes" then PrintpageTrailer else ShopPageTrailer end if %>