<%
If Not Sess_Array(48) = Session.SessionID then
UpdateSessions False
Response.Redirect "default.asp"
End If
Select Case Request.Form("flag")
Case 1: Call SavePP()
Case 2: Call CreatePP()
Case 3: Call DeletePP()
Case 4: Call MoveCat(0)
Case 5: Call MoveCat(1)
End Select
If isnotfree then
iScheme = Request("scheme")
isTrial = True
strFees = "SELECT * FROM " & tablPfx & "Pack ORDER BY sortID;"
Set rs = objConn.Execute(strFees)
I = 1
Do While Not rs.EOF
nextScheme = rs("pname")
nextpackID = CLng(rs("packID"))
If I = 1 And Len(Cstr(iScheme)) = 0 then iScheme = CStr(nextpackID)
If CStr(nextpackID) = CStr(iScheme) then
selectedScheme = nextScheme
If nextpackID = 1000 then
isallowtrial = CBool(rs("isallowtrial"))
Else: isTrial = False
End If
price = rs("price")
descr = rs("descr")
pdur = rs("pdur")
adur = rs("adur")
isadexpire = CBool(rs("isadexpire"))
alimit = rs("alimit")
isallowlock = CBool(rs("isallowlock"))
nimage = CInt(rs("nimage"))
isallowhot = CBool(rs("isallowhot"))
selected = "selected"
packID = nextpackID
pack2coID = rs("id2co")
fname = rs("formatname")
isoffline = CBool(rs("isoffline"))
isdefault = Cbool(rs("custom1"))
Else
selected = Empty
End If
optScheme = optScheme & ""
I = I + 1
rs.MoveNext
Loop
rs.close
%>
Default Scheme |
Custom Scheme |
Link to Categories | Refresh
NOTE: To use package schemes you must switch
"Pay Mode" to "Package Payment Mode" in
Admin Preferences
* Sets Ads expiration date to the Package expiration date; overrides Ads
Duration setting for this package. ** Set to 0 to allow unlimited ads posted. *** Categories are locked by linking custom payment
schemes with enabled lock to appropriate categories. **** If this package already been purchased, clients will continue to
utilize it. But it will not be presented in the list of packages available for sale. The "Trial - Free" package ignores this setting and follows the "Enable Free Trial" setting.
Pay Categories
Free Categories
NOTE: Move appropriate categories to "Free
Post" list to allow client to post ads to those categories without having to
purchase any packages. Free categories inherit the duration scheme from the
linked payment scheme ("default" scheme assigned by default) and images limit
from the number assigned in "Admin Preferences". Once client purchased the
package however, ALL categories including "Free Post" categories would inherit
the properties of the purchased package (ad duration, image limit.. etc.).