<%= strText_Home %>::<%= strText_PackagesInformation %>

<%= msg %>

<%= strText_PleaseReview & "" & web_name & "" %>

<% If display_box_pack then %>

<% End If %> " 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 %>

<% End If %>