home *** CD-ROM | disk | FTP | other *** search
/ 202.53.64.216 / 202.53.64.216.tar / 202.53.64.216 / janahitha / Admin / AdsAdminViewLogins.asp < prev    next >
Text File  |  2004-11-26  |  6KB  |  173 lines
  1. <%
  2.     if session("AdminLogin")="" then Response.Redirect "default.asp"
  3. %>
  4. <!-- #include file="AdsAdminConstants.asp" -->
  5. <!-- #include file="../AdsOpenConn.asp" -->
  6. <%
  7.     if Request.Form.Count=0 then
  8.         sql = "select LoginId, LoginName, Password1 from Logins Order by LoginName"
  9.         set rs = server.CreateObject("adodb.recordset")
  10.         msg = ""
  11.         rs.open sql, con, 3, 3
  12.         if rs.RecordCount=0 then msg = "No Records Found"
  13.         rs.Close 
  14.         if msg<>"" then
  15. %>
  16. <html>
  17.     <head>
  18.         <title> <%=SiteName%> - Welcome </title>
  19.         <meta name="author" content="Jagadish">
  20.     </head>
  21.     <body bottommargin=0 topmargin=0 leftmargin=0 rightmargin=0 marginheight=0 marginwidth=0 bgcolor=#ffffff>
  22.         <table cellpadding=0 cellspacing=0 border=0 width=780 height=450>
  23.         <tr height=1>
  24.             <td width="100" bgcolor="<%=LeftColor%>"><font face=verdana size=1> </font></td>
  25.             <td width="290" bgcolor="<%=LeftColor%>"><font face=verdana size=1> </font></td>
  26.             <td width="290" bgcolor="<%=RightColor%>"><font face=verdana size=1> </font></td>
  27.             <td width="100" bgcolor="<%=RightColor%>"><font face=verdana size=1> </font></td>
  28.         </tr>
  29.         <tr>
  30.             <td bgcolor="<%=LeftColor%>" colspan=2 valign=top > <font face="courier new" size=6 color="<%=SiteNameColor%>"> <b>   <%=SiteName%> </b> </font> </td>
  31.             <td bgcolor="<%=RightColor%>" colspan=2 align=right valign=top> <font face=verdana size=2> <a href="AdsAdminHome.asp"><font color="<%=TopLinksColor%>">Home</font></a>     <a href="AdsAdminHome.asp?lo"><font color="<%=TopLinksColor%>">Logout</font></a>   </font> </td>
  32.         </tr>
  33.         <tr>
  34.             <td bgcolor="<%=LeftColor%>">   </td>
  35.             <td colspan=2 align=center height=200 bgcolor="<%=OuterTblBGColor%>">
  36.                 <table cellpadding=2 cellspacing=0 border=0>
  37.                 <tr> <td bgcolor="<%=OuterTblBorderColor%>">
  38.                 <table width="576" bgcolor=<%=OuterTblBGColor%> height=200 border=0 cellpadding=0 cellspacing=0>
  39.                 <tr>
  40.                     <th>
  41.                         <br>
  42.                         <font face=verdana size=2 color="<%=ErrMsgColor%>">
  43.                             <%=msg%> <br> <br>
  44.                             <a href="javascript:history.back();"><font color="<%=ErrMsgColor%>">Back</font></a>
  45.                         </font>
  46.                     </th>
  47.                 </tr>
  48.                 </table>
  49.                 </td> </tr>
  50.                 </table>
  51.             </td>
  52.             <td bgcolor="<%=RightColor%>">   </td>
  53.         </tr>
  54.         <tr>
  55.             <td colspan=2 bgcolor="<%=LeftColor%>">   </td>
  56.             <td colspan=2 bgcolor="<%=RightColor%>">   </td>
  57.         </tr>
  58.         </table>
  59.     </body>
  60. </html>
  61. <%            
  62.             Response.End 
  63.         end if
  64. %>
  65. <html>
  66.     <head>
  67.         <title> <%=SiteName%> - Welcome </title>
  68.         <meta name="author" content="Jagadish">
  69.     </head>
  70.     <body bottommargin=0 topmargin=0 leftmargin=0 rightmargin=0 marginheight=0 marginwidth=0 bgcolor=#ffffff>
  71.         <table cellpadding=0 cellspacing=0 border=0 width=780 height=450>
  72.         <tr height=1>
  73.             <td width="50" bgcolor="<%=LeftColor%>"><font face=verdana size=1> </font></td>
  74.             <td width="340" bgcolor="<%=LeftColor%>"><font face=verdana size=1> </font></td>
  75.             <td width="340" bgcolor="<%=RightColor%>"><font face=verdana size=1> </font></td>
  76.             <td width="50" bgcolor="<%=RightColor%>"><font face=verdana size=1> </font></td>
  77.         </tr>
  78.         <tr>
  79.             <td bgcolor="<%=LeftColor%>" colspan=2 valign=top > <font face="courier new" size=6 color="<%=SiteNameColor%>"> <b>   <%=SiteName%> </b> </font> </td>
  80.             <td bgcolor="<%=RightColor%>" colspan=2 align=right valign=top> <font face=verdana size=2> <a href="AdsAdminHome.asp"><font color="<%=TopLinksColor%>">Home</font></a>     <a href="AdsAdminHome.asp?lo"><font color="<%=TopLinksColor%>">Logout</font></a>   </font> </td>
  81.         </tr>
  82.         <tr>
  83.             <td bgcolor="<%=LeftColor%>">   </td>
  84.             <td colspan=2 align=center height=200 bgcolor="<%=OuterTblBGColor%>">
  85.                 <br>
  86.                 <form name="viewbookingform" method=post action="<%=Request.ServerVariables("script_name")%>">
  87.                 <table cellpadding=0 cellspacing=0 border=0>
  88.                 <tr> <td bgcolor="<%=TblBordercolor%>">
  89.                 <table width="600" border=0 cellpadding=3 cellspacing=1>
  90.                 <tr bgcolor="<%=TblHeadBGColor%>">
  91.                     <th>
  92.                         <font face=verdana size=2 color="<%=TblHeadFGColor%>"> SNo </font>
  93.                     </th>
  94.                     <th>
  95.                         <font face=verdana size=2 color="<%=TblHeadFGColor%>"> Login Name </font>
  96.                     </th>
  97.                     <th>
  98.                         <font face=verdana size=2 color="<%=TblHeadFGColor%>"> Password </font>
  99.                     </th>
  100.                     <th>
  101.                         <font face=verdana size=2 color="<%=TblHeadFGColor%>">   </font>
  102.                     </th>
  103.                     <th>
  104.                         <font face=verdana size=2 color="<%=TblHeadFGColor%>"> Delete </font>
  105.                     </th>
  106.                 </tr>
  107. <%            
  108.             rs.Open sql, con, 3, 3
  109.             sno = 0
  110.             while not rs.EOF
  111.                 sno = sno + 1
  112. %>
  113.                 <tr bgcolor="<%=TblBGColor%>">
  114.                     <td align=right>
  115.                         <font face=verdana size=2 color="<%=TblFGColor%>"> <%=sno%> </font>
  116.                         <input type=hidden name="ids" value="<%=rs("LoginId")%>">
  117.                     </td>
  118.                     <td>
  119.                         <font face=verdana size=2 color="<%=TblFGColor%>"> <%=rs("LoginName")%> </font>
  120.                     </td>
  121.                     <td>
  122.                         <font face=verdana size=2 color="<%=TblFGColor%>"> <%=rs("Password1")%> </font>
  123.                     </td>
  124.                     <td align=center>
  125.                         <a href="AdsAdminUpdateLogin.asp?logid=<%=rs("LoginId")%>"><font face=verdana size=2 color="<%=NewLinkColor%>">Update</font></a>
  126.                     </td>
  127.                     <td align=center>
  128.                         <input type=checkbox name="delete<%=rs("LoginId")%>">
  129.                     </td>
  130.                 </tr>
  131. <%                
  132.                 rs.MoveNext 
  133.             wend
  134.             rs.Close  
  135.             set rs = nothing
  136. %>
  137.                 <tr bgcolor="<%=TblHeadBGColor%>">
  138.                     <th colspan=8>
  139.                         <input type=submit value=" Delete Selected Logins ">
  140.                     </th>
  141.                 </tr>
  142.                 <tr bgcolor="<%=TblHeadBGColor%>">
  143.                     <th colspan=8 align=right>
  144.                         <a href="AdsAdminUpdateLogin.asp?mode=a"><font face=verdana size=2 color="<%=TblHeadFGColor%>">Add New Login</font></a>
  145.                     </th>
  146.                 </tr>
  147.                 </table>
  148.                 </td> </tr>
  149.                 </table>
  150.                 </form>
  151.             </td>
  152.             <td bgcolor="<%=RightColor%>">   </td>
  153.         </tr>
  154.         <tr>
  155.             <td colspan=2 bgcolor="<%=LeftColor%>">   </td>
  156.             <td colspan=2 bgcolor="<%=RightColor%>">   </td>
  157.         </tr>
  158.         </table>
  159.     </body>
  160. </html>
  161. <%            
  162.     else
  163.         ids = split(Request.Form("ids"), ", ")
  164.         for i = 0 to ubound(ids)
  165.             if Request.Form("delete" + ids(i))="on" then
  166.                 sql = "delete from Logins where LoginId=" + ids(i)
  167.                 con.execute sql
  168.             end if
  169.         next
  170.         Response.Redirect Request.ServerVariables("script_name")
  171.     end if
  172. %>
  173. <!-- #include file="../AdsCloseConn.asp" -->