home *** CD-ROM | disk | FTP | other *** search
/ 202.53.64.216 / 202.53.64.216.tar / 202.53.64.216 / janahitha / Admin / AdsAdminAccounts.asp < prev    next >
Text File  |  2004-11-26  |  7KB  |  183 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.         set rs = server.CreateObject("adodb.recordset")
  9. %>
  10. <HTML>
  11.     <HEAD>
  12.         <TITLE> <%=SiteName%> - Welcome </TITLE>
  13.         <META name="author" content="Gopi Tanguturi">
  14.     </HEAD>
  15.         <SCRIPT language="javascript" src="../func.js"></SCRIPT>
  16.         <SCRIPT language="javascript">
  17.             function check()
  18.             {    
  19.                 var valfld;
  20.                 valfld = document.frmAddAccountForm
  21.                 if(isempty(valfld.txtName))
  22.                     valfld.txtName.focus();
  23.                 else
  24.                 if(isempty(valfld.txtAddress))
  25.                     valfld.txtAddress.focus();
  26.                 else
  27.                 if(isempty(valfld.txtEmail))
  28.                     valfld.txtEmail.focus();                    
  29.                 else
  30.                 if(isempty(valfld.txtAmount))
  31.                     valfld.txtAmount.focus();
  32.                 else
  33.                 if(isempty(valfld.txtDate))
  34.                     valfld.txtDate.focus();                    
  35.                 else
  36.                     valfld.submit();
  37.             }
  38.         </SCRIPT>
  39.     <BODY bottommargin=0 topmargin=0 leftmargin=0 rightmargin=0 marginheight=0 marginwidth=0 bgcolor=#ffffff>
  40.         <table cellpadding=0 cellspacing=0 border=0 width=780 height=450>
  41.         <tr height=1>
  42.             <td width="100" bgcolor="<%=LeftColor%>"><font face=verdana size=1> </font></td>
  43.             <td width="290" bgcolor="<%=LeftColor%>"><font face=verdana size=1> </font></td>
  44.             <td width="290" bgcolor="<%=RightColor%>"><font face=verdana size=1> </font></td>
  45.             <td width="100" bgcolor="<%=RightColor%>"><font face=verdana size=1> </font></td>
  46.         </tr>
  47.         <tr>
  48.             <td bgcolor="<%=LeftColor%>" colspan=2 valign=top > <font face="courier new" size=6 color="<%=SiteNameColor%>"> <b>   <%=SiteName%> </b> </font> </td>
  49.             <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>
  50.         </tr>
  51.         <tr>
  52.             <td bgcolor="<%=LeftColor%>">   </td>
  53.             <td colspan=2 align=center height=100 bgcolor=<%=OuterTblBGColor%>>
  54.                 <br>
  55.                 
  56.                 <form name="frmAddAccountForm" method=post action="<%=Request.ServerVariables("script_name")%>">
  57.                 <table cellpadding=0 cellspacing=0 border=0>
  58.                 <tr> <td bgcolor="<%=TblBorderColor%>">
  59.                 <table cellspacing=1 cellpadding=3 border=0 width=450>
  60.                 <tr bgcolor="<%=TblHeadBGColor%>">
  61.                     <th colspan=2> 
  62.                         <font face=verdana color="<%=TblHeadFGColor%>">  New Account </font>
  63.                     </td>
  64.                 </tr>
  65.                 <tr bgcolor="<%=TblBGColor%>">
  66.                     <td> 
  67.                         <font face="verdana" size=2 color="<%=TblFGColor%>"> Name </font> 
  68.                     </td>
  69.                     <td> 
  70.                         <input type=text name="txtName" maxlength="100">
  71.                     </td>
  72.                 </tr>
  73.                 <tr bgcolor="<%=TblBGColor%>">
  74.                     <td> 
  75.                         <font face="verdana" size=2 color="<%=TblFGColor%>"> Address </font> 
  76.                     </td>
  77.                     <td> 
  78.                         <input type=text name="txtAddress" maxlength="50">
  79.                     </td>
  80.                 </tr>
  81.                 <tr bgcolor="<%=TblBGColor%>">
  82.                     <td> 
  83.                         <font face="verdana" size=2 color="<%=TblFGColor%>"> Email Address </font> 
  84.                     </td>
  85.                     <td> 
  86.                         <input type=text name="txtEmail" maxlength="50">
  87.                     </td>
  88.                 </tr>                    
  89.                 <tr bgcolor="<%=TblBGColor%>">
  90.                     <td> 
  91.                         <font face="verdana" size=2 color="<%=TblFGColor%>"> Amount Paid</font> 
  92.                     </td>
  93.                     <td> 
  94.                         <input type=text name="txtAmount" maxlength="50">
  95.                     </td>
  96.                 </tr>                
  97.                 <tr bgcolor="<%=TblBGColor%>">
  98.                     <td> 
  99.                         <font face="verdana" size=2 color="<%=TblFGColor%>"> Date of Payment </font> 
  100.                     </td>
  101.                     <td> 
  102.                         <input type=text name="txtDate" maxlength="50">
  103.                     </td>
  104.                 </tr>    
  105.                 </table>
  106.                 </td> </tr>
  107.                 </table>
  108.                 <br>
  109.                 <input type=button value="New Account" onclick="javascript:check();" id=button1 name=button1>
  110.                 </form>
  111.             </td>
  112.             <td bgcolor="<%=RightColor%>">   </td>
  113.         </tr>
  114.         <tr>
  115.             <td colspan=2 bgcolor="<%=LeftColor%>">   </td>
  116.             <td colspan=2 bgcolor="<%=RightColor%>">   </td>
  117.         </tr>
  118.         </table>
  119.     </BODY>
  120. </HTML>
  121. <%
  122.         set rs = nothing
  123.     else
  124.         Name = Request.Form("txtName")
  125.         Address = Request.Form("txtAddress")
  126.         Email = Request.Form("txtEemail")        
  127.         Amount = replace(trim(Request.Form("txtAmount")), "'", "''")
  128.         DateOfPayment = replace(trim(Request.Form("txtDate")), "'", "''")
  129.  
  130.         sql = "insert into tblAccounts(fldname, fldaddress, fldEmail, fldamount, flddate) " & _
  131.         " values('" + Name + "', '" + Address + "', '" + Email + "'," + Amount + ", '" + DateOfPayment + "')"
  132.         con.execute sql
  133. %>
  134.  <html>
  135.     <head>
  136.         <title> <%=SiteName%> - Welcome </title>
  137.         <meta name="author" content="Jagadish">
  138.         <meta name="author" content="Gopi Tanguturi">
  139.     </head>
  140.     <body bottommargin=0 topmargin=0 leftmargin=0 rightmargin=0 marginheight=0 marginwidth=0 bgcolor=#ffffff>
  141.         <table cellpadding=0 cellspacing=0 border=0 width=780 height=450>
  142.         <tr height=1>
  143.             <td width="100" bgcolor="<%=LeftColor%>"><font face=verdana size=1> </font></td>
  144.             <td width="290" bgcolor="<%=LeftColor%>"><font face=verdana size=1> </font></td>
  145.             <td width="290" bgcolor="<%=RightColor%>"><font face=verdana size=1> </font></td>
  146.             <td width="100" bgcolor="<%=RightColor%>"><font face=verdana size=1> </font></td>
  147.         </tr>
  148.         <tr>
  149.             <td bgcolor="<%=LeftColor%>" colspan=2 valign=top > <font face="courier new" size=6 color="<%=SiteNameColor%>"> <b>   <%=SiteName%> </b> </font> </td>
  150.             <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>
  151.         </tr>
  152.         <tr>
  153.             <td bgcolor="<%=LeftColor%>">   </td>
  154.             <td colspan=2 align=center height=100>
  155.                 <table cellpadding=2 cellspacing=0 border=0>
  156.                 <tr> <td bgcolor="<%=OuterTblBorderColor%>">
  157.                 <table width="576" bgcolor="<%=OuterTblBGColor%>" height=100 border=0 cellpadding=0 cellspacing=0>
  158.                 <tr>
  159.                     <th>
  160.                         <br>
  161.                         <font face=verdana size=2 color="<%=MsgColor%>">
  162.                             Added New Account Successfully <br> <br>
  163.                             <a href="<%=Request.ServerVariables("script_name")%>"><font color="<%=MsgColor%>">Add More</font></a>
  164.                         </font>
  165.                     </th>
  166.                 </tr>
  167.                 </table>
  168.                 </td> </tr>
  169.                 </table>
  170.             </td>
  171.             <td bgcolor="<%=RightColor%>">   </td>
  172.         </tr>
  173.         <tr>
  174.             <td colspan=2 bgcolor="<%=LeftColor%>">   </td>
  175.             <td colspan=2 bgcolor="<%=RightColor%>">   </td>
  176.         </tr>
  177.         </table>
  178.     </body>
  179. </html>
  180. <%
  181.     end if
  182. %>
  183. <!-- #include file="../AdsCloseConn.asp" -->