%
If Not session("admin_loggedin" & strSUnique) = Session.SessionID then Response.Redirect "default.asp"
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
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 |
Refresh
 |
 |
 |
 |
Classified Board Default Payment Configurations |
 |
|
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
|
|
|
 |
 |
 |
<%
Else: Response.Redirect "admin_paymentcustom.asp"
End If
%>