<% If Not Sess_Array(48) = Session.SessionID then UpdateSessions False Response.Redirect "default.asp" End If If isnotfree then If Request.Form("flag") = 1 then SavePP If Request.Form("flag") = 2 then SaveSW If Request.Form("flag") = 3 then SaveSW1 Sub SavePP() If Request.Form("AP18") = Empty then ppenable = 0: Else: ppenable = 1 If Request.Form("AP19") = Empty then mbenable = 0: Else: mbenable = 1 If Request.Form("AP23") = Empty then coenable = 0: Else: coenable = 1 strSQL = "UPDATE " & tablPfx & "Fees SET " strSQL = strSQL & "pa1 = '" & sq(Request.Form("AP1")) & "', " strSQL = strSQL & "pa2 = '" & sq(Request.Form("AP2")) & "', " strSQL = strSQL & "pa3 = '" & sq(Request.Form("AP3")) & "', " strSQL = strSQL & "pa4 = '" & sq(Request.Form("AP4")) & "', " strSQL = strSQL & "pa5 = '" & sq(Request.Form("AP5")) & "', " strSQL = strSQL & "pa6 = '" & sq(Request.Form("AP6")) & "', " strSQL = strSQL & "pa7 = '" & sq(Request.Form("AP7")) & "', " strSQL = strSQL & "pa8 = '" & sq(Request.Form("AP8")) & "', " strSQL = strSQL & "pa9 = '" & sq(Request.Form("AP9")) & "', " strSQL = strSQL & "pa10 = '" & sq(Request.Form("AP10")) & "', " strSQL = strSQL & "pa11 = '" & sq(Request.Form("AP11")) & "', " strSQL = strSQL & "pa12 = " & sq(Request.Form("AP12")) & ", " strSQL = strSQL & "pa13 = '" & sq(Request.Form("AP13")) & "', " strSQL = strSQL & "pa14 = '" & sq(Request.Form("AP14")) & "', " strSQL = strSQL & "pa15 = '" & sq(Request.Form("AP15")) & "', " strSQL = strSQL & "pa16 = '" & sq(Request.Form("AP16")) & "', " strSQL = strSQL & "pa17 = '" & sq(Request.Form("AP17")) & "', " strSQL = strSQL & "pa18 = " & ppenable & ", " strSQL = strSQL & "pa19 = " & mbenable & ", " strSQL = strSQL & "pa20 = '" & sq(Request.Form("AP20")) & "', " strSQL = strSQL & "pa21 = '" & sq(Request.Form("AP21")) & "', " strSQL = strSQL & "pa22 = '" & sq(Request.Form("AP22")) & "', " strSQL = strSQL & "pa23 = " & coenable & ", " strSQL = strSQL & "pa24 = '" & sq(Request.Form("AP24")) & "', " strSQL = strSQL & "pa25 = '" & sq(Request.Form("AP25")) & "', " strSQL = strSQL & "pa26 = " & Request.Form("AP26") & ", " strSQL = strSQL & "pa27 = " & Request.Form("AP27") & ", " strSQL = strSQL & "pa28 = " & Request.Form("AP28") & ", " strSQL = strSQL & "pa29 = " & Request.Form("AP29") & ", " strSQL = strSQL & "pa30 = " & Request.Form("AP30") strSQL = strSQL & " WHERE ftype = 'default';" objConn.Execute(strSQL) Application("Classify_Payment_Config" & strUnique) = Empty UpdateSessions False Response.Redirect "admin_payment.asp" End Sub Sub SaveSW() sword = Request.Form("s_word") If Len(sword) > 0 then Set objMD5 = New MD5 objMD5.Text = sword sw = UCase(objMD5.HEXMD5) Else: sw = Empty End If strSQL = "UPDATE " & tablPfx & "Fees SET sw = '" & sw & "';" objConn.Execute(strSQL) End Sub Sub SaveSW1() sword = Request.Form("s_word1") If Len(sword) > 0 then sw1 = CryptText(sword, adminkey, False) Else: sw1 = Empty End If strSQL = "UPDATE " & tablPfx & "Fees SET sw1 = '" & sw1 & "';" objConn.Execute(strSQL) End Sub %> Custom Scheme | Packages | Link to Categories | Authorize.net | Refresh

<% Call Build_Box_Top("700", 20, "Classified Board Default Payment Configurations", "xl") %>
Base Price for days ad:   (base ad price without images)
Additional charge for days ad:   (in addition to base price)
Additional charge for days ad:   (in addition to base price)
 Additional charge for days ad:   (in addition to base price)
Additional charge for days ad:   (in addition to base price)
Additional charge for 1 attached image:    (in addition to base price)
Additional charge for 2 attached images:   (in addition to base price)
Additional charge for 3 attached images:   (in addition to base price)
Additional charge for 4 attached images:   (in addition to base price)
Additional charge for 5+ attached images:   (in addition to base price)
Give NEW users a credit for:   (applied for new users account)
Additional charge for "What's Hot" list:   (in addition to base price)
Run Discount Campaign:   (% deducted from final price)
Minimum purchase amount:  
PayPal Configuration:  >- Enable
Your PayPal Email (primary): 
Currency: 
Item Name for Ad Posting: 
Moneybookers Configuration:  >- Enable
Your Moneybookers Email: 
Currency: 
Item Name for Ad Posting: 
Secret Word:   
Confirm Secret Word: 

"Secret Word" must match the one you have entered within profile in your Moneybookers account. If you do not have a "Secret Word" field in your profile, contact support at Moneybookers and have your account promoted to "Merchant" status. "Secret Word" is not displayed on this form and stored in database MD5 encoded. This word is saved only by clicking "Save Secret Word Button"
2CheckOut Configuration:  >- Enable
Your 2CheckOut Seller ID: 
Item Name for Ad Posting: 
Secret Word: 
Confirm Secret Word: 
"Secret Word" must match the one you have entered within profile in your 2Checkout account. "Secret Word" is not displayed on this form and stored encoded in database. This word is saved only by clicking "Save Secret Word Button"
 
 
    

All amounts entered have to have 2 digits after decimal point (1.00). The amount is in absolute units and will correspond to the currency you select on your merchant account configuration. If you plan to charge for posting ads, you should have non 0.00 value at list in the "Base Price for ..." box. You then may configure the rest of the price scheme. The final price will be calculated as following (based on the sample pricelist above): Base Price + Charge Per Additional Duration + Price Per Image Attached. So that 45 days ad with 4 images would cost 5.50 (2.00+1.50+2.00).

If you choose not to charge additional fee and have a fixed price per ad, then enter that price at "Base Price for 10 days ad" and change the rest to 0.00. 
 

NOTE: If you would like to allow user to post free images do one of the following:

1. Set all image fields to 0.00. The image limit user can post would be equal to the limit specified in "Admin Preferences"
2. Set first image field price to 00.00. This would reveled this filed while user posting ads but there will be no charge for this option. You can then set a price for a second, third, etc..  fields. This would allow to post one image for free and change for attaching more images.

Use may select a duration individually for each option. Enter numbers only. You can select 0 duration, to exclude current selection from the option list during ad post process. NOTE: If you exclude an option make sure the following by options are excluded as well. In other words start excluding from the last option and up. Do not leave excluded option in between those you have assigned a valid duration. Do not leave duration field blank either.

To attract new users you may give initial credits just for signing up. Credits will be subtracted from the final price at the time they start posting ads. You may add/subtract additional credits to/from individual users at "User Manager" page.

If you run a discount campaign, select discount %. This percentage will be deducted from the final price while users post ads.

See "Admin Help" for more information on setting up your payment system
<% Call Build_Box_Bottom("") %>

<% Else UpdateSessions False Response.Redirect "admin_paymentcustom.asp" End If %>