home *** CD-ROM | disk | FTP | other *** search
/ 202.53.64.216 / 202.53.64.216.tar / 202.53.64.216 / janahitha / Admin / AdsAdminViewBookings.asp < prev    next >
Text File  |  2004-11-26  |  16KB  |  429 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. %>
  9. <html>
  10.     <head>
  11.         <title> <%=SiteName%> - Welcome </title>
  12.         <meta name="author" content="Jagadish">
  13.         <script language="javascript" src="../func.js"> </script>
  14.         <script language="javascript"> 
  15.             function check()
  16.             {
  17.                 validateform = document.searchbookingform;
  18.                 if((validateform.criteria(1).checked)&&(isempty(validateform.clientloginid)))
  19.                     validateform.clientloginid.focus();
  20.                 else
  21.                 if((validateform.criteria(2).checked)&&(!(isnum(validateform.hoardingid))))
  22.                     validateform.hoardingid.focus();
  23.                 else
  24.                     validateform.submit();
  25.             }
  26.         </script>
  27.     </head>
  28.     <body bottommargin=0 topmargin=0 leftmargin=0 rightmargin=0 marginheight=0 marginwidth=0 bgcolor=#ffffff>
  29.         <table cellpadding=0 cellspacing=0 border=0 width=780 height=450>
  30.         <tr height=1>
  31.             <td width="180" bgcolor="<%=LeftColor%>"><font face=verdana size=1> </font></td>
  32.             <td width="210" bgcolor="<%=LeftColor%>"><font face=verdana size=1> </font></td>
  33.             <td width="210" bgcolor="<%=RightColor%>"><font face=verdana size=1> </font></td>
  34.             <td width="180" bgcolor="<%=RightColor%>"><font face=verdana size=1> </font></td>
  35.         </tr>
  36.         <tr>
  37.             <td bgcolor="<%=LeftColor%>" colspan=2 valign=top > <font face="courier new" size=6 color="<%=SiteNameColor%>"> <b>   <%=SiteName%> </b> </font> </td>
  38.             <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>
  39.         </tr>
  40.         <tr>
  41.             <td bgcolor="<%=LeftColor%>">   </td>
  42.             <td colspan=2 align=center height=100 bgcolor="<%=OuterTblBGColor%>">
  43.                 <br>
  44.                 <form name="searchbookingform" method=post action="<%=Request.ServerVariables("script_name")%>">
  45.                 <table cellpadding=0 cellspacing=0 border=0>
  46.                 <tr> <td bgcolor="<%=TblBorderColor%>">
  47.                 <table width="330" border=0 cellpadding=3 cellspacing=1>
  48.                 <tr bgcolor="<%=TblHeadBGColor%>">
  49.                     <th colspan=2>
  50.                         <font face=verdana color="<%=TblHeadFGColor%>"> View Bookings </font>
  51.                     </th>
  52.                 </tr>
  53.                 <tr bgcolor="<%=TblBGColor%>">
  54.                     <td colspan=2>
  55.                         <font face=verdana size=2 color="<%=TblFGColor%>"> 
  56.                         <input type="radio" name="criteria" value="all" checked> All The Bookings
  57.                         </font>
  58.                     </td>
  59.                 </tr>
  60.                 <tr bgcolor="<%=TblBGColor%>">
  61.                     <td width="50%">
  62.                         <font face=verdana size=2 color="<%=TblFGColor%>"> <input type="radio" name="criteria" value="client"> Client Login Id </font>
  63.                     </td>
  64.                     <td width="50%">
  65.                         <input type=text name="clientloginid" size=10>
  66.                     </td>
  67.                 </tr>
  68.                 <tr bgcolor="<%=TblBGColor%>">
  69.                     <td>
  70.                         <font face=verdana size=2 color="<%=TblFGColor%>"> <input type="radio" name="criteria" value="hoarding"> Hoarding Id </font>
  71.                     </td>
  72.                     <td>
  73.                         <input type=text name="hoardingid" size=10>
  74.                     </td>
  75.                 </tr>
  76.                 <tr bgcolor="<%=TblBGColor%>">
  77.                     <td> 
  78.                         <font face="verdana" size=2 color="<%=TblFGColor%>">       From Date </font> 
  79.                     </td>
  80.                     <td>
  81.                         <select name="fromdd">
  82.                         <%
  83.                             for i = 1 to 31
  84.                         %>
  85.                             <option value="<%=i%>" <%if i=datepart("d", dateadd("d", -7, date)) then%>selected<%end if%>> <%=i%>
  86.                         <%
  87.                             next
  88.                         %>
  89.                         </select>
  90.                         <select name="frommm">
  91.                         <%
  92.                             months=split("Mon~Jan~Feb~Mar~Apr~May~Jun~Jul~Aug~Sep~Oct~Nov~Dec", "~")
  93.                             for i = 1 to 12
  94.                         %>
  95.                             <option value="<%=i%>" <%if i=datepart("m", dateadd("d", -7, date)) then%>selected<%end if%>> <%=months(i)%>
  96.                         <%
  97.                             next
  98.                         %>
  99.                         </select>
  100.                         <select name="fromyyyy">
  101.                         <%
  102.                             for i = 2002 to datepart("yyyy", date)+1
  103.                         %>
  104.                             <option value="<%=i%>" <%if i=datepart("yyyy", dateadd("d", -7, date)) then%>selected<%end if%>> <%=i%>
  105.                         <%
  106.                             next
  107.                         %>
  108.                         </select>
  109.                     </td>
  110.                 </tr>
  111.                 <tr bgcolor="<%=TblBGColor%>">
  112.                     <td> 
  113.                         <font face="verdana" size=2 color="<%=TblFGColor%>">       To Date </font> 
  114.                     </td>
  115.                     <td> 
  116.                         <select name="todd">
  117.                         <%
  118.                             for i = 1 to 31
  119.                         %>
  120.                             <option value="<%=i%>" <%if i=datepart("d", date) then%>selected<%end if%>> <%=i%>
  121.                         <%
  122.                             next
  123.                         %>
  124.                         </select>
  125.                         <select name="tomm">
  126.                         <%
  127.                             months=split("Mon~Jan~Feb~Mar~Apr~May~Jun~Jul~Aug~Sep~Oct~Nov~Dec", "~")
  128.                             for i = 1 to 12
  129.                         %>
  130.                             <option value="<%=i%>" <%if i=datepart("m", date) then%>selected<%end if%>> <%=months(i)%>
  131.                         <%
  132.                             next
  133.                         %>
  134.                         </select>
  135.                         <select name="toyyyy">
  136.                         <%
  137.                             for i = 2002 to datepart("yyyy", date)+1
  138.                         %>
  139.                             <option value="<%=i%>" <%if i=datepart("yyyy", date) then%>selected<%end if%>> <%=i%>
  140.                         <%
  141.                             next
  142.                         %>
  143.                         </select>
  144.                     </td>
  145.                 </tr>
  146.                 <tr bgcolor="<%=TblHeadBGColor%>">
  147.                     <th colspan=2>
  148.                         <input type=button value=" Show Results " onclick="javascript:check();">
  149.                     </th>
  150.                 </tr>
  151.                 </table>
  152.                 </td> </tr>
  153.                 </table>
  154.                 </form>
  155.             </td>
  156.             <td bgcolor="<%=RightColor%>">   </td>
  157.         </tr>
  158.         <tr>
  159.             <td colspan=2 bgcolor="<%=LeftColor%>">   </td>
  160.             <td colspan=2 bgcolor="<%=RightColor%>">   </td>
  161.         </tr>
  162.         </table>
  163.     </body>
  164. </html>
  165. <%
  166.     else
  167.         if Request.Form("criteria")<>"" then
  168.             criteria = Request.Form("criteria")
  169.             fromdate = Request.Form("frommm") + "/" + Request.Form("fromdd") + "/" + Request.Form("fromyyyy")
  170.             todate = Request.Form("tomm") + "/" + Request.Form("todd") + "/" + Request.Form("toyyyy")
  171.             msg = ""
  172.             if (not isdate(fromdate)) or (not isdate(todate)) then msg = "Invalid Dates Entered"
  173.             if msg="" then
  174.                 sql = "select a.RegId, a.HoardingId, b.ClientLoginId, a.RegDate, a.FromDate, a.ToDate, a.Status from Bookingsmaster a, ClientMaster b where a.ClientId=b.ClientId and a.RegDate between #" + fromdate + "# and #" + todate + "#"
  175.                 if criteria="client" then sql = sql + " and b.ClientLoginId='" + replace(trim(Request.Form("clientid")), "'", "''") + "'"
  176.                 if criteria="hoarding" then sql = sql + " and a.HoardingId=" + Request.Form("hoardingid")
  177.                 sql = sql + " order by a.RegDate"
  178.                 set rs = server.CreateObject("adodb.recordset")
  179.                 rs.open sql, con, 3, 3
  180.                 if rs.RecordCount=0 then msg = "No Records Found"
  181.                 rs.Close 
  182.             end if
  183.             if msg<>"" then
  184. %>
  185. <html>
  186.     <head>
  187.         <title> <%=SiteName%> - Welcome </title>
  188.         <meta name="author" content="Jagadish">
  189.     </head>
  190.     <body bottommargin=0 topmargin=0 leftmargin=0 rightmargin=0 marginheight=0 marginwidth=0 bgcolor=#ffffff>
  191.         <table cellpadding=0 cellspacing=0 border=0 width=780 height=450>
  192.         <tr height=1>
  193.             <td width="100" bgcolor="<%=LeftColor%>"><font face=verdana size=1> </font></td>
  194.             <td width="290" bgcolor="<%=LeftColor%>"><font face=verdana size=1> </font></td>
  195.             <td width="290" bgcolor="<%=RightColor%>"><font face=verdana size=1> </font></td>
  196.             <td width="100" bgcolor="<%=RightColor%>"><font face=verdana size=1> </font></td>
  197.         </tr>
  198.         <tr>
  199.             <td bgcolor="<%=LeftColor%>" colspan=2 valign=top > <font face="courier new" size=6 color="<%=SiteNameColor%>"> <b>   <%=SiteName%> </b> </font> </td>
  200.             <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>
  201.         </tr>
  202.         <tr>
  203.             <td bgcolor="<%=LeftColor%>">   </td>
  204.             <td colspan=2 align=center height=200 bgcolor="<%=OuterTblBGColor%>">
  205.                 <table cellpadding=2 cellspacing=0 border=0>
  206.                 <tr> <td bgcolor="<%=OuterTblBorderColor%>">
  207.                 <table width="576" bgcolor=<%=OuterTblBGColor%> height=200 border=0 cellpadding=0 cellspacing=0>
  208.                 <tr>
  209.                     <th>
  210.                         <br>
  211.                         <font face=verdana size=2 color="<%=ErrMsgColor%>">
  212.                             <%=msg%> <br> <br>
  213.                             <a href="javascript:history.back();"><font color="<%=ErrMsgColor%>">Back</font></a>
  214.                         </font>
  215.                     </th>
  216.                 </tr>
  217.                 </table>
  218.                 </td> </tr>
  219.                 </table>
  220.             </td>
  221.             <td bgcolor="<%=RightColor%>">   </td>
  222.         </tr>
  223.         <tr>
  224.             <td colspan=2 bgcolor="<%=LeftColor%>">   </td>
  225.             <td colspan=2 bgcolor="<%=RightColor%>">   </td>
  226.         </tr>
  227.         </table>
  228.     </body>
  229. </html>
  230. <%            
  231.                 Response.End 
  232.             end if
  233. %>
  234. <html>
  235.     <head>
  236.         <title> <%=SiteName%> - Welcome </title>
  237.         <meta name="author" content="Jagadish">
  238.     </head>
  239.     <body bottommargin=0 topmargin=0 leftmargin=0 rightmargin=0 marginheight=0 marginwidth=0 bgcolor=#ffffff>
  240.         <table cellpadding=0 cellspacing=0 border=0 width=780 height=450>
  241.         <tr height=1>
  242.             <td width="50" bgcolor="<%=LeftColor%>"><font face=verdana size=1> </font></td>
  243.             <td width="340" bgcolor="<%=LeftColor%>"><font face=verdana size=1> </font></td>
  244.             <td width="340" bgcolor="<%=RightColor%>"><font face=verdana size=1> </font></td>
  245.             <td width="50" bgcolor="<%=RightColor%>"><font face=verdana size=1> </font></td>
  246.         </tr>
  247.         <tr>
  248.             <td bgcolor="<%=LeftColor%>" colspan=2 valign=top > <font face="courier new" size=6 color="<%=SiteNameColor%>"> <b>   <%=SiteName%> </b> </font> </td>
  249.             <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>
  250.         </tr>
  251.         <tr>
  252.             <td bgcolor="<%=LeftColor%>">   </td>
  253.             <td colspan=2 align=center height=200 bgcolor="<%=OuterTblBGColor%>">
  254.                 <br>
  255.                 <form name="viewbookingform" method=post action="<%=Request.ServerVariables("script_name")%>">
  256.                 <table cellpadding=0 cellspacing=0 border=0>
  257.                 <tr> <td bgcolor="<%=TblBordercolor%>">
  258.                 <table width="600" border=0 cellpadding=3 cellspacing=1>
  259.                 <tr bgcolor="<%=TblHeadBGColor%>">
  260.                     <th>
  261.                         <font face=verdana size=2 color="<%=TblHeadFGColor%>"> SNo </font>
  262.                     </th>
  263.                     <th>
  264.                         <font face=verdana size=2 color="<%=TblHeadFGColor%>"> Client Name </font>
  265.                     </th>
  266.                     <th>
  267.                         <font face=verdana size=2 color="<%=TblHeadFGColor%>"> HoardId </font>
  268.                     </th>
  269.                     
  270.                     <th>
  271.                         <font face=verdana size=2 color="<%=TblHeadFGColor%>"> Reg Date </font>
  272.                     </th>
  273.                     <th>
  274.                         <font face=verdana size=2 color="<%=TblHeadFGColor%>"> From Date </font>
  275.                     </th>
  276.                     <th>
  277.                         <font face=verdana size=2 color="<%=TblHeadFGColor%>"> To Date </font>
  278.                     </th>
  279.                     <th>
  280.                         <font face=verdana size=2 color="<%=TblHeadFGColor%>"> Status </font>
  281.                     </th>
  282.                     <th>
  283.                         <font face=verdana size=2 color="<%=TblHeadFGColor%>"> Delete </font>
  284.                     </th>
  285.                 </tr>
  286. <%            
  287.             rs.Open sql, con, 3, 3
  288.             sno = 0
  289.             while not rs.EOF
  290.                 sno = sno + 1
  291. %>
  292.                 <tr bgcolor="<%=TblBGColor%>">
  293.                     <td align=right>
  294.                         <font face=verdana size=2 color="<%=TblFGColor%>"> <%=sno%> </font>
  295.                         <input type=hidden name="ids" value="<%=rs("RegId")%>">
  296.                     </td>
  297.                     <td>
  298.                         <font face=verdana size=2 color="<%=TblFGColor%>"> <%=rs("ClientLoginId")%> </font>
  299.                     </td>
  300.                     <td>
  301.                         <font face=verdana size=2 color="<%=TblFGColor%>">
  302.                         <a href="AdsAdminHoardingDetails.asp?HId=<%=rs("HoardingId")%>" target="_new"> <%=rs("HoardingId")%> </font></a>
  303.                     </td>
  304.                     
  305.                     <td>
  306.                         <font face=verdana size=2 color="<%=TblFGColor%>"> <%=rs("RegDate")%> </font>
  307.                     </td>
  308.                     <td>
  309.                         <font face=verdana size=2 color="<%=TblFGColor%>"> <%=rs("FromDate")%> </font>
  310.                     </td>
  311.                     <td>
  312.                         <font face=verdana size=2 color="<%=TblFGColor%>"> <%=rs("ToDate")%> </font>
  313.                     </td>
  314.                     <td align=center>
  315.                         <select name="status<%=rs("RegId")%>">
  316.                         <option value="N" <%if rs("Status")="N" then%>selected<%end if%>> Not Confirmed
  317.                         <option value="C" <%if rs("Status")="C" then%>selected<%end if%>> Confirmed
  318.                         <option value="D" <%if rs("Status")="D" then%>selected<%end if%>> Declined
  319.                         </select>
  320.                     </td>
  321.                     <td align=center>
  322.                         <input type=checkbox name="delete<%=rs("RegId")%>">
  323.                     </td>
  324.                 </tr>
  325. <%                
  326.                 rs.MoveNext 
  327.             wend
  328.             rs.Close  
  329.             set rs = nothing
  330. %>
  331.                 <tr bgcolor="<%=TblHeadBGColor%>">
  332.                     <th colspan=7>
  333.                         <input type=submit value=" Update ">
  334.                     </th>
  335.                 </tr>
  336.                 </table>
  337.                 </td> </tr>
  338.                 </table>
  339.                 </form>
  340.             </td>
  341.             <td bgcolor="<%=RightColor%>">   </td>
  342.         </tr>
  343.         <tr>
  344.             <td colspan=2 bgcolor="<%=LeftColor%>">   </td>
  345.             <td colspan=2 bgcolor="<%=RightColor%>">   </td>
  346.         </tr>
  347.         </table>
  348.     </body>
  349. </html>
  350. <%            
  351.         else
  352.             ids = split(Request.Form("ids"), ", ")
  353.             for i = 0 to ubound(ids)
  354.                 if Request.Form("delete" + ids(i))="on" then
  355.                     sql = "delete from BookingsMaster where RegId=" + ids(i)
  356.                 else
  357.                     sql = "update BookingsMaster set Status='" + Request.form("status" + ids(i)) + "' where RegId=" + ids(i)
  358.                     'Response.Write "mmm"+Request.form("status" + ids(i))
  359.                     if Request.form("status" + ids(i))="C" then
  360.                     sql1="select HoardingId from BookingsMaster where RegId=" + ids(i)
  361.                     'Response.Write sql1
  362.                     set rs = server.CreateObject("adodb.recordset")
  363.                     rs.Open sql1,con
  364.                     if not rs.EOF  then
  365.                     x=rs("hoardingid")
  366.                     
  367.                     'Response.Write "update hoardingmaster set hoardingstatus =1 where hoardingid="&x
  368.                     '**************
  369.                     sql1="update hoardingmaster set hoardingstatus =0 where hoardingid="&x
  370.                     Response.Write "x="&sql1
  371.                     
  372.                     con.execute sql1
  373.                     end if
  374.                     end if
  375.                 end if
  376.                 'Response.Write sql
  377.                 con.execute sql
  378.             next
  379. %>
  380. <html>
  381.     <head>
  382.         <title> <%=SiteName%> - Welcome </title>
  383.         <meta name="author" content="Jagadish">
  384.     </head>
  385.     <body bottommargin=0 topmargin=0 leftmargin=0 rightmargin=0 marginheight=0 marginwidth=0 bgcolor=#ffffff>
  386.         <table cellpadding=0 cellspacing=0 border=0 width=780 height=450>
  387.         <tr height=1>
  388.             <td width="100" bgcolor="<%=LeftColor%>"><font face=verdana size=1> </font></td>
  389.             <td width="290" bgcolor="<%=LeftColor%>"><font face=verdana size=1> </font></td>
  390.             <td width="290" bgcolor="<%=RightColor%>"><font face=verdana size=1> </font></td>
  391.             <td width="100" bgcolor="<%=RightColor%>"><font face=verdana size=1> </font></td>
  392.         </tr>
  393.         <tr>
  394.             <td bgcolor="<%=LeftColor%>" colspan=2 valign=top > <font face="courier new" size=6 color="<%=SiteNameColor%>"> <b>   <%=SiteName%> </b> </font> </td>
  395.             <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>
  396.         </tr>
  397.         <tr>
  398.             <td bgcolor="<%=LeftColor%>">   </td>
  399.             <td colspan=2 align=center height=100 bgcolor="<%=OuterTblBGColor%>">
  400.                 <table cellpadding=2 cellspacing=0 border=0>
  401.                 <tr> <td bgcolor="<%=OuterTblBorderColor%>">
  402.                 <table width="576" bgcolor="<%=OuterTblBGColor%>" height=100 border=0 cellpadding=0 cellspacing=0>
  403.                 <tr>
  404.                     <th>
  405.                         <br>
  406.                         <font face=verdana size=2 color="<%=MsgColor%>">
  407.                             Bookings Updated Successfully <br> <br>
  408.                             <a href="<%=Request.ServerVariables("script_name")%>"><font color="<%=MsgColor%>">Back</font></a>
  409.                         </font>
  410.                     </th>
  411.                 </tr>
  412.                 </table>
  413.                 </td> </tr>
  414.                 </table>
  415.             </td>
  416.             <td bgcolor="<%=RightColor%>">   </td>
  417.         </tr>
  418.         <tr>
  419.             <td colspan=2 bgcolor="<%=LeftColor%>">   </td>
  420.             <td colspan=2 bgcolor="<%=RightColor%>">   </td>
  421.         </tr>
  422.         </table>
  423.     </body>
  424. </html>
  425. <%            
  426.         end if
  427.     end if
  428. %>
  429. <!-- #include file="../AdsCloseConn.asp" -->