home *** CD-ROM | disk | FTP | other *** search
/ 202.53.64.216 / 202.53.64.216.tar / 202.53.64.216 / janahitha / Admin / AccInstallment.asp next >
Text File  |  2004-11-26  |  4KB  |  122 lines
  1. <% Response.Buffer =true%>
  2. <!-- #include file="../AdsOpenConn.asp" -->
  3. <%
  4.     if session("AdminLogin")="" then Response.Redirect "default.asp"
  5. %>
  6.  
  7. <%
  8.     dim hid
  9.     bookid=Request.Form("bookid")
  10. '    response.write 
  11.     'if request.form.count=0 then
  12.     if bookid="" then
  13. %>
  14. <html>
  15.     <head>
  16.     
  17.         <title> Janahitha Ads - New Registration </title>
  18.         <meta name="author" content="Jagadish,Gopi">
  19.         <script language="javascript" src="../func.js"></script>
  20.         <script language="javascript">
  21.         function check()
  22.         {
  23.             validateform = document.registrationform;
  24.             if(isempty(validateform.bookid))
  25.                 validateform.bookid.focus();
  26.             
  27.             else
  28.             if(!isnum(validateform.iamount))
  29.                 validateform.iamount.focus();
  30.             else
  31.                 validateform.submit();
  32.  
  33.  
  34.         }
  35.         </script>
  36.     </head>
  37.     <body bottommargin=0 topmargin=0 leftmargin=0 rightmargin=0 marginheight=0 marginwidth=0 bgcolor=#ffffff>
  38.     <p> </p>
  39.         <p align=right><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></p>
  40.         <center>
  41.         
  42.                 <form name="registrationform" method=post action="<%=request.servervariables("script_name")%>">
  43.                 <font face="verdana" color="#99603E"> <b> Inatalment Details  </b> </font> <br> <br>
  44.                 <table cellpadding=0 cellspacing=0 border=0>
  45.                 <tr> <td bgcolor="#f2D197">
  46.                 <table cellspacing=1 cellpadding=3 border=0 width=430>
  47.                 <tr bgcolor="#ffffff">
  48.                     <td> <font face="verdana" size=2> BookIngId </font> </td>
  49.                     <td> <input type=text name="bookid" size="15" maxlength=20> </td>
  50.                 </tr>
  51.                 <tr bgcolor="#ffffff">
  52.                     <td> <font face="verdana" size=2> Installment Type </font> </td>
  53.                     <td><select name=ins><option value="">Select Installment Type</option>
  54.                     <option value="1ST INSTALLMENT">1ST INSTALLMENT</option>
  55.                     <option value="2ND INSTALLMENT">2ND INSTALLMENT</option>
  56.                     <option value="3RD INSTALLMENT">3RD INSTALLMENT</option>
  57.                     <option value="4TH INSTALLMENT">4TH INSTALLMENT</option>
  58.                     <option value="5TH INSTALLMENT">5TH INSTALLMENT</option>
  59.                     </select>                    
  60.                 </tr>
  61.                 <tr bgcolor="#ffffff">
  62.                     <td> <font face="verdana" size=2> Installment Amount RS.</font> </td>
  63.                     <td> <input type=text name="iamount" size="10" maxlength=6> </td>
  64.                 </tr>
  65.  
  66.             <tr bgcolor="#ffffff">
  67.                     <td> <font face="verdana" size=2>Last Day Of Payment </font> </td>
  68.                     <td>
  69.                         <select name="dd">
  70.                         <%
  71.                             for i = 1 to 31
  72.                         %>
  73.                             <option value="<%=i%>" <%if i=datepart("d", date) then%>selected<%end if%>> <%=i%>
  74.                         <%
  75.                             next
  76.                         %>
  77.                         </select>
  78.                         <select name="mm">
  79.                         <%
  80.                             months=split("Mon~Jan~Feb~Mar~Apr~May~Jun~Jul~Aug~Sep~Oct~Nov~Dec", "~")
  81.                             for i = 1 to 12
  82.                         %>
  83.                             <option value="<%=i%>" <%if i=datepart("m", date) then%>selected<%end if%>> <%=months(i)%>
  84.                         <%
  85.                             next
  86.                         %>
  87.                         </select>
  88.                         <select name="yyyy">
  89.                             <option value="<%=datepart("yyyy", date)%>" selected> <%=datepart("yyyy", date)%>
  90.                             <option value="<%=datepart("yyyy", date)+1%>"> <%=datepart("yyyy", date)+1%>
  91.                             <option value="<%=datepart("yyyy", date)+2%>"> <%=datepart("yyyy", date)+2%>
  92.                             <option value="<%=datepart("yyyy", date)+3%>"> <%=datepart("yyyy", date)+3%>
  93.                             
  94.                         </select>
  95.                     
  96.                      </td>
  97.                 </tr>
  98.                 <tr bgcolor="#ffffff"><td><input type=button onclick="javascript:check()" value=" Reserve " id=button1 name=button1></td><td></td></tr>
  99.                 </table>
  100.             </table>
  101.                         </form>
  102.         </center>
  103.         </body>
  104. </html>
  105. <%
  106.     else
  107.  
  108.         bookid = replace(trim(request.form("bookid")), "'", "''")
  109.         ins = replace(trim(request.form("ins")), "'", "''")
  110.  
  111.         lastdate = replace(trim(request.form("dd")), "'", "''")+"/"+replace(trim(request.form("mm")), "'", "''")+"/"+replace(trim(request.form("yyyy")), "'", "''")
  112.                 response.write "las="&lastdate
  113.         iamount = replace(trim(request.form("iamount")), "'", "''")
  114.         sql1 = "insert into installmentdetails (bookingid,installmenttype,installmentamout,lastdayofpayment)values(" & bookid & ", '" & ins & "'," & iamount + ",' " & lastdate&"' )"
  115.         Response.Write sql1
  116.         con.execute sql1
  117.     '    sql1="update hoardingmaster set HoardingStatus=0"
  118.     '    con.execute sql1
  119.         response.redirect "Accinstallment.asp"
  120.     end if
  121. %>
  122. <!-- #include file="../AdsCloseConn.asp" -->