home *** CD-ROM | disk | FTP | other *** search
/ 202.53.64.216 / 202.53.64.216.tar / 202.53.64.216 / revelationindia / adminbridelist.asp < prev    next >
Text File  |  2004-09-27  |  7KB  |  201 lines
  1. <!--#include file = "increvelation.asp"-->
  2. <%
  3.     if len(session("adminid"))= 0 then
  4.         Response.Redirect "adminlogin.asp"
  5.     end if
  6.     
  7.     if session("flag")<> "Brides" then
  8.         session("flag")= ""
  9.     end if
  10. %>
  11. <%
  12.     dim rsBride
  13.     dim pwd,user
  14.     dim yob,age,currentyear
  15.     dim status,enable,member,membership
  16.     
  17.     Select case Request.QueryString("Direction")
  18.         
  19.         case ""
  20.             session("currentpage") = 1
  21.         case "Next"
  22.             session("currentpage")=session("currentpage")+1
  23.         case "Previous"
  24.             session("currentpage")=session("currentpage")-1
  25.             
  26.     end select
  27.     
  28.     set rsBride = server.CreateObject("adodb.recordset")
  29.     set rsBride = GetAllBridesAndGroomsForAdmin("Female")
  30.     session("paid")="NO"    
  31.     
  32.     if rsBride.EOF = True and rsBride.BOF = True then
  33.         Response.Redirect "adminhome.asp?grooms=fail"
  34.         Response.End
  35.     end if
  36.     
  37.     rsBride.PageSize = 10
  38.     
  39.     if rsBride.BOF = false and rsBride.EOF = false then
  40.         rsBride.AbsolutePage = CLng(session("currentpage"))
  41.     end if 
  42. %>
  43. <SCRIPT LANGUAGE=javascript>
  44. <!--
  45.  
  46. //-->
  47. </SCRIPT>
  48.  
  49. <html>
  50. <head>
  51. <title>RevelationIndia - GroomList</title>
  52. <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
  53. <style>
  54. A
  55.             {
  56.                 COLOR : white; Text-Decoration : None
  57.             }
  58.  
  59.             A:Hover
  60.             {
  61.                 COLOR : #cc0000;Text-Decoration : None
  62.             }
  63.  
  64. </style>
  65. </head>
  66. <body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
  67. <!--#include file ="include\admintop.inc"--></TD></TR></TABLE>
  68.  
  69. <table width="779" border="0" cellspacing="0" cellpadding="0" height="500">
  70.   <tr> 
  71.     <td width="150" rowspan="9" valign="top">
  72.     <%'<!--#include file ="include\lefthome.inc"-->  %>
  73.     </td>
  74.     <td colspan="2" align="middle" valign="top" rowspan="9" width="700"> 
  75.    <br><font face = verdana size =4 color = #ad0010><b>Profile List Of Brides<b></font>
  76.     <br>
  77.     <% if Request.QueryString("groomdetails")="fail" then %>
  78.         <Center><br>
  79.         <font color = red size = 2 face = verdana><b>Sorry !! Unable to display
  80.         the BrideGroom's details. <br>Please try again.</b></font>
  81.         <br>
  82.      <%    Response.End
  83.       end if %>
  84.       <% if Request.QueryString("disable")="success" or Request.QueryString("delete")="success" then %>
  85.         <Center><br>
  86.         <font color = red size = 2 face = verdana><b>Profile of Bride <%= Request.QueryString("user")%> is currently <%=Request.QueryString("status")%></b></font>
  87.         <br>
  88.      <%    end if %>
  89.       <% if Request.QueryString("membership")="Paid" then %>
  90.         <Center><br>
  91.         <font color = red size = 2 face = verdana><b>Membership is Granted</b></font>
  92.         <br>
  93.      <% elseif Request.QueryString("membership")="Not Paid" then %>
  94.         <Center><br>
  95.         <font color = red size = 2 face = verdana><b>Membership is Revoked</b></font>
  96.         <br>
  97.      <%    end if %>
  98.     <TABLE  border=0 CELLSPACING=1 CELLPADDING=0 align=center width=750 align=center>
  99.     <TR>
  100.         <TD align = left>               
  101.         <%if CLng(session("currentpage")) > 1 then %>
  102.             <A href = "adminbridelist.asp?Direction=Previous"><font color = blue size=2 face = verdana><b>Previous</b></font></A>
  103.         <%End if%>
  104.         </TD>
  105.         <TD align = right>
  106.         <%if CLng(session("currentpage")) < rsBride.PageCount then %>
  107.         <A href = "adminbridelist.asp?Direction=Next"><font color = blue size=2 face = verdana><b>Next</b></font></a>
  108.         <%End if%>
  109.         </TD>
  110.     </TR>
  111. </TABLE>
  112. <br>
  113.     <TABLE WIDTH=750 BORDER=0 CELLSPACING=3 CELLPADDING=0 bgcolor = lightgrey>
  114.      <TBODY>
  115.       
  116.     <TR bgcolor = lightsteelblue>
  117.         <TH align = left width=50><font face="Verdana" size="2" color = #ad0010>Code</font></TH>
  118.         <TH width=50><font face="Verdana" size="2" color = #ad0010>Gender</font></TH>
  119.         <TH width=50><font face="Verdana" size="2" color = #ad0010>Qualification</font></TH>
  120.         <TH width=50><font face="Verdana" size="2" color = #ad0010>Age</font></TH>
  121.         <TH><font face="Verdana" size="2" color = #ad0010>Height</font></TH>
  122.         <TH><font face="Verdana" size="2" color = #ad0010>Complexion</font></TH>
  123.         <TH><font face="Verdana" size="2" color = #ad0010>Designation</font></TH>
  124.         <TH><font face="Verdana" size="2" color = #ad0010>City</font></TH>
  125.         <TH><font face="Verdana" size="2" color = #ad0010>Status</font></TH>
  126.         <TH><font face="Verdana" size="2" color = #ad0010>Membership</font></TH>
  127.     </TR>
  128.     <TR>
  129.     <%    
  130.        for count=1 to rsBride.PageSize 
  131.          if rsBride.eof then exit for
  132.                 
  133.        
  134.        'session("password") = " "
  135.        user = rsBride.Fields("usercode")
  136.        pwd = rsBride.Fields("password")
  137.        session("password") = pwd
  138.        yob = Year((rsBride.Fields("dob")))
  139.        currentyear = year(now())
  140.        age = cint(currentyear)-cint(yob) 
  141.        enable = rsBride.Fields("enabled")
  142.        member = rsBride.Fields("status")
  143.        
  144.        if enable = "YES" then
  145.             status = "Enabled"
  146.        elseif enable = "NO" then
  147.             status = "Disabled"
  148.        end if
  149.        
  150.        if member = "Paid" then
  151.           membership = "Revoke"
  152.        elseif member = "Not Paid" then
  153.           membership = "Grant"
  154.        end if
  155.        
  156.     %>
  157.     <TR>
  158.         <TD><A href ="adminbridedetails.asp?category=bride&user=<%=user%>&status=<%=status%>"><font face="Verdana" size="2" color = blue><%=rsBride.Fields("usercode")%></a></font></TD>
  159.         <TD><font face="Verdana" size="2" color = black><%=rsBride.Fields("gender")%></font></TD>
  160.         <TD align = center><font face="Verdana" size="2" color = black><%=rsBride.Fields("exam1")%></font></TD>
  161.         <TD align = center><font face="Verdana" size="2" color = black><%=age%></font></TD>
  162.         <TD align = center><font face="Verdana" size="2" color = black><%=rsBride.Fields("height")%></font></TD>
  163.         <TD align = center><font face="Verdana" size="2" color = black><%=rsBride.Fields("complexion")%></font></TD>
  164.         <TD align = center><font face="Verdana" size="2" color = black><%=rsBride.Fields("designation")%></font></TD>
  165.         <TD align = center><font face="Verdana" size="2" color = black><%=rsBride.Fields("city")%></font></TD>
  166.         <TD align = center><A href ="admingroomdetails.asp?category=groom&user=<%=user%>&status=<%=status%>"><font face="Verdana" size="2" color = red><%=status%></font></a></TD>
  167.         <TD align = center><A href ="adminmembership.asp?category=bride&user=<%=user%>&member=<%=membership%>"><font face="Verdana" size="2" color = green><%=membership%></font></a></TD>
  168.     <TR><TD> </TD></TR>
  169.     <%
  170.     rsBride.MoveNext
  171.     next %>    
  172.     </TR>
  173. </table>
  174. <br>
  175. <TABLE  border=0 CELLSPACING=1 CELLPADDING=0 align=center width=750 align=center>
  176.     <TR>
  177.         <TD align = left>               
  178.         <%if CLng(session("currentpage")) > 1 then %>
  179.             <A href = "adminbridelist.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")) < rsBride.PageCount then %>
  184.         <A href = "adminbridelist.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>
  190. <input type = button name = back value="Back" onclick = "javascript:history.back(1)" border=0>
  191. <input type = button name = home value="Home" onclick = "location.href='adminhome.asp'" border=0>
  192. </center>
  193. </TR>
  194. </TD>    
  195.     <td width="50" rowspan="9" valign="top" align = right>
  196.     <%'<!--#include file ="include\right.inc"-->  %>
  197.     </td></TR></TBODY></TABLE>
  198.  <!--#include file ="include\bottom.inc"--> 
  199. </body>
  200. </html>
  201.