home *** CD-ROM | disk | FTP | other *** search
/ 202.53.64.216 / 202.53.64.216.tar / 202.53.64.216 / janahitha / Admin / AdsAdminAccBookingHoard.asp < prev    next >
Text File  |  2004-11-26  |  6KB  |  160 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.     hid=Request.Form("hid")
  10.     'if request.form.count=0 then
  11.     if hid="" then
  12. %>
  13. <html>
  14.     <head>
  15.     
  16.         <title> Janahitha Ads - New Registration </title>
  17.         <meta name="author" content="Jagadish,Gopi">
  18.         <script language="javascript" src="../func.js"></script>
  19.         <script language="javascript">
  20.         function check()
  21.         {
  22.             validateform = document.registrationform;
  23.             if(isempty(validateform.name))
  24.                 validateform.name.focus();
  25.             else
  26.             if(isempty(validateform.hid))
  27.                 validateform.hid.focus();
  28.             else
  29.             if(isnum(validateform.tamount))
  30.                 validateform.tamount.focus();
  31.             else
  32.                 validateform.submit();
  33.         }
  34.         </script>
  35.     </head>
  36.     <body bottommargin=0 topmargin=0 leftmargin=0 rightmargin=0 marginheight=0 marginwidth=0 bgcolor=#ffffff>
  37.     <p> </p>
  38.         <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>
  39.         <center>
  40.         
  41.                 <form name="registrationform" method=post action="<%=request.servervariables("script_name")%>">
  42.                 <font face="verdana" color="#99603E"> <b> Hoarding Reservation  </b> </font> <br> <br>
  43.                 <table cellpadding=0 cellspacing=0 border=0>
  44.                 <tr> <td bgcolor="#f2D197">
  45.                 <table cellspacing=1 cellpadding=3 border=0 width=430>
  46.                 <tr bgcolor="#ffffff">
  47.                     <td> <font face="verdana" size=2> HoardId </font> </td>
  48.                     <td> <input type=text name="hid" size="15" maxlength=200> </td>
  49.                 </tr>
  50.                 <tr bgcolor="#ffffff">
  51.                     <td> <font face="verdana" size=2> Client Name </font> </td>
  52.                     <td><select name=name><option value="">Select ClientName</option>
  53.                     
  54.                     <%
  55.                     dim rs                    
  56.                     set rs = server.CreateObject("adodb.recordset")  
  57.                     sql="select accid,clientname from AccClientDetails where clientstatus=yes"
  58.                     rs.open sql, con, 3, 3
  59.                     while not rs.eof%>
  60.                     <option value=<%=rs(0)%>><%=rs(1)%></option> %>
  61.                                       
  62.                     <%
  63.                     rs.MoveNext
  64.                     wend
  65.                     %>
  66.                     </select>                    
  67.                         </tr>
  68.                 
  69.                 <tr bgcolor="#ffffff">
  70.                     <td> <font face="verdana" size=2>Reserved From </font> </td>
  71.                     <td>
  72.                         <select name="fromdd">
  73.                         <%
  74.                             for i = 1 to 31
  75.                         %>
  76.                             <option value="<%=i%>" <%if i=datepart("d", date) then%>selected<%end if%>> <%=i%>
  77.                         <%
  78.                             next
  79.                         %>
  80.                         </select>
  81.                         <select name="frommm">
  82.                         <%
  83.                             months=split("Mon~Jan~Feb~Mar~Apr~May~Jun~Jul~Aug~Sep~Oct~Nov~Dec", "~")
  84.                             for i = 1 to 12
  85.                         %>
  86.                             <option value="<%=i%>" <%if i=datepart("m", date) then%>selected<%end if%>> <%=months(i)%>
  87.                         <%
  88.                             next
  89.                         %>
  90.                         </select>
  91.                         <select name="fromyyyy">
  92.                             <option value="<%=datepart("yyyy", date)%>" selected> <%=datepart("yyyy", date)%>
  93.                             <option value="<%=datepart("yyyy", date)+1%>"> <%=datepart("yyyy", date)+1%>
  94.                             <option value="<%=datepart("yyyy", date)+2%>"> <%=datepart("yyyy", date)+2%>
  95.                             <option value="<%=datepart("yyyy", date)+3%>"> <%=datepart("yyyy", date)+3%>
  96.                             
  97.                         </select>
  98.                     
  99.                      </td>
  100.                 </tr>
  101.                 <tr bgcolor="#ffffff">
  102.                     <td> <font face="verdana" size=2> TO  </font> </td>
  103.                     <td> 
  104.                     
  105.                         <select name="todd">
  106.                         <%
  107.                             for i = 1 to 31
  108.                         %>
  109.                             <option value="<%=i%>" <%if i=datepart("d", date) then%>selected<%end if%>> <%=i%>
  110.                         <%
  111.                             next
  112.                         %>
  113.                         </select>
  114.                         <select name="tomm">
  115.                         <%
  116.                             months=split("Mon~Jan~Feb~Mar~Apr~May~Jun~Jul~Aug~Sep~Oct~Nov~Dec", "~")
  117.                             for i = 1 to 12
  118.                         %>
  119.                             <option value="<%=i%>" <%if i=datepart("m", date) then%>selected<%end if%>> <%=months(i)%>
  120.                         <%
  121.                             next
  122.                         %>
  123.                         </select>
  124.                         <select name="toyyyy">
  125.                             <option value="<%=datepart("yyyy", date)%>" selected> <%=datepart("yyyy", date)%>
  126.                             <option value="<%=datepart("yyyy", date)+1%>"> <%=datepart("yyyy", date)+1%>
  127.                             <option value="<%=datepart("yyyy", date)+2%>"> <%=datepart("yyyy", date)+2%>
  128.                             <option value="<%=datepart("yyyy", date)+3%>"> <%=datepart("yyyy", date)+3%>
  129.                             
  130.                         </select>
  131.                      </td>
  132.                 </tr>
  133.                 <tr bgcolor="#ffffff">
  134.                     <td> <font face="verdana" size=2> TotalAmount RS.</font> </td>
  135.                     <td> <input type=text name="tamount" size="15" maxlength=6> </td>
  136.                 </tr>
  137.                 <tr bgcolor="#ffffff"><td><input type=button onclick="javascript:check()" value=" Reserve " id=button1 name=button1></td><td></td></tr>
  138.                 </table>
  139.             </table>
  140.                         </form>
  141.         </center>
  142.         </body>
  143. </html>
  144. <%
  145.     else
  146.         
  147.         name = replace(trim(request.form("name")), "'", "''")
  148.         hid = replace(trim(request.form("hid")), "'", "''")
  149.         fromdate = replace(trim(request.form("fromdd")), "'", "''")+"/"+replace(trim(request.form("frommm")), "'", "''")+"/"+replace(trim(request.form("fromyyyy")), "'", "''")
  150.         todate = replace(trim(request.form("todd")), "'", "''")+"/"+replace(trim(request.form("tomm")), "'", "''")+"/"+replace(trim(request.form("toyyyy")), "'", "''")
  151.         tamount = replace(trim(request.form("tamount")), "'", "''")
  152.         sql1 = "insert into AccBookingHoard(accid,Hoardid,Reservedfrom, Reservedto,TotalAmount)values(" & name & "," & hid & ", '" & fromdate & "', '" & todate + "', " & tamount&")"
  153.         Response.Write sql1
  154.         con.execute sql1
  155.         sql1="update hoardingmaster set HoardingStatus=0"
  156.         con.execute sql1
  157.         response.redirect "AdsAdminAccBookingHoard.asp"
  158.     end if
  159. %>
  160. <!-- #include file="../AdsCloseConn.asp" -->