<% '*** To remove a bounding box set [display_box_acquire = False] display_box_acquire = True '*** To display packages by a column set [display_row = False] display_row = True '*** Use Appropriate currency sign csign = "$" If CStr(session("user_logged_ID" & strSUnique)) = Empty And NOT session("admin_loggedin" & strSUnique) = Session.SessionID then Response.Redirect "register.asp" If Not ispack then Response.Redirect "default.asp" userID = session("user_logged_ID" & strSUnique) If CStr(session("user_logged_ID" & strSUnique)) = Empty then msg = "You're logged only as admin.
Note: Payment forms will not work properly unless you logon as a user." End If If session("admin_loggedin" & strSUnique) = Session.SessionID then msg = msg & " Packages Configuration" If lcase(Request.ServerVariables("REQUEST_METHOD")) = "post" then ID = CLng(Request.Form("ID")) If Not Len(CStr(ID)) = 0 then strCat = "SELECT " & tablPfx & "Pack.sortID, " & tablPfx & "Pack.packID FROM " & tablPfx & "Pack WHERE (packID > 1000 AND isoffline = 0) ORDER BY sortID;" rs.CursorLocation = 3 rs.CursorType = 3 rs.Open strCat, strConn rc = rs.RecordCount On Error Resume Next For c = 1 to rc If Not rs.EOF then nextID = CLng(rs("sortID")) nextcatID = CLng(rs("packID")) If CStr(ID) = CStr(nextID) then Select Case Request.Form("B1") Case "↑": rs.MovePrevious Case "↓": rs.MoveNext End Select swapID = CLng(rs("sortID")) swapcatID = CLng(rs("packID")) Exit For End If rs.MoveNext End If Next On Error GoTo 0 rs.close If not swapID = Empty And Err.Number = 0 then objConn.Execute("UPDATE " & tablPfx & "Pack SET sortID = " & swapID & " WHERE packID = " & nextcatID & ";") objConn.Execute("UPDATE " & tablPfx & "Pack SET sortID = " & nextID & " WHERE packID = " & swapcatID & ";") Response.Redirect "acquire.asp" End If End If End If If ppArray(18) = 1 then session("local_txn_ID" & strSUnique) = Empty uid = userID rid = CStr(uid) & CStr(randomid) session("local_txn_ID" & strSUnique) = rid End If If ppArray(22) = 1 then bstring = CStr(userID) & CStr(randomid) sid = ppArray(23) End If %>

<%= strText_Home %>::<%= strText_PurchasePackage %>

<%= msg %>

<%= strText_PleasePurchase %>

<% If display_box_acquire then %>

<% End If '**** Start Display Table %> " class='list_table' cellspacing="1" > <% If display_row Then %> <% If session("admin_loggedin" & strSUnique) = Session.SessionID then %> <% End If %> <% Else: Response.Write "" End If Set rspack = objConn.Execute("SELECT packID,formatname,pname,price,descr,id2co,sortID FROM " & tablPfx & "Pack WHERE (packID > 1000 AND isoffline = 0) ORDER BY sortID;") rsdata = rspack.getrows rspack.close allpacks = UBound(rsdata,2) If not display_row Then totalPacks = allpacks + 1 If not totalPacks = 0 then colWidth = 100 \ totalPacks End If For J = 0 to allpacks nextPackID = CLng(rsdata(0,J)) nextPackFormatName = rsdata(1,J) nextPackName = rsdata(2,J) nextPackPrice = rsdata(3,J) nextPackDescr = rsdata(4,J) pack2oID = rsdata(5,J) sortID = rsdata(6,J) If J = 0 then fd = "disabled": Else: fd = Empty: End If If J = allpacks then ld = "disabled" If J mod 2 = 0 then cellColor = "class='evencell'": Else: cellColor = "class='oddcell'" If display_row then %> <% If session("admin_loggedin" & strSUnique) = Session.SessionID then %> <% End If %> " End If Next Set rsdata = Nothing If display_row Then Response.Write "" %>

Sort:

<%= strText_Package %>:

<%= strText_PackageDescription %>:

<%= strText_Price %>:

<%= strText_PurchasePackage %>:

>

>

<%= nextPackFormatName %>

>

<%= nextPackDescr %>

><%= csign %><%= nextPackPrice %>

> <% Else Response.Write "

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

" & nextPackFormatName & "

" Response.Write "

" & nextPackDescr & "

" & csign & nextPackPrice & "

" End If If ppArray(17) = 1 then %>

<% End If If ppArray(18) = 1 then %>

<% End If If ppArray(22) = 1 then %>

> <% 'Response.Write "" %>

<% End If If display_row Then %>

<% If display_box_acquire then %>

<% End If %>

<% Function randomid() Randomize randomid = Int((899999 * Rnd) + 100000) End Function %>