home *** CD-ROM | disk | FTP | other *** search
/ 202.53.64.216 / 202.53.64.216.tar / 202.53.64.216 / revelationindia / adminpartnership.asp < prev    next >
Text File  |  2004-09-27  |  7KB  |  261 lines
  1. <!--#include file = "increvelation.asp"-->
  2. <% Response.Buffer = True %>
  3. <SCRIPT LANGUAGE=javascript>
  4. <!--
  5.  
  6.     function CheckAll(frm)
  7.     {
  8.         var i;
  9.         
  10.         if (frm.chkdelete.length > 1)
  11.         {
  12.             for(i=0;i<frm.chkdelete.length;i++)
  13.             {    
  14.                 if (frm.chkdelete[i].checked ==0) 
  15.                     frm.chkdelete[i].checked=1;
  16.             }
  17.         }
  18.         else
  19.             
  20.             frm.chkdelete.checked = 1
  21.             
  22.         
  23.     }
  24.         
  25.     function UnCheckAll(frm)
  26.     {
  27.         var i;
  28.         
  29.         
  30.         if (frm.chkdelete.length > 1)
  31.         {
  32.             for(i=0;i<frm.chkdelete.length;i++)
  33.             {
  34.                 if (frm.chkdelete[i].checked==1) 
  35.                     frm.chkdelete[i].checked=0;
  36.             }
  37.         }
  38.         else
  39.             frm.chkdelete.checked = 0        
  40.     }    
  41.     
  42.     
  43.     function CheckBoxesChecked(frm)
  44.     {
  45.         var i,tflag;
  46.        
  47.         tflag = 500
  48.         
  49.         if (frm.chkdelete.length > 1)
  50.         {
  51.             for(i=0;i<frm.chkdelete.length;i++)
  52.             {
  53.                  if (frm.chkdelete[i].checked == 1)
  54.                  {
  55.                     tflag = 1
  56.                     break;
  57.                  }
  58.                
  59.                         
  60.             }
  61.         }
  62.         else
  63.              if (frm.chkdelete.checked == 1)       
  64.                 tflag = 1
  65.         
  66.         if (tflag != 1)
  67.         {
  68.                     alert("Check/Select the Mail to be Deleted and then Click on Delete Button")
  69.                     return false;
  70.                     
  71.         }
  72.         
  73.                
  74.     }
  75. //-->
  76. </SCRIPT>
  77.  
  78.  
  79. <%
  80.     if len(session("adminid"))= 0 then
  81.         Response.Redirect "adminlogin.asp"
  82.     end if
  83.     
  84.     if session("flag")<> "Partnership" then
  85.         session("flag")= ""
  86.     end if
  87. %>
  88. <%
  89.     dim rsPrayer
  90.     dim pwd,user
  91.     dim yob,age,currentyear
  92.     dim enqid,Flag
  93.     
  94.     
  95.     if len(session("flag"))= 0 then
  96.         Flag = Request.QueryString("flag")    
  97.         session("flag") = Flag
  98.     else
  99.         Flag = session("flag")
  100.     end if
  101.     
  102.         
  103.     
  104.     
  105.     Select case Request.QueryString("Direction")
  106.         
  107.         case ""
  108.             session("currentpage") = 1
  109.             'session("flag") = Flag
  110.         case "Next"
  111.             session("currentpage")=session("currentpage")+1
  112.             'session("flag") = Flag
  113.             
  114.         case "Previous"
  115.             session("currentpage")=session("currentpage")-1
  116.             'session("flag") = Flag
  117.             
  118.     end select
  119.     
  120.     set rsPrayer = server.CreateObject("adodb.recordset")
  121.     set rsPrayer = GetAllEnquiries(Flag)
  122.     
  123.     if rsPrayer.EOF = true and rsPrayer.BOF = true then
  124.         Response.Redirect "adminhome.asp?partnership=fail"
  125.         Response.End
  126.     end if
  127.     
  128.     
  129.     rsPrayer.PageSize = 5
  130.     
  131.     if rsPrayer.BOF = false and rsPrayer.EOF = false then
  132.         rsPrayer.AbsolutePage = CLng(session("currentpage"))
  133.     end if 
  134.     
  135.     
  136. %>
  137.  
  138.     
  139. <html>
  140. <head>
  141. <title>RevelationIndia - GroomList</title>
  142. <style>
  143. A
  144.             {
  145.                 COLOR : white; Text-Decoration : None
  146.             }
  147.  
  148.             A:Hover
  149.             {
  150.                 COLOR : #cc0000;Text-Decoration : None
  151.             }
  152.  
  153. </style>
  154. <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
  155. </head>
  156. <body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"><!--#include file ="include\admintop.inc"--></TD></TR></TABLE>
  157. <form name = "frmpartner" action = "postdeleteprayerrequests.asp?flag=Partnership" method = "post" onsubmit = "return CheckBoxesChecked(frmpartner)">
  158. <table width="779" border="0" cellspacing="0" cellpadding="0" height="500">
  159.   <tr> 
  160.     <td width="50" rowspan="9" valign="top">
  161.     <%'<!--#include file ="include\lefthome.inc"-->  %>
  162.    </td> 
  163.     <td colspan="2" align="middle" valign="top" rowspan="9" width="700"> 
  164.     
  165.     <% if Request.QueryString("delpartner") = "success" then %>
  166.             <br><font color=red face = verdana size=2>
  167.             <b>Partnership details Deleted !</b>
  168.             </font>
  169.             <br>
  170.     <%end if%>
  171.         
  172.    
  173.    <br><font face = verdana size =4 color = #ad0010><b>List Of Partnership Entries<b></font>
  174.     <br>
  175.     <TABLE  border=0 CELLSPACING=1 CELLPADDING=0 align=center width=100% align=center>
  176.     <TR>
  177.         <TD align = left>               
  178.         <%if CLng(session("currentpage")) > 1 then %>
  179.             <A href = "adminpartnership.asp?Direction=Previous"><font color=blue size=2 face = verdana><b>Previous</b></font></A>
  180.         <%End if%>
  181.         </TD>
  182.         <TD align = right>
  183.         <%if CLng(session("currentpage")) < rsPrayer.PageCount then %>
  184.         <A href = "adminpartnership.asp?Direction=Next"><font color=blue size=2 face = verdana><b>Next</b></font></a>
  185.         <%End if%>
  186.         </TD>
  187.     </TR>
  188. </TABLE>
  189. <br><br><p align = right><font color = blue size=2 face = verdana>
  190. <input type = button name = checkall value = "Check All" onclick = "return CheckAll(frmpartner)">
  191. <input type = button name = uncheckall value = "Uncheck All" onclick = "return UnCheckAll(frmpartner)">
  192. <input type = submit name = delete value = "Delete Checked Mails">
  193. </font></p>
  194.     <TABLE WIDTH="100%" BORDER=1 CELLSPACING=2 CELLPADDING=0 bgcolor = lightgrey align = center>
  195.      <TBODY>
  196.       
  197.     <TR bgcolor = lightsteelblue>
  198.         <TH align = left width=150 height="30"><font face="Verdana" size="2" color = navy>Name</font></TH>
  199.         <TH width=150 height="30"><font face="Verdana" size="2" color = navy>Message</font></TH>
  200.         <TH width=100 height="30"><font face="Verdana" size="2" color = navy>Email</font></TH>
  201.         <TH width=100 height="30"><font face="Verdana" size="2" color = navy>Date Posted</font></TH>
  202.         <TH width=100 height="30"><font face="Verdana" size="2" color = navy>Delete</font></TH>
  203.         
  204.     </TR>
  205.     <TR>
  206.     <%    
  207.        for count=1 to rsPrayer.PageSize 
  208.          if rsPrayer.eof then exit for
  209.                 
  210.        
  211.        'session("password") = " "
  212.        'user = rsPrayer.Fields("username")
  213.        enqid = rsPrayer.Fields("enquiry_id")
  214.        
  215.     
  216.     %>
  217.     
  218.     <TR bgcolor=lightgrey>
  219.     
  220.         <TD height="30"><font face="Verdana" size="2" color = black><%=rsPrayer.Fields("first_name")%></a></font></TD>
  221.         <TD align = left height="30"><A href ="adminpartnershipdetails.asp?enqid=<%=enqid%>&Flag=<%=Flag%>"><font face="Verdana" size="2" color = blue><%=left(rsPrayer.Fields("message"),20)%>....</font></TD>
  222.         <TD align = left height="30"><font face="Verdana" size="2" color = black><%=rsPrayer.Fields("email")%></font></TD>
  223.         <TD align = left height="30"><font face="Verdana" size="2" color = black><%=rsPrayer.Fields("edate")%></font></TD>
  224.         <TD align = center height="30"><font face="Verdana" size="2" color = black>
  225.         <INPUT type="checkbox" id=chkdelete name=chkdelete value = "<%=enqid%>">
  226.         </font></TD>
  227.     
  228.     <%
  229.     rsPrayer.MoveNext
  230.     next %>    
  231.     </TR>
  232. </table>
  233. <br>
  234. <TABLE  border=0 CELLSPACING=1 CELLPADDING=0 align=center width=100% align=center>
  235.     <TR>
  236.         <TD align = left>               
  237.         <%if CLng(session("currentpage")) > 1 then %>
  238.             <A href = "adminpartnership.asp?Direction=Previous"><font color=blue size=2 face = verdana><b>Previous</b></font></A>
  239.         <%End if%>
  240.         </TD>
  241.         <TD align = right>
  242.         <%if CLng(session("currentpage")) < rsPrayer.PageCount then %>
  243.         <A href = "adminpartnership.asp?Direction=Next"><font color=blue size=2 face = verdana><b>Next</b></font></a>
  244.         <%End if%>
  245.         </TD>
  246.     </TR>
  247. </TABLE>
  248. <br>
  249. <input type = button name = back value="Back" onclick = "javascript:history.back(1)" border=0>
  250. <input type = button name = home value="Home" onclick = "location.href='adminhome.asp'" border=0>
  251. </center>
  252. </TR>
  253. </TD>    
  254.     <td width="50" rowspan="9" valign="top" align = right>
  255.     <%'   <!--#include file ="include\right.inc"-->  %>
  256.     </td></TR></TBODY></TABLE>
  257.  <!--#include file ="include\bottom.inc"--> 
  258.  </form>
  259. </body>
  260. </html>
  261.