home *** CD-ROM | disk | FTP | other *** search
/ 202.53.64.216 / 202.53.64.216.tar / 202.53.64.216 / revelationindia / adminmembership.asp < prev    next >
Text File  |  2004-09-27  |  959b  |  40 lines
  1. <!--#include file="increvelation.asp"-->
  2. <%
  3.  
  4.     dim BlnFlag
  5.     dim Membership
  6.     dim Category
  7.     dim Usercode,Status
  8.     
  9.     Usercode = Request.QueryString("user")
  10.     Category = Request.QueryString("category")
  11.     Membership = Request.QueryString("member")
  12.     
  13.     if Membership = "Grant" then
  14.         Status = "Paid"
  15.     elseif Membership = "Revoke" then
  16.         Status = "Not Paid"
  17.     end if
  18.     
  19.     BlnFlag = AdminGrantMembership(Usercode,Status)
  20.     
  21.     'Response.Write BlnFlag
  22.     'Response.End
  23.     
  24.     if BlnFlag = True then
  25.         if Category = "groom" then
  26.             Response.Redirect "admingroomlist.asp?membership=" & server.URLEncode(Status)
  27.         elseif Category = "bride" then
  28.             Response.Redirect "adminbridelist.asp?membership=" & server.URLEncode(Status)
  29.         end if
  30.     else
  31.         if Category = "groom" then
  32.             Response.Redirect "admingroomlist.asp?membership=fail"
  33.         elseif Category = "bride" then    
  34.             Response.Redirect "adminbridelist.asp?membership=fail"
  35.         end if
  36.     end if
  37.     
  38.         
  39.     
  40. %>