<% '************************************************************** ' VP-ASP General error handler ' VP-ASP 6.50 ' July 5, 2005 handle order number 0 ' Take only session variable "shoperror". Do not take url msg= '************************************************************** dim rc serror = getsess("shoperror") setsess "shoperror","" If xordernumber="" or xordernumber="0" or getconfig("xshopclosed")="Yes" then PrintPageHeader else ShopPageHeader end if home=getconfig("xhome") home=addwebsess(home) 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 %>