% On Error Resume Next If Not session("admin_loggedin" & strSUnique) = Session.SessionID then Response.Redirect "default.asp" Server.ScriptTimeout = 10000 Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP") xml.Open "GET", Application("Classify_Main_Config" & strUnique)(1) & "acquire_display.asp?" & Request.Querystring, False xml.send cache_content = xml.responseBody Set xml = Nothing cache_content = Trim(cache_content) cache_content = Unicode(cache_content) contArray = Split(cache_content, "") If Ubound(contArray) = 2 then cache_content_display = contArray(1) Else cache_content_display = "Page acquire_display.asp was modified or your server does not support XML2, or you did not properly configured [Site URL] within Admin Preferences." End If On Error Goto 0 %>
Use this code to display sale Packages list at your Main Page Center
template. Go to Email Templates page, select "Main_Page_Center"
template
and paste this code to the appropriate place (use no WYSIWYG mode). The code is
static and will not be changed if you change your packages configuration.
NOTE: Never Include a file or a piece of ASP code into your Page
Content Templates. It is not going to work.
Only HTML Code can be used in Templates.