home *** CD-ROM | disk | FTP | other *** search
/ 202.53.64.216 / 202.53.64.216.tar / 202.53.64.216 / janahitha / AdsHoardingsList.asp < prev    next >
Text File  |  2004-11-26  |  19KB  |  510 lines
  1.  
  2.  
  3. <!-- #include file="AdsOpenConn.asp" -->
  4. <%
  5.  
  6.     if not session("clientid")="" then
  7.     set rs1=server.CreateObject("ADODB.Recordset")
  8.     rs1.CursorLocation=3
  9.     rs1.Open "select clientname from clientmaster where clientid=" & session("clientid"),con,3,3
  10.     LoginName=rs1(0)
  11.     rs1.Close
  12.     set rs1=nothing
  13.     end if
  14.  
  15.     TblHeadBGColor = "#f2D197"
  16.     TblHeadFGColor = "#000000"
  17.     TblBGColor = "#ffffff"
  18.     TblFGColor = "#000000"
  19.       
  20.     if request.form.count = 0 then
  21.     
  22.         pagesize = 15
  23.  
  24.         listtype = Request.QueryString("list")
  25.  
  26.         zoneid = Request.QueryString("zone")
  27.         Hoardingtypeid = Request.QueryString("htypeid")
  28.         stat = Request.QueryString("stat")
  29.         hoardingmaterial = Request.QueryString("hmat")
  30.         'hoardingarea = Request.QueryString("hare")
  31.         hoardingsize = Request.QueryString("hsize")
  32.         if Request.QueryString("pno")<>"" then
  33.             pno = cint(Request.QueryString("pno"))
  34.         else
  35.             pno = 1
  36.         end if
  37.         if pno<1 then pno = 1
  38.         'if hoardingsize<>"" then heightwidth = split(hoardingsize, "~")
  39.  
  40.         'sql = "select a.HoardingId, a.Location, a.Direction, a.HoardingStatus, " & _
  41.         '" b.HoardingTypeName, c.ZoneName from HoardingMaster a, HoardingTypeMaster b, " & _
  42.         '" ZoneMaster c where a.HoardingTypeId=b.HoardingTypeId and a.ZoneId=c.ZoneId " & _
  43.         '" and a.Status=1"
  44.         
  45.         'To get the status from the button clicked on the menu
  46.         if stat="free" then    'Modified Code
  47.             st="Yes"    'Modified Code
  48.         else
  49.         if stat="occ" then                'Modified Code
  50.             st="NO"            'Modified Code
  51.         else     
  52.             st=""
  53.             end if
  54.         end if                'Modified Code
  55.         if st<>"" then
  56.         sql="select a.HoardingId, a.Location, a.Direction, a.NearByAreas, a.demography, a.traffic,a.HoardingStatus,a.bookingfromdate,a.todate, " & _
  57.         " b.HoardingTypeName, c.ZoneName from HoardingMaster a, HoardingTypeMaster b, " & _
  58.         " ZoneMaster c where a.HoardingTypeId=b.HoardingTypeId and a.ZoneId=c.ZoneId " & _
  59.         " and a.HoardingStatus=" & st & " and a.Status=Yes"
  60.         else
  61.         sql="select a.HoardingId, a.Location, a.Direction, a.NearByAreas, a.demography, a.traffic,a.HoardingStatus,a.bookingfromdate,a.todate,  " & _
  62.         " b.HoardingTypeName, c.ZoneName from HoardingMaster a, HoardingTypeMaster b, " & _
  63.         " ZoneMaster c where a.HoardingTypeId=b.HoardingTypeId and a.ZoneId=c.ZoneId " & _
  64.         " and a.Status=Yes"
  65.         end if
  66.         'sql="select a.HoardingId, a.Location, a.Direction, a.NearByAreas, a.demography, a.traffic,a.HoardingStatus, " & _
  67.         '" b.HoardingTypeName, c.ZoneName from HoardingMaster a, HoardingTypeMaster b, " & _
  68.         '" ZoneMaster c  where a.HoardingTypeId=b.HoardingTypeId and a.ZoneId=c.ZoneId " & _
  69.         '" and a.status in(select status from hoardingmaster where hoardingstatus=yes)"        
  70.         
  71.         url = Request.ServerVariables("script_name") + "?stat="+stat
  72.         if listtype<>"" then url = url + "&list=" + listtype
  73.         if zoneid<>"" then 
  74.             sql = sql + " and a.ZoneId=" + zoneid
  75.             url = url + "&zone=" + zoneid
  76.         end if
  77.         if Hoardingtypeid<>"" then 
  78.             sql = sql + " and a.HoardingTypeId=" + Hoardingtypeid
  79.             url = url + "&htypeid=" + Hoardingtypeid
  80.         end if
  81. '        if stat="occ" then 
  82. '            'sql = sql + " and a.HoardingStatus=0"
  83. '            sql = sql + " and a.HoardingStatus=Yes"            
  84. '            url = url + "&stat=" + stat
  85. '        end if
  86. '        if stat="free" then 
  87. '            'sql = sql + " and a.HoardingStatus=1"
  88. '            sql = sql + " and a.HoardingStatus=Yes"
  89. '            url = url + "&stat=" + stat
  90. '        end if
  91. 'select a.HoardingId, a.Location, a.Direction, a.NearByAreas, a.demography, a.traffic,a.HoardingStatus, b.HoardingTypeName, c.ZoneName from HoardingMaster a, HoardingTypeMaster b, ZoneMaster c where a.HoardingTypeId=b.HoardingTypeId and a.ZoneId=c.ZoneId and a.Status=yes  and a.HoardingStatus=no 
  92.         if hoardingsize<>"" then 
  93.             sql = sql + " and b.Hoardingarea=" + hoardingsize
  94.             url = url + "&hsize=" + hoardingsize
  95.         end if
  96.         if hoardingmaterial<>"" then 
  97.             sql = sql + " and b.HoardingMaterial='" + hoardingmaterial + "'"
  98.             url = url + "&hmat=" + hoardingmaterial
  99.         end if
  100.         'Response.Write(sql)
  101.         set rs = server.createobject("adodb.recordset")
  102. 'Response.Write sql
  103.         rs.open sql, con, 3, 3
  104.         
  105.         'Response.End
  106.         flag = true
  107.         if rs.eof then flag = false
  108.         rs.close
  109.                 
  110.         if flag=false then
  111. %>
  112. <html>
  113.     <head>
  114.         <title> Janahitha Ads - Welcome </title>
  115.         <meta name="author" content="Jagadish,Gopi">
  116.         <meta name="author" content="Gopi Tanguturi">                
  117.     </head>
  118.     <body bottommargin=0 topmargin=0 leftmargin=0 rightmargin=0 marginheight=0 marginwidth=0 bgcolor="#f2D197">
  119.         <!-- #include file="AdsTop.asp" --> 
  120.         <center>
  121.         <table width=100% cellpadding=0 cellspacing=0 border=0 height=100%>
  122.         <tr>
  123.             <td width=150 align=center valign=top bgcolor="#FFFFFF">
  124.                 <!-- #include file="AdsLeft.asp" -->
  125.             </td>
  126.             <td width=630 align=center valign=top bgcolor="#ffffff">
  127.                 <br> <br>
  128.                 <font face=verdana size=2 color=red> <b> No Hoardings Available <br> <br> Go <a href="javascript:history.back();" style="color:red">Back</a> </b> </font>
  129.             </td>
  130.         </tr>
  131.         </table>
  132.         </center>
  133.         <!-- #include file="AdsBottom.asp" -->
  134.     </body>
  135. </html>
  136. <%
  137.             response.end
  138.         end if
  139. %>
  140. <html>
  141.     <head>
  142.         <title> Janahitha Ads - Welcome </title>
  143.     </head>
  144.     <body bottommargin=0 topmargin=0 leftmargin=0 rightmargin=0 marginheight=0 marginwidth=0 bgcolor="#f2D197">
  145.         <!-- #include file="AdsTop.asp" --> 
  146.         <center>
  147.         <table width=100% cellpadding=0 cellspacing=0 border=0 height=100%>
  148.         <tr>
  149.             <td width=150 align=center valign=top bgcolor="#FFFFFF">
  150.                 <!-- #include file="AdsLeft.asp" -->
  151.             </td>
  152.             <td width=630 align=center valign=top bgcolor="#ffffff">
  153. <%
  154.         if listtype = "ns" then
  155.             if zoneid<>"" then
  156.                 rs.open "select ZoneName from ZoneMaster where ZoneId=" + zoneid, con
  157.                 topheading = rs("ZoneName")
  158.                 tablecolheading = "Hoarding Type"
  159.                 rs.close
  160.             elseif Hoardingtypeid<>"" then
  161.                 rs.open "select HoardingTypeName from HoardingTypeMaster where HoardingTypeId=" + Hoardingtypeid, con
  162.                 topheading = rs("HoardingTypeName")
  163.                 tablecolheading = "Zone"
  164.                 rs.close
  165.             elseif stat<>"" then
  166.                 if stat="occ" then
  167.                     topheading = "Occupied Sites"
  168.                     
  169.                 else
  170.                     topheading = "Vacant Sites" 
  171.                 end if
  172.                 tablecolheading = "Hoarding Type"
  173.             end if
  174.         else
  175.             topheading = "Search Results"
  176.             tablecolheading = "Hoarding Type"
  177.         end if
  178.         rs.open sql, con
  179.         rs.PageSize = pagesize
  180.         if pno>rs.PageCount then pno = rs.PageCount 
  181.         rs.AbsolutePage = pno
  182. %>
  183.                  <b> <font face="verdana" color="#566336"> <%=topheading%> </font> </b> <br> <br>
  184.                 <font face=arial size=2 color=#846648> (<u>Select The Checkboxes for online booking</u>) </font>
  185.                 <table cellpadding=0 cellspacing=0 border=0 width=570>
  186.                 <tr>
  187.                     <td align=left>    <font face="ms sans serif" size="2" color="#566336"><%if not(LoginName="")then
  188.                     Response.Write (" Hello,  "&LoginName)
  189.                     end if%> </font> </td>
  190.                     <td align=right>
  191.                         <font face="ms sans serif" size=1 color="#626262">Page No</font>   
  192.                         <%
  193.                             for i = 1 to rs.PageCount
  194.                                 if i=pno then
  195.                         %>
  196.                         <font face="ms sans serif" size=1 color="#626262"><%=i%></font>  
  197.                         <%
  198.                                 else
  199.                         %>
  200.                         <a href="<%=url+"&pno="+cstr(i)%>"><font face="ms sans serif" size=1 color="blue"><%=i%></font></a>  
  201.                         <%
  202.                                 end if
  203.                             next
  204.                         %>
  205.                     </td>
  206.                 </tr>
  207.                 </table>
  208.                 <form name="" method=post action="<%=request.servervariables("script_name")%>">
  209.                 <table cellpadding=0 cellspacing=0 border=0>
  210.                 <tr><td bgcolor="#f2D197">
  211.                 <table cellpadding=2 cellspacing=1 border=0 width=610>
  212.                 <tr>
  213.                     <th bgcolor="<%=TblHeadBGColor%>"> <font face=verdana size=2 color="<%=TblHeadFGColor%>"> Check </font> </th>
  214.                     <th bgcolor="<%=TblHeadBGColor%>"> <font face=verdana size=2 color="<%=TblHeadFGColor%>"> SNo </font> </th>
  215.                     <!--<th bgcolor="<%=TblHeadBGColor%>"> <font face=verdana size=2 color="<%=TblHeadFGColor%>"> Id </font> </th>-->
  216.                     <th bgcolor="<%=TblHeadBGColor%>"> <font face=verdana size=2 color="<%=TblHeadFGColor%>"> <%=tablecolheading%> </font> </th>
  217.                     <th bgcolor="<%=TblHeadBGColor%>"> <font face=verdana size=2 color="<%=TblHeadFGColor%>"> Location </font> </th>
  218.                     <th bgcolor="<%=TblHeadBGColor%>"> <font face=verdana size=2 color="<%=TblHeadFGColor%>"> Visibility </font> </th>
  219.                     <th bgcolor="<%=TblHeadBGColor%>"> <font face=verdana size=2 color="<%=TblHeadFGColor%>"> Status </font> </th>
  220.                       <%if not(topheading = "Blank Hoardings") then%>
  221.                         <th bgcolor="<%=TblHeadBGColor%>"> <font face=verdana size=2 color="<%=TblHeadFGColor%>"> Booked From </font> </th>
  222.                         <th bgcolor="<%=TblHeadBGColor%>"> <font face=verdana size=2 color="<%=TblHeadFGColor%>"> To </font> </th>
  223.                       <%end if%>
  224.  
  225.                 </tr>
  226. <%
  227.         sno = 0
  228.         'Response.Write "st="&st
  229.         while not rs.eof and sno<pagesize
  230.             sno = sno + 1
  231.             Hoardingid = rs("HoardingId")
  232.             Hoardingtypename = rs("HoardingTypeName")
  233.             zonename = rs("ZoneName")
  234.             status=rs("HoardingStatus")
  235.             
  236.             if listtype="ns" then
  237.                 if zoneid<>"" or stat<>"" then 
  238.                     tablecolvalue = Hoardingtypename
  239.                 elseif Hoardingtypeid<>"" then
  240.                     tablecolvalue = zonename
  241.                 end if
  242.             else
  243.                 tablecolvalue = Hoardingtypename
  244.             end if
  245.             Hoardinglocation = rs("Location")
  246.             direction = rs("Direction")
  247.             fdate=rs("bookingfromdate")
  248.             tdate=rs("todate")
  249.             'Modified Code to indicate the status of the hoardings
  250.             if status=0 then
  251.                 status = "Occupied" 
  252.             else
  253.                 status ="Available"
  254.             end if
  255.  
  256. %>
  257.                 <tr>
  258.                     <td bgcolor="<%=TblBGColor%>" align=center> <input type=checkbox name="chk<%=Hoardingid%>"> <input type=hidden name="Hoardingids" value="<%=Hoardingid%>"> </td>
  259.                     <!--<td bgcolor="<%=TblBGColor%>" align=right> <font face="ms sans serif" size=2 color="<%=TblFGColor%>"> <%=sno%>  </font> </td>-->
  260.                     <td bgcolor="<%=TblBGColor%>"> <font face="ms sans serif" size=2 color="<%=TblFGColor%>"><%=Hoardingid%></font></a> </td>
  261.                     <td bgcolor="<%=TblBGColor%>"> <a href="showboard.asp?HId=<%=Hoardingid%>"><font face="ms sans serif" size=2 color="<%=TblFGColor%>"> <%=tablecolvalue%> </font> </td>
  262.                     <td bgcolor="<%=TblBGColor%>"> <font face="ms sans serif" size=2 color="<%=TblFGColor%>"> <%=Hoardinglocation%> </font> </td>
  263.                     <td bgcolor="<%=TblBGColor%>"> <font face="ms sans serif" size=2 color="<%=TblFGColor%>"> <%=direction%> </font> </td>
  264.                     <td bgcolor="<%=TblBGColor%>"> <font face="ms sans serif" size=2 color="<%=TblFGColor%>"> <%=status%> </font> </td>
  265.                     <%if(status = "Occupied") then %>
  266.                         <td bgcolor="<%=TblBGColor%>"> <font face="ms sans serif" size=2 color="<%=TblFGColor%>"> <%=fdate%> </font> </td>
  267.                         <td bgcolor="<%=TblBGColor%>"> <font face="ms sans serif" size=2 color="<%=TblFGColor%>"> <%=tdate%> </font> </td>
  268.  
  269.                     <%else%>
  270.                     <td bgcolor="<%=TblBGColor%>"></td>
  271.                     <td bgcolor="<%=TblBGColor%>"></td>
  272.                     <%end if%>
  273.                     
  274.                     
  275.                 </tr>
  276. <%
  277.             rs.movenext
  278.         wend
  279. %>
  280.                 </table>
  281.                 </td> </tr>
  282.                 </table>
  283.                 <br>
  284.                 <input type=hidden name="loginprevurl" value="<%=url%>"> 
  285.                 <input type=submit value=" Apply Now ">
  286.                 </form>
  287.                 <br>
  288.             </td>
  289.         </tr>
  290.         </table>
  291.         </center>
  292.         <!-- #include file="AdsBottom.asp" -->
  293.     </body>
  294. </html>
  295. <%
  296.         rs.close
  297.         set rs = nothing
  298.     else
  299.         if Request.Form("fromdd")="" then
  300.             if session("ClientLoginId")="" then 
  301.                 session("LoginPrevURL") = request.form("loginprevurl")
  302.                 response.redirect "AdsLogin.asp"
  303.             end if
  304.             Hoardingids = split(request.form("Hoardingids"),", ")
  305.             selectedids = ""
  306.             for i = 0 to ubound(Hoardingids)
  307.                 if request.form("chk" + Hoardingids(i)) ="on" then 
  308.                     if selectedids<>"" then selectedids = selectedids + ","
  309.                     selectedids = selectedids + Hoardingids(i)
  310.                 end if
  311.             next
  312.             if selectedids="" then
  313. %>
  314. <html>
  315.     <head>
  316.         <title> Janahitha Ads - Welcome </title>
  317.     </head>
  318.     <body bottommargin=0 topmargin=0 leftmargin=0 rightmargin=0 marginheight=0 marginwidth=0 bgcolor="#f2D197">
  319.         <!-- #include file="AdsTop.asp" --> 
  320.         <center>
  321.         <table width=100% cellpadding=0 cellspacing=0 border=0 height=100%>
  322.         <tr>
  323.             <td width=150 align=center valign=top bgcolor="#FFFFFF">
  324.                 <!-- #include file="AdsLeft.asp" -->
  325.             </td>
  326.             <td width=630 align=center valign=top bgcolor="#ffffff">
  327.                 <br> <br>
  328.                 <font face=verdana size=2 color=red> <b> No Hoardings Selected <br> <br> Go <a href="javascript:history.back();" style="color:red">Back</a> </b> </font>
  329.             </td>
  330.         </tr>
  331.         </table>
  332.         </center>
  333.         <!-- #include file="AdsBottom.asp" -->
  334.     </body>
  335. </html>
  336. <%
  337.                 Response.End 
  338.             end if
  339. %>
  340. <html>
  341.     <head>
  342.         <title> Janahitha Ads - Welcome </title>
  343.     </head>
  344.     <body bottommargin=0 topmargin=0 leftmargin=0 rightmargin=0 marginheight=0 marginwidth=0 bgcolor="#f2D197">
  345.         <!-- #include file="AdsTop.asp" --> 
  346.         <center>
  347.         <table width=100% cellpadding=0 cellspacing=0 border=0 height=100%>
  348.         <tr>
  349.             <td width=150 align=center valign=top bgcolor="#FFFFFF">
  350.                 <!-- #include file="AdsLeft.asp" -->
  351.             </td>
  352.             <td width=630 align=center valign=top bgcolor="#ffffff">
  353.                 <br> <br>
  354.                 <font face=verdana color="#566336"> <b> Give The Dates </b> </font> <br> <br>
  355.                 <form name="" method=post action="<%=Request.ServerVariables("script_name")%>">
  356.                 <input type=hidden name="selectedids" value="<%=selectedids%>">
  357.                 <table cellpadding=0 cellspacing=0 border=0>
  358.                 <tr> <td bgcolor="#47AF59">
  359.                 <table cellspacing=1 cellpadding=5 border=0>
  360.                 <tr bgcolor="#ffffff">
  361.                     <td> 
  362.                         <font face="verdana" size=2> From Date </font> 
  363.                     </td>
  364.                     <td>
  365.                         <select name="fromdd">
  366.                         <%
  367.                             for i = 1 to 31
  368.                         %>
  369.                             <option value="<%=i%>" <%if i=datepart("d", date) then%>selected<%end if%>> <%=i%>
  370.                         <%
  371.                             next
  372.                         %>
  373.                         </select>
  374.                         <select name="frommm">
  375.                         <%
  376.                             months=split("Mon~Jan~Feb~Mar~Apr~May~Jun~Jul~Aug~Sep~Oct~Nov~Dec", "~")
  377.                             for i = 1 to 12
  378.                         %>
  379.                             <option value="<%=i%>" <%if i=datepart("m", date) then%>selected<%end if%>> <%=months(i)%>
  380.                         <%
  381.                             next
  382.                         %>
  383.                         </select>
  384.                         <select name="fromyyyy">
  385.                             <option value="<%=datepart("yyyy", date)%>" selected> <%=datepart("yyyy", date)%>
  386.                             <option value="<%=datepart("yyyy", date)+1%>"> <%=datepart("yyyy", date)+1%>
  387.                             
  388.                         </select>
  389.                     </td>
  390.                 </tr>
  391.                 <tr bgcolor="#ffffff">
  392.                     <td> 
  393.                         <font face="verdana" size=2> To Date </font> 
  394.                     </td>
  395.                     <td> 
  396.                         <select name="todd">
  397.                         <%
  398.                             for i = 1 to 31
  399.                         %>
  400.                             <option value="<%=i%>" <%if i=datepart("d", dateadd("d", 7, date)) then%>selected<%end if%>> <%=i%>
  401.                         <%
  402.                             next
  403.                         %>
  404.                         </select>
  405.                         <select name="tomm">
  406.                         <%
  407.                             months=split("Mon~Jan~Feb~Mar~Apr~May~Jun~Jul~Aug~Sep~Oct~Nov~Dec", "~")
  408.                             for i = 1 to 12
  409.                         %>
  410.                             <option value="<%=i%>" <%if i=datepart("m", dateadd("d", 7, date)) then%>selected<%end if%>> <%=months(i)%>
  411.                         <%
  412.                             next
  413.                         %>
  414.                         </select>
  415.                         <select name="toyyyy">
  416.                             <option value="<%=datepart("yyyy", dateadd("d", 7, date))%>" selected> <%=datepart("yyyy", dateadd("d", 7, date))%>
  417.                             <option value="<%=datepart("yyyy", dateadd("d", 7, date))+1%>"> <%=datepart("yyyy", dateadd("d", 7, date))+1%>
  418.                         </select>
  419.                     </td>
  420.                 </tr>
  421.                 </table>
  422.                 </td> </tr>
  423.                 </table>
  424.                 <br>
  425.                 <input type=submit value=" Book Now ">
  426.                 </form>
  427.             </td>
  428.         </tr>
  429.         </table>
  430.         </center>
  431.         <!-- #include file="AdsBottom.asp" -->
  432.     </body>
  433. </html>
  434. <%
  435.         else
  436.             msg = ""
  437.             if session("ClientId")="" then msg = "<font face=verdana size=2 color=red> <b> For Booking, You Must Login <br> <br> Go To <a href='AdsLogin.asp' style='color:red'>Login</a> </b> </font>"
  438.             fromdate = Request.Form("frommm") + "/" + Request.Form("fromdd") + "/" + Request.Form("fromyyyy")
  439.             todate = Request.Form("tomm") + "/" + Request.Form("todd") + "/" + Request.Form("toyyyy")
  440.             if (not isdate(fromdate)) or (not isdate(todate)) then msg = "<font face=verdana size=2 color=red> <b> Enter Valid Dates <br> <br> Go <a href='javascript:history.back();' style='color:red'>Back</a> </b> </font>"
  441.             if msg="" and cdate(todate)<cdate(fromdate) then msg = "<font face=verdana size=2 color=red> <b> Enter Valid To Date <br> <br> Go <a href='javascript:history.back();' style='color:red'>Back</a> </b> </font>"
  442.             if msg<>"" then
  443. %>
  444. <html>
  445.     <head>
  446.         <title> Janahitha Ads - Welcome </title>
  447.     </head>
  448.     <body bottommargin=0 topmargin=0 leftmargin=0 rightmargin=0 marginheight=0 marginwidth=0 bgcolor="#f2D197">
  449.         <!-- #include file="AdsTop.asp" --> 
  450.         <center>
  451.         <table width=100% cellpadding=0 cellspacing=0 border=0 height=100%>
  452.         <tr>
  453.             <td width=150 align=center valign=top bgcolor="#FFFFFF">
  454.                 <!-- #include file="AdsLeft.asp" -->
  455.             </td>
  456.             <td width=630 align=center valign=top bgcolor="#ffffff">
  457.                 <br> <br>
  458.                 <%=msg%>
  459.             </td>
  460.         </tr>
  461.         </table>
  462.         </center>
  463.         <!-- #include file="AdsBottom.asp" -->
  464.     </body>
  465. </html>
  466. <%
  467.                 Response.end
  468.             end if
  469.             selectedids = split(Request.Form("selectedids"), ",")
  470.             con.begintrans
  471.             for i = 0 to ubound(selectedids)    
  472.                 sql = "insert into BookingsMaster(HoardingId, ClientId, FromDate, ToDate) values(" + selectedids(i) + ", " + session("ClientId") + ", '" + fromdate + "', '" + todate + "')"
  473.                 'Response.Write(sql)
  474.                 Response.Write(" ")
  475.                 con.execute sql
  476.             next
  477.             for i = 0 to ubound(selectedids)    
  478.                 sql = "update HoardingMaster set status=yes where HoardingId=" & selectedids(i)
  479.                 'Response.Write(sql)
  480.                 con.execute sql
  481.             next            
  482.             con.committrans
  483. %>
  484. <html>
  485.     <head>
  486.         <title> Janahitha Ads - Welcome </title>
  487.     </head>
  488.     <body bottommargin=0 topmargin=0 leftmargin=0 rightmargin=0 marginheight=0 marginwidth=0 bgcolor="#f2D197">
  489.         <!-- #include file="AdsTop.asp" --> 
  490.         <center>
  491.         <table width=100% cellpadding=0 cellspacing=0 border=0 height=100%>
  492.         <tr>
  493.             <td width=150 align=center valign=top bgcolor="#FFFFFF">
  494.                 <!-- #include file="AdsLeft.asp" -->
  495.             </td>
  496.             <td width=630 align=center valign=top bgcolor="#ffffff">
  497.                 <br> <br>
  498.                 <font face=verdana size=2 color="#6A75D0"> <b> Hoardings Booked <br> <br> Go <a href="AdsHoardingsList.asp"><font color="#6A75D0">Back</font></a> </b> </font>
  499.             </td>
  500.         </tr>
  501.         </table>
  502.         </center>
  503.         <!-- #include file="AdsBottom.asp" -->
  504.     </body>
  505. </html>
  506. <%
  507.         end if
  508.   end if
  509. %>
  510. <!-- #include file="AdsCloseConn.asp" -->