<% '*** To remove a bounding box set [display_box_acquire = False] display_box_pack = True '*** To display packages by a column set [display_row = False] display_row_pack = True '*** Use Appropriate currency sign csign = "$" If Not ispack then UpdateSessions False Response.Redirect "default.asp" End If If Sess_Array(48) = Session.SessionID then msg = "Packages Configuration" If Request("bare") = 1 then display_box_pack = False If Request("bare") = 2 then display_box_pack = True If Request("row") = 1 then display_row_pack = False If Request("row") = 2 then display_row_pack = True %>

<%= msg %>

<%= strText_PleaseReview & web_name %>

<% If display_box_pack then Call Build_List_Top("center", "99%", "xl_list") %> " class='list_table' cellspacing="1" > <% If display_row_pack then %> <% Else Response.Write "" End If strSQL = "SELECT formatname,price,descr FROM " & tablPfx & "Pack WHERE ((packID > 1000 AND isoffline = 0) OR " strSQL = strSQL & "(packID = 1000 AND isallowtrial = 1)) ORDER BY sortID;" Set rspack = objConn.Execute(strSQL) rsdata = rspack.getrows rspack.close allpacks = UBound(rsdata,2) If not display_row_pack Then totalPacks = allpacks + 1 If not totalPacks = 0 then colWidth = 100 \ totalPacks End If For J = 0 to allpacks nextPackFormatName = rsdata(0,J) nextPackPrice = rsdata(1,J) nextPackDescr = rsdata(2,J) If J mod 2 = 0 then cellColor = "class='evencell'": Else: cellColor = "class='oddcell'" If display_row_pack then %> " End If Next Set rsdata = Nothing If display_row_pack Then Response.Write "" %>

<%= strText_Package %>:

<%= strText_PackageDescription %>:

<%= strText_Price %>:

<%= nextPackFormatName %>

<%= nextPackDescr %>

><%= csign %><%= nextPackPrice %> <% Else Response.Write "

" Response.Write "" Response.Write " <% Else Response.Write "

" & nextPackFormatName & "

" Response.Write "

" & nextPackDescr & "

" & csign & nextPackPrice & "

" End If If display_row_pack Then %>

<% If display_box_pack then Call Build_List_Bottom() %>