<% '*** 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 Sess_Array(29) = 0 And NOT Sess_Array(48) = Session.SessionID then UpdateSessions False Response.Redirect "register.asp" End If If Not ispack then UpdateSessions False Response.Redirect "default.asp" End If userID = Sess_Array(29) If Sess_Array(29) = 0 then msg = "You're logged only as admin.
Note: Payment forms will not work properly unless you logon as a user." End If If Sess_Array(48) = 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 Set rs = Server.CreateObject("ADODB.Recordset") 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 & ";") UpdateSessions False Response.Redirect "acquire.asp" End If End If End If If ppArray(18) = 1 then Sess_Array(58) = Empty uid = userID rid = CStr(uid) & CStr(randomid) Sess_Array(58) = rid End If If ppArray(22) = 1 then bstring = CStr(userID) & CStr(randomid) sid = ppArray(23) End If %>
<%= msg %>
<%= strText_PleasePurchase %>
<% If display_box_acquire then Call Build_List_Top("center", "99%", "xl_list") '**** Start Display Table %> " class='list_table' cellspacing="1"> <% If display_row Then %> <% If Sess_Array(48) = Session.SessionID then %> <% End If %> <% 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 Sess_Array(48) = Session.SessionID then %> <% End If %> " str_Buttons_Row = str_Buttons_Row & "" Else str_Buttons_Row = str_Buttons_Row & "" End If Next Set rsdata = Nothing If display_row Then Response.Write "" Else Response.Write "" & str_Main_Row & "" & vbcrlf Response.Write "" & str_Buttons_Row & "" & vbcrlf End If %>
Sort:<%= strText_Package %>: <%= strText_PackageDescription %>: <%= strText_Price %>: <%= strText_PurchasePackage %>:
>
name='B1' value='▲' class='buttons' style="position: relative; width: 20px; height: 15px;">
name='B1' value='▼' class='buttons' style="position: relative; width: 20px; height: 15px;">
>

<%= nextPackFormatName %>

 >

<%= nextPackDescr %>

 ><%= csign %><%= nextPackPrice %> > <% Else str_Main_Row = str_Main_Row & "
" str_Main_Row = str_Main_Row & "

" & nextPackFormatName & "

" str_Main_Row = str_Main_Row & "
" & nextPackDescr & "
" str_Buttons_Row = str_Buttons_Row & "

" & csign & nextPackPrice & "

" End If If ppArray(17) = 1 then str_PPForm = "
" & vbcrlf str_PPForm = str_PPForm & "" & vbcrlf str_PPForm = str_PPForm & "" & vbcrlf str_PPForm = str_PPForm & "" & vbcrlf str_PPForm = str_PPForm & "" & vbcrlf str_PPForm = str_PPForm & "" & vbcrlf str_PPForm = str_PPForm & "" & vbcrlf str_PPForm = str_PPForm & "" & vbcrlf str_PPForm = str_PPForm & "" & vbcrlf str_PPForm = str_PPForm & "" & vbcrlf str_PPForm = str_PPForm & "" & vbcrlf str_PPForm = str_PPForm & "" & vbcrlf str_PPForm = str_PPForm & "" & vbcrlf str_PPForm = str_PPForm & "
" & vbcrlf If display_row then Response.Write str_PPForm Else str_Buttons_Row = str_Buttons_Row & str_PPForm End If End If If ppArray(18) = 1 then str_MBForm = "
" & vbcrlf str_MBForm = str_MBForm & "" & vbcrlf str_MBForm = str_MBForm & "" & vbcrlf str_MBForm = str_MBForm & "" & vbcrlf str_MBForm = str_MBForm & "" & vbcrlf str_MBForm = str_MBForm & "" & vbcrlf str_MBForm = str_MBForm & "" & vbcrlf str_MBForm = str_MBForm & "" & vbcrlf str_MBForm = str_MBForm & "" & vbcrlf str_MBForm = str_MBForm & "" & vbcrlf str_MBForm = str_MBForm & "" & vbcrlf str_MBForm = str_MBForm & "" & vbcrlf str_MBForm = str_MBForm & "" & vbcrlf str_MBForm = str_MBForm & "" & vbcrlf str_MBForm = str_MBForm & "" & vbcrlf str_MBForm = str_MBForm & "" & vbcrlf str_MBForm = str_MBForm & "
" & vbcrlf If display_row then Response.Write str_MBForm Else str_Buttons_Row = str_Buttons_Row & str_MBForm End If End If If ppArray(22) = 1 then str_2COForm = "
" & vbcrlf str_2COForm = str_2COForm & "" & vbcrlf str_2COForm = str_2COForm & "" & vbcrlf str_2COForm = str_2COForm & "" & vbcrlf str_2COForm = str_2COForm & "" & vbcrlf str_2COForm = str_2COForm & "" & vbcrlf str_2COForm = str_2COForm & "" & vbcrlf 'str_2COForm = str_2COForm & "" & vbcrlf str_2COForm = str_2COForm & "" & vbcrlf str_2COForm = str_2COForm & "
" & vbcrlf If display_row then Response.Write str_2COForm Else str_Buttons_Row = str_Buttons_Row & str_2COForm End If End If If AuthorizeNetInstalled Then Set rsauth = objConn.Execute("SELECT m_active,m_method FROM " & tablPfx & "Merchant WHERE m_id = 'auth';") isAuth = CBool(rsauth(0)) isAIM = CBool(rsauth(1)) rsauth.close If Cbool(isAuth) then If isAIM Then auth_page = Replace(web_site,"http","https",1,1,1) & "auth_payment.asp": Else: auth_page = "auth_payment_sim.asp" str_ANForm = "
" & vbcrlf str_ANForm = str_ANForm & "" & vbcrlf str_ANForm = str_ANForm & "" & vbcrlf str_ANForm = str_ANForm & "" & vbcrlf str_ANForm = str_ANForm & "" & vbcrlf str_ANForm = str_ANForm & "" & vbcrlf str_ANForm = str_ANForm & "" & vbcrlf str_ANForm = str_ANForm & "" & vbcrlf str_ANForm = str_ANForm & "
" & vbcrlf If display_row then Response.Write str_ANForm Else str_Buttons_Row = str_Buttons_Row & str_ANForm End If End If End If str_BPForm = "
" & vbcrlf str_BPForm = str_BPForm & "" & vbcrlf str_BPForm = str_BPForm & "" & vbcrlf str_BPForm = str_BPForm & "" & vbcrlf str_BPForm = str_BPForm & "
" & vbcrlf If display_row then Response.Write str_BPForm Else str_Buttons_Row = str_Buttons_Row & str_BPForm End If If display_row Then Response.Write "
<% If display_box_acquire then Call Build_List_Bottom() Function randomid() Randomize randomid = Int((899999 * Rnd) + 100000) End Function %>