<%option explicit%> <%response.buffer=true%> <%ShopOpenDatabase dbc%> [an error occurred while processing this directive] <% '********************************************************************************* ' 7.00 ' 1 Dec 2009 ' main page '********************************************************************************* '700 - Quick Admin Order Form setsess "fromquickorderpage","" '********************************************************************* 'front store default page '********************************************************************* dim CatalogId, DBTable, IDField, crs, ContentId, MessageType, Template '6.08a - moved down below generate meta tags SetSess "CurrentURL","default.asp" GenerateContentSQL sql OpenRecordSet dbc, crs, sql InitializeSystem if crs.eof then '6.50.4 Bugs Fix - shoppage header of meta tags - 08 October 2008 ShopFrontPageHeader HandleError "No content record assigned to homepage" else MessageType = crs("MessageType") WriteImpressions '6.08a - Generate Dynamic Meta tags SetupDynamicContent dbc, ContentId, MessageType '6.50.4 Bugs Fix - shoppage header of meta tags - 08 October 2008 ShopFrontPageHeader htmlwrite "
" bodycontent htmlwrite "
" end if CloseRecordSet crs ShopFrontPageTrailer ShopCloseDatabase dbc '********************************************************************* 'write a message '********************************************************************* sub HandleError (msg) ShopWriteError msg end sub '********************************************************************* 'get last non hidden news or whatever '********************************************************************* sub GenerateContentSQL (sql) if instr(ucase(xdatabasetype), "MYSQL") > 0 or instr(ucase(xdatabasetype), "SQLSERVER") > 0 then sql="select * from content where homepage=1" else sql="select * from content where homepage=TRUE" end if end sub '6.08 - Impressions weren't writing correctly. sub WriteImpressions dbc.execute("update content set impressions = 0 where impressions IS NULL") if ContentId <> "" then dbc.execute("update content set impressions = impressions + 1 where ContentId = " & ContentId) else If MessageType <> "" then dbc.execute("update content set impressions = impressions + 1 where MessageType like'" & MessageType &"'") end if end if end sub %>