<%@ LANGUAGE="VBSCRIPT" %> <% PageStrings = "1144, 1145, 1146, 1147, 1148, 1187" %> <% '=============================================== ' CactuShop ASP Shopping Cart ' ©1999-2004 Cactusoft Ltd. www.cactusoft.com '=============================================== ' All rights reserved. ' Use of this code is covered by the terms and ' conditions in the license agreement. No ' unauthorized duplication or distribution is ' permitted. Cactusoft's copyright notices must ' remain in the ASP sections of the code. '=============================================== '----------------------------------------------- 'ERROR HANDLER 'If any errors occur, then the user is forwarded 'to this page. An email is sent off to the store 'owner 'ID - the error that it relates to 'Page - the page that it occurred on '----------------------------------------------- '----------------------------------------------- 'READ PAGE TEMPLATE FROM FILE '----------------------------------------------- Call ReadFromTemplate(strTemplateLocation, aryPageTemplate, strBasketHTML, strCategoryListHTML) '----------------------------------------------- 'WRITE FIRST HALF OF PAGE HTML '----------------------------------------------- response.write(aryPageTemplate(0)) 'Send email to store owner. If Application(LICENSENUMBER & "senderroremail") = "y" and isnumeric(request.QueryString("ID")) and request.QueryString("ID") <> "" then strOwner = strOwner & GetString("Error_ID" & CStr(request.QueryString("ID"))) & vbcrlf & vbcrlf & request.QueryString("page") & vbcrlf & vbcrlf & now() & vbcrlf & vbcrlf strOwner = strOwner & GetString("Error_ServerVariables") & vbcrlf strOwner = strOwner & "-----------------------------------------" & vbcrlf for each strItem in request.ServerVariables strOwner = strOwner & strItem & " : " & request.ServerVariables(strItem) & vbcrlf next Call SendEMail(Application(LICENSENUMBER & "emailmethod"), Application(LICENSENUMBER & "mailserver"), strEmailTo, "", "", strEmailFrom, strEmailFrom, strEmailFrom, strEmailFrom, GetString("Config_Subjectline2") & " - " & GetString("Error_EmailSubjectLine"), strOwner, "", false) end if %>

<% WriteString("PageTitle_Error") %>

<% WriteString("ContentText_ErrorText") %>

<% '----------------------------------------------- 'WRITE LAST HALF OF PAGE HTML '----------------------------------------------- response.write(aryPageTemplate(1)) '----------------------------------------------- 'CLOSE DATA CONNECTIONS '----------------------------------------------- objDataConn.Close set objDataConn = nothing %>