home *** CD-ROM | disk | FTP | other *** search
/ 202.53.64.216 / 202.53.64.216.tar / 202.53.64.216 / revelationindia / postdeleteprayerrequests.asp < prev    next >
Text File  |  2004-09-27  |  1KB  |  55 lines
  1. <!--#include file = "increvelation.asp"-->
  2. <%
  3.     dim BlnFlag
  4.     dim DeleteEnqIds,EnquiryId,FromFlag
  5.     
  6.     EnquiryId = Request.QueryString("enqid")
  7.     
  8.     DeleteEnqIds = Request.Form("chkdelete")
  9.     
  10.     'Response.Write deleteenqids
  11.     'Response.End
  12.     
  13.     FromFlag = Request.QueryString("flag")
  14.     
  15.     if len(EnquiryId)=  0 then
  16.         BlnFlag = AdminDeleteEnquiries(DeleteEnqIds)
  17.     else
  18.         BlnFlag = AdminDeleteEnquiries(EnquiryId)
  19.     end if
  20.     
  21.     'Response.Write BlnFlag
  22.     'Response.End
  23.     
  24.     
  25.     select case FromFlag 
  26.     
  27.         case "Prayer" 
  28.         
  29.             if BlnFlag = True then
  30.                 Response.Redirect "adminprayerrequests.asp?delprayer=success"
  31.             else
  32.                 Response.Redirect "adminprayerrequestsdetails.asp?delprayer=fail"
  33.             end if
  34.             
  35.         case "Enquiry"
  36.     
  37.             if BlnFlag = True then
  38.                 Response.Redirect "adminenquiries.asp?delenquiry=success"
  39.             else
  40.                 Response.Redirect "adminenquiriesdetails.asp?delenquiry=fail"
  41.             end if
  42.             
  43.         case "Partnership" 
  44.     
  45.             if BlnFlag = True then
  46.                 Response.Redirect "adminpartnership.asp?delpartner=success"
  47.             else
  48.                 Response.Redirect "adminpartnershipdetails.asp?delpartner=fail"
  49.             end if
  50.         
  51.     end select
  52.     
  53.     
  54.  
  55. %>