<%@ Language=VBScript%> <% 'Page/form name: Space Availabikity 'Purpose: 'Date Modified: 'Author: Ujjwal Bharani %> Space Availability Chart - <%=Application("title")%> <% strcenter = "select code,codedesc from itpo_code where code='"&request.form("centre")&"'" set rscenter = Server.CreateObject("ADODB.RECORDSET") rscenter.Open strcenter,ObjConn %> <% dim rshall,rscnt set rshall = Server.CreateObject("ADODB.RECORDSET") set rscnt = Server.CreateObject("ADODB.RECORDSET") strhall = "select hall_no, hall_desc from exhib_hall_master where center_code = '" & request.form("excen") & "' and activate_flag='Y'" rshall.Open strhall,ObjConn strhallcnt = "select count(hall_no) counttotal from exhib_hall_master where center_code = '" & request.form("excen") & "' and activate_flag='Y'" rscnt.Open strhallcnt,ObjConn var1 = split(request.form("hall"),",") if not request.form("hall")= "ALL" and ubound(var1)<1 then if not request.form("hall")="" then strhalldesc = "select hall_desc from exhib_hall_master where center_code = '" & request.form("excen") &_ "' and hall_no='" & request.form("hall") & "'and activate_flag='Y'" set rshalldesc = Server.CreateObject("ADODB.RECORDSET") rshalldesc.Open strhalldesc,ObjConn end if end if if not request.form("hall")= "ALL" and ubound(var1)>0 then if not request.form("hall")="" then strhalldesc = "select hall_desc from exhib_hall_master where center_code = '" & request.form("excen") &_ "' and hall_no in (" & request.form("hall") & ") and activate_flag='Y'" set rshalldesc = Server.CreateObject("ADODB.RECORDSET") rshalldesc.Open strhalldesc,ObjConn end if end if if request.form("flag")="S" then '******************************************************************************************* 'Assignment of days and dates '******************************************************************************************* yr = request("yearly") mth = request("monthly") date1 = DateSerial(yr,mth,1) datelast = DateSerial(yr,mth+1,0) day1 = datepart("d",date1) daylast = datepart("d",datelast) noofdays = daylast - day1 + 1 'Response.write "First Date:" & date1 & "
" 'Response.write "Last Date:" & datelast & "
" 'Response.write "No of Days:" & daylast & "
" day10 = datepart("d",DateSerial(yr,mth,10)) day11 = datepart("d",DateSerial(yr,mth,11)) day20 = datepart("d",DateSerial(yr,mth,20)) day21 = datepart("d",DateSerial(yr,mth,21)) '******************************************************************************************** end if %> <% stryearmonth = "select year(getdate()) year, month(getdate()) month" set rsyearmonth = Server.CreateObject("ADODB.RECORDSET") rsyearmonth.Open stryearmonth,ObjConn %>
Home> Exhibition Centre > Space Availability Chart
Space Availability Chart
<%if request("excen")<> "" then%> <%if rscnt("counttotal")=0 then%> <%end if%> <%end if%>
Exhibition Centre
Hall
Duration
  <%if Request.form("Submit")="Search" then%> <%else%> <%end if%>
 
Search Results for Exhibition Centre='<%=rscenter("codedesc")%>'
No Hall Found
<%if request.form("flag")="S" and request.form("hall")<> "ALL" and ubound(var1)<1 then%> <% '******************************************************************************************* 'Ist Row of dates is being created here. '******************************************************************************************* Response.Write "" for i1 = day1 to day10 ctr1 = ctr1 + 1 if ctr1 < 11 then Response.Write "" end if next Response.Write "" '******************************************************************************************* '******************************************************************************************* 'Ist Row of availability is being created here. '******************************************************************************************* Response.Write "" for i2 = day1 to day10 ctr2 = ctr2 + 1 if ctr2 < 11 then Response.Write "" end if next Response.Write "" '******************************************************************************************* '******************************************************************************************* 'IInd Row of dates is being created here. '******************************************************************************************* Response.Write "" for i3 = day11 to day20 ctr3 = ctr3 + 1 if ctr3 < 11 then Response.Write "" end if next Response.Write "" '******************************************************************************************* '******************************************************************************************* 'IInd Row of availability is being created here. '******************************************************************************************* Response.Write "" for i4 = day11 to day20 ctr4 = ctr4 + 1 if ctr4 < 11 then Response.Write "" end if next Response.Write "" '******************************************************************************************* '******************************************************************************************* 'IIIrd / IVth Rows / Availability of dates is being created here. '******************************************************************************************* Response.Write "" if daylast > 30 then '************************************************************************ 'IIIrd Row of dates is being created here. '************************************************************************ for i5 = day21 to daylast-1 ctr5 = ctr5 + 1 if ctr5 < 11 then Response.Write "" end if next Response.Write "" '************************************************************************ '************************************************************************ 'IIIrd Row of Availability is being created here. '************************************************************************ for i6 = day21 to daylast-1 ctr6 = ctr6 + 1 if ctr6 < 11 then Response.Write "" end if next Response.Write "" '************************************************************************ '************************************************************************ 'IVth Row of dates is being created here. '************************************************************************ Response.Write "" for i7 = daylast to daylast ctr7 = ctr7 + 1 if ctr7 < 11 then Response.Write "" end if next Response.Write "" '************************************************************************ '************************************************************************ 'IVth Row of Availability is being created here. '************************************************************************ for i8 = daylast to daylast ctr8 = ctr8 + 1 if ctr8 < 11 then Response.Write "" end if next Response.Write "" '************************************************************************ else '************************************************************************ 'IIIrd Row of dates is being created here. '************************************************************************ for i5 = day21 to daylast ctr5 = ctr5 + 1 if ctr5 < 11 then Response.Write "" end if next Response.Write "" '************************************************************************ '************************************************************************ 'IIIrd Row of Availability is being created here. '************************************************************************ for i6 = day21 to daylast ctr6 = ctr6 + 1 if ctr6 < 11 then Response.Write "" end if next Response.Write "" '************************************************************************ end if %>
Space Availability Chart for <%=rscenter("codedesc")%>, <%if not request.form("hall")= "ALL" and ubound(var1)<1 then Response.write rshalldesc("hall_desc") end if%>,
Duration: <%=monthname(Request.Form("monthly"))%> <%=Request.Form("yearly")%>
<%if not request.form("hall")= "ALL" then Response.write rshalldesc("hall_desc") end if %>
" Response.Write string(2-len(i1),"0")& i1 Response.Write "
" a = request("monthly") & "/" & i2 & "/"& request("yearly") 'Response.Write trim(a) & "
" 'Response.Write Request.Form("excen") & "
" '*********************************************************** strbooking1 = "SELECT Exhib_Book_Proposed.BookingNo, exhib_book_halldetails.hall_no, dtFMBooking, status FROM Exhib_Book_Proposed, " &_ "exhib_book_halldetails WHERE Exhib_Book_Proposed.BookingNo = exhib_book_halldetails.BookingNo and status = 'ALL' " &_ "and '" & a & "' between dtFMBooking and dtToBooking and center_code = '" & request.form("excen") &_ "' and exhib_book_halldetails.hall_no=" & request.form("hall") & " order by dtFMBooking" 'Response.Write strbooking1 set rsbooking1 = Server.CreateObject("ADODB.RECORDSET") rsbooking1.Open strbooking1,ObjConn 'Response.end '*********************************************************** if not rsbooking1.EOF then flag = "True" alttext = "View Exhibitor Information for " & monthname(request("monthly")) & " " & string(2-len(i2),"0")& i2 & ", " & request("yearly") Response.Write "" & alttext & "" end if if trim(flag) <> "True" then Response.Write "" end if flag = "" Response.Write "
" Response.Write string(2-len(i3),"0")& i3 Response.Write "
" b = request("monthly") & "/" & i4 & "/"& request("yearly") 'Response.Write trim(b) & "
" '*********************************************************** strbooking2 = "SELECT Exhib_Book_Proposed.BookingNo, exhib_book_halldetails.hall_no, dtFMBooking, status FROM Exhib_Book_Proposed, " &_ "exhib_book_halldetails WHERE Exhib_Book_Proposed.BookingNo = exhib_book_halldetails.BookingNo and status = 'ALL' " &_ "and '" & b & "' between dtFMBooking and dtToBooking and center_code = '" & request.form("excen") &_ "' and exhib_book_halldetails.hall_no=" & request.form("hall") & " order by dtFMBooking" 'Response.Write strbooking2 set rsbooking2 = Server.CreateObject("ADODB.RECORDSET") rsbooking2.Open strbooking2,ObjConn '*********************************************************** if not rsbooking2.EOF then flag = "True" alttext = "View Exhibitor Information for " & monthname(request("monthly")) & " " & string(2-len(i4),"0")& i4 & ", " & request("yearly") Response.Write "" & alttext & "" end if if trim(flag) <> "True" then Response.Write "" end if flag = "" Response.Write "
" Response.Write string(2-len(i5),"0")& i5 Response.Write "
" c = request("monthly") & "/" & i6 & "/"& request("yearly") 'Response.Write trim(c) & "
" '*********************************************************** strbooking3 = "SELECT Exhib_Book_Proposed.BookingNo, exhib_book_halldetails.hall_no, dtFMBooking, status FROM Exhib_Book_Proposed, " &_ "exhib_book_halldetails WHERE Exhib_Book_Proposed.BookingNo = exhib_book_halldetails.BookingNo and status = 'ALL' " &_ "and '" & c & "' between dtFMBooking and dtToBooking and center_code = '" & request.form("excen") &_ "' and exhib_book_halldetails.hall_no=" & request.form("hall") & " order by dtFMBooking" 'Response.Write strbooking3 set rsbooking3 = Server.CreateObject("ADODB.RECORDSET") rsbooking3.Open strbooking3,ObjConn '*********************************************************** if not rsbooking3.EOF then flag = "True" alttext = "View Exhibitor Information for " & monthname(request("monthly")) & " " & string(2-len(i6),"0")& i6 & ", " & request("yearly") Response.Write "" & alttext & "" end if if trim(flag) <> "True" then Response.Write "" end if flag = "" Response.Write "
" Response.Write string(2-len(i7),"0")& i7 Response.Write "
" d = request("monthly") & "/" & i8 & "/"& request("yearly") 'Response.Write trim(d) & "
" '*********************************************************** strbooking4 = "SELECT Exhib_Book_Proposed.BookingNo, exhib_book_halldetails.hall_no, dtFMBooking, status FROM Exhib_Book_Proposed, " &_ "exhib_book_halldetails WHERE Exhib_Book_Proposed.BookingNo = exhib_book_halldetails.BookingNo and status = 'ALL' " &_ "and '" & d & "' between dtFMBooking and dtToBooking and center_code = '" & request.form("excen") &_ "' and exhib_book_halldetails.hall_no=" & request.form("hall") & " order by dtFMBooking" 'Response.Write strbooking4 set rsbooking4 = Server.CreateObject("ADODB.RECORDSET") rsbooking4.Open strbooking4,ObjConn '*********************************************************** if not rsbooking4.EOF then flag = "True" alttext = "View Exhibitor Information for " & monthname(request("monthly")) & " " & string(2-len(i8),"0")& i8 & ", " & request("yearly") Response.Write "" & alttext & "" end if if trim(flag) <> "True" then Response.Write "" end if flag = "" Response.Write "
" Response.Write string(2-len(i5),"0")& i5 Response.Write "
" c = request("monthly") & "/" & i6 & "/"& request("yearly") 'Response.Write trim(c) & "
" '*********************************************************** strbooking3 = "SELECT Exhib_Book_Proposed.BookingNo, exhib_book_halldetails.hall_no, dtFMBooking, status FROM Exhib_Book_Proposed, " &_ "exhib_book_halldetails WHERE Exhib_Book_Proposed.BookingNo = exhib_book_halldetails.BookingNo and status = 'ALL' " &_ "and '" & c & "' between dtFMBooking and dtToBooking and center_code = '" & request.form("excen") &_ "' and exhib_book_halldetails.hall_no=" & request.form("hall") & " order by dtFMBooking" 'Response.Write strbooking3 set rsbooking3 = Server.CreateObject("ADODB.RECORDSET") rsbooking3.Open strbooking3,ObjConn '*********************************************************** if not rsbooking3.EOF then flag = "True" alttext = "View Exhibitor Information for " & monthname(request("monthly")) & " " & string(2-len(i6),"0")& i6 & ", " & request("yearly") Response.Write "" & alttext & "" end if if trim(flag) <> "True" then Response.Write "" end if flag = "" Response.Write "
   Available    Not Available

<%end if%> <% if request.form("flag")="S" and request.form("hall")= "ALL" then 'dim i1, i2, i3, i4, i5, i6, i7,i8 dim ctr1, ctr2, ctr3, ctr4, ctr5, ctr6, ctr7,ctr8 strhallcount = "select hall_no,hall_desc from exhib_hall_master where center_code='" & Request.form("centre") &"'and activate_flag='Y'" set rshallcount = Server.CreateObject("ADODB.RECORDSET") rshallcount.Open strhallcount,ObjConn do while not rshallcount.EOF ctr1 = 0 ctr2 = 0 ctr3 = 0 ctr4 = 0 ctr5 = 0 ctr6 = 0 ctr7 = 0 ctr8 = 0 %> <% '**************************************************************************** '******************************************************************************************* 'Ist Row of dates is being created here. '******************************************************************************************* Response.Write "" for i1 = day1 to day10 ctr1 = ctr1 + 1 if ctr1 < 11 then Response.Write "" end if next Response.Write "" '******************************************************************************************* '******************************************************************************************* 'Ist Row of availability is being created here. '******************************************************************************************* Response.Write "" for i2 = day1 to day10 ctr2 = ctr2 + 1 if ctr2 < 11 then Response.Write "" end if next Response.Write "" '******************************************************************************************* '******************************************************************************************* 'IInd Row of dates is being created here. '******************************************************************************************* Response.Write "" for i3 = day11 to day20 ctr3 = ctr3 + 1 if ctr3 < 11 then Response.Write "" end if next Response.Write "" '******************************************************************************************* '******************************************************************************************* 'IInd Row of availability is being created here. '******************************************************************************************* Response.Write "" for i4 = day11 to day20 ctr4 = ctr4 + 1 if ctr4 < 11 then Response.Write "" end if next Response.Write "" '******************************************************************************************* '******************************************************************************************* 'IIIrd / IVth Rows / Availability of dates is being created here. '******************************************************************************************* Response.Write "" if daylast > 30 then '************************************************************************ 'IIIrd Row of dates is being created here. '************************************************************************ for i5 = day21 to daylast-1 ctr5 = ctr5 + 1 if ctr5 < 11 then Response.Write "" end if next Response.Write "" '************************************************************************ '************************************************************************ 'IIIrd Row of Availability is being created here. '************************************************************************ for i6 = day21 to daylast-1 ctr6 = ctr6 + 1 if ctr6 < 11 then Response.Write "" end if next Response.Write "" '************************************************************************ '************************************************************************ 'IVth Row of dates is being created here. '************************************************************************ Response.Write "" for i7 = daylast to daylast ctr7 = ctr7 + 1 if ctr7 < 11 then Response.Write "" end if next Response.Write "" '************************************************************************ '************************************************************************ 'IVth Row of Availability is being created here. '************************************************************************ for i8 = daylast to daylast ctr8 = ctr8 + 1 if ctr8 < 11 then Response.Write "" end if next Response.Write "" '************************************************************************ else '************************************************************************ 'IIIrd Row of dates is being created here. '************************************************************************ for i5 = day21 to daylast ctr5 = ctr5 + 1 if ctr5 < 11 then Response.Write "" end if next Response.Write "" '************************************************************************ '************************************************************************ 'IIIrd Row of Availability is being created here. '************************************************************************ for i6 = day21 to daylast ctr6 = ctr6 + 1 if ctr6 < 11 then Response.Write "" end if next Response.Write "" '************************************************************************ end if '**************************************************************************** %> <%Response.Write "
Space Availability Chart for <%=rscenter("codedesc")%>, <%if request.form("hall")= "ALL" then Response.write rshallcount("hall_desc") end if%>,
Duration: <%=monthname(Request.Form("monthly"))%> <%=Request.Form("yearly")%>
<%=rshallcount("hall_desc")%>
" Response.Write trim(string(2-len(i1),"0")& i1) Response.Write "
" a = request("monthly") & "/" & i2 & "/"& request("yearly") 'Response.Write trim(a) & "
" '*********************************************************** strbooking1 = "SELECT Exhib_Book_Proposed.BookingNo, exhib_book_halldetails.hall_no, dtFMBooking, status FROM Exhib_Book_Proposed, " &_ "exhib_book_halldetails WHERE Exhib_Book_Proposed.BookingNo = exhib_book_halldetails.BookingNo and status = 'ALL' " &_ "and '" & a & "' between dtFMBooking and dtToBooking and center_code = '" & request.form("excen") &_ "' and exhib_book_halldetails.hall_no=" & rshallcount("hall_no") & " order by dtFMBooking" 'Response.Write strbooking1 set rsbooking1 = Server.CreateObject("ADODB.RECORDSET") rsbooking1.Open strbooking1,ObjConn '*********************************************************** if not rsbooking1.EOF then flag = "True" alttext = "View Exhibitor Information for " & monthname(request("monthly")) & " " & string(2-len(i2),"0")& i2 & ", " & request("yearly") Response.Write "" & alttext & "" end if if trim(flag) <> "True" then Response.Write "" end if flag = "" Response.Write "
" Response.Write string(2-len(i3),"0")& i3 Response.Write "
" b = request("monthly") & "/" & i4 & "/"& request("yearly") 'Response.Write trim(b) & "
" '*********************************************************** strbooking2 = "SELECT Exhib_Book_Proposed.BookingNo, exhib_book_halldetails.hall_no, dtFMBooking, status FROM Exhib_Book_Proposed, " &_ "exhib_book_halldetails WHERE Exhib_Book_Proposed.BookingNo = exhib_book_halldetails.BookingNo and status = 'ALL' " &_ "and '" & b & "' between dtFMBooking and dtToBooking and center_code = '" & request.form("excen") &_ "' and exhib_book_halldetails.hall_no=" & rshallcount("hall_no") & " order by dtFMBooking" 'Response.Write strbooking2 set rsbooking2 = Server.CreateObject("ADODB.RECORDSET") rsbooking2.Open strbooking2,ObjConn '*********************************************************** if not rsbooking2.EOF then flag = "True" alttext = "View Exhibitor Information for " & monthname(request("monthly")) & " " & string(2-len(i4),"0")& i4 & ", " & request("yearly") Response.Write "" & alttext & "" end if if trim(flag) <> "True" then Response.Write "" end if flag = "" Response.Write "
" Response.Write string(2-len(i5),"0")& i5 Response.Write "
" c = request("monthly") & "/" & i6 & "/"& request("yearly") 'Response.Write trim(c) & "
" '*********************************************************** strbooking3 = "SELECT Exhib_Book_Proposed.BookingNo, exhib_book_halldetails.hall_no, dtFMBooking, status FROM Exhib_Book_Proposed, " &_ "exhib_book_halldetails WHERE Exhib_Book_Proposed.BookingNo = exhib_book_halldetails.BookingNo and status = 'ALL' " &_ "and '" & c & "' between dtFMBooking and dtToBooking and center_code = '" & request.form("excen") &_ "' and exhib_book_halldetails.hall_no=" & rshallcount("hall_no") & " order by dtFMBooking" 'Response.Write strbooking3 set rsbooking3 = Server.CreateObject("ADODB.RECORDSET") rsbooking3.Open strbooking3,ObjConn '*********************************************************** if not rsbooking3.EOF then flag = "True" alttext = "View Exhibitor Information for " & monthname(request("monthly")) & " " & string(2-len(i6),"0")& i6 & ", " & request("yearly") Response.Write "" & alttext & "" end if if trim(flag) <> "True" then Response.Write "" end if flag = "" Response.Write "
" Response.Write string(2-len(i7),"0")& i7 Response.Write "
" d = request("monthly") & "/" & i8 & "/"& request("yearly") 'Response.Write trim(d) & "
" '*********************************************************** strbooking4 = "SELECT Exhib_Book_Proposed.BookingNo, exhib_book_halldetails.hall_no, dtFMBooking, status FROM Exhib_Book_Proposed, " &_ "exhib_book_halldetails WHERE Exhib_Book_Proposed.BookingNo = exhib_book_halldetails.BookingNo and status = 'ALL' " &_ "and '" & d & "' between dtFMBooking and dtToBooking and center_code = '" & request.form("excen") &_ "' and exhib_book_halldetails.hall_no=" & rshallcount("hall_no") & " order by dtFMBooking" 'Response.Write strbooking4 set rsbooking4 = Server.CreateObject("ADODB.RECORDSET") rsbooking4.Open strbooking4,ObjConn '*********************************************************** if not rsbooking4.EOF then flag = "True" alttext = "View Exhibitor Information for " & monthname(request("monthly")) & " " & string(2-len(i8),"0")& i8 & ", " & request("yearly") Response.Write "" & alttext & "" end if if trim(flag) <> "True" then Response.Write "" end if flag = "" Response.Write "
" Response.Write string(2-len(i5),"0")& i5 Response.Write "
" c = request("monthly") & "/" & i6 & "/"& request("yearly") 'Response.Write trim(c) & "
" '*********************************************************** strbooking3 = "SELECT Exhib_Book_Proposed.BookingNo, exhib_book_halldetails.hall_no, dtFMBooking, status FROM Exhib_Book_Proposed, " &_ "exhib_book_halldetails WHERE Exhib_Book_Proposed.BookingNo = exhib_book_halldetails.BookingNo and status = 'ALL' " &_ "and '" & c & "' between dtFMBooking and dtToBooking and center_code = '" & request.form("excen") &_ "' and exhib_book_halldetails.hall_no=" & rshallcount("hall_no") & " order by dtFMBooking" 'Response.Write strbooking3 set rsbooking3 = Server.CreateObject("ADODB.RECORDSET") rsbooking3.Open strbooking3,ObjConn '*********************************************************** if not rsbooking3.EOF then flag = "True" alttext = "View Exhibitor Information for " & monthname(request("monthly")) & " " & string(2-len(i6),"0")& i6 & ", " & request("yearly") Response.Write "" & alttext & "" end if if trim(flag) <> "True" then Response.Write "" end if flag = "" Response.Write "
   Available    Not Available
" rshallcount.MoveNext loop %>

<%end if '////////////////////////////////////////////////////////////////////////// %> <% if request.form("flag")="S" and request.form("hall")<> "ALL" and ubound(var1)>0 then 'dim i1, i2, i3, i4, i5, i6, i7,i8 dim actr1, actr2, actr3, actr4, actr5, actr6, actr7,actr8 strhallcount = "select hall_no,hall_desc from exhib_hall_master where center_code='" & Request.form("centre") &"'and hall_no in (" & Request.Form("hall") & ")and activate_flag='Y'" 'Response.Write strhallcount set rshallcount = Server.CreateObject("ADODB.RECORDSET") rshallcount.Open strhallcount,ObjConn do while not rshallcount.EOF actr1 = 0 actr2 = 0 actr3 = 0 actr4 = 0 actr5 = 0 actr6 = 0 actr7 = 0 actr8 = 0 %> <% '**************************************************************************** '******************************************************************************************* 'Ist Row of dates is being created here. '******************************************************************************************* Response.Write "" for i1 = day1 to day10 actr1 = actr1 + 1 if actr1 < 11 then Response.Write "" end if next Response.Write "" '******************************************************************************************* '******************************************************************************************* 'Ist Row of availability is being created here. '******************************************************************************************* Response.Write "" for i2 = day1 to day10 actr2 = actr2 + 1 if actr2 < 11 then Response.Write "" end if next Response.Write "" '******************************************************************************************* '******************************************************************************************* 'IInd Row of dates is being created here. '******************************************************************************************* Response.Write "" for i3 = day11 to day20 actr3 = actr3 + 1 if actr3 < 11 then Response.Write "" end if next Response.Write "" '******************************************************************************************* '******************************************************************************************* 'IInd Row of availability is being created here. '******************************************************************************************* Response.Write "" for i4 = day11 to day20 actr4 = actr4 + 1 if actr4 < 11 then Response.Write "" end if next Response.Write "" '******************************************************************************************* '******************************************************************************************* 'IIIrd / IVth Rows / Availability of dates is being created here. '******************************************************************************************* Response.Write "" if daylast > 30 then '************************************************************************ 'IIIrd Row of dates is being created here. '************************************************************************ for i5 = day21 to daylast-1 actr5 = actr5 + 1 if actr5 < 11 then Response.Write "" end if next Response.Write "" '************************************************************************ '************************************************************************ 'IIIrd Row of Availability is being created here. '************************************************************************ for i6 = day21 to daylast-1 actr6 = actr6 + 1 if actr6 < 11 then Response.Write "" end if next Response.Write "" '************************************************************************ '************************************************************************ 'IVth Row of dates is being created here. '************************************************************************ Response.Write "" for i7 = daylast to daylast actr7 = actr7 + 1 if actr7 < 11 then Response.Write "" end if next Response.Write "" '************************************************************************ '************************************************************************ 'IVth Row of Availability is being created here. '************************************************************************ for i8 = daylast to daylast actr8 = actr8 + 1 if actr8 < 11 then Response.Write "" end if next Response.Write "" '************************************************************************ else '************************************************************************ 'IIIrd Row of dates is being created here. '************************************************************************ for i5 = day21 to daylast actr5 = actr5 + 1 if actr5 < 11 then Response.Write "" end if next Response.Write "" '************************************************************************ '************************************************************************ 'IIIrd Row of Availability is being created here. '************************************************************************ for i6 = day21 to daylast actr6 = actr6 + 1 if actr6 < 11 then Response.Write "" end if next Response.Write "" '************************************************************************ end if '**************************************************************************** %> <%Response.Write "
Space Availability Chart for <%=rscenter("codedesc")%>, <%if request.form("hall")<> "ALL" and ubound(var1)>0 then Response.write rshallcount("hall_desc") end if%>,
Duration: <%=monthname(Request.Form("monthly"))%> <%=Request.Form("yearly")%>
<%=rshallcount("hall_desc")%>
" Response.Write trim(string(2-len(i1),"0")& i1) Response.Write "
" a = request("monthly") & "/" & i2 & "/"& request("yearly") 'Response.Write trim(a) & "
" '*********************************************************** strbooking1 = "SELECT Exhib_Book_Proposed.BookingNo, exhib_book_halldetails.hall_no, dtFMBooking, status FROM Exhib_Book_Proposed, " &_ "exhib_book_halldetails WHERE Exhib_Book_Proposed.BookingNo = exhib_book_halldetails.BookingNo and status = 'ALL' " &_ "and '" & a & "' between dtFMBooking and dtToBooking and center_code = '" & request.form("excen") &_ "' and exhib_book_halldetails.hall_no=" & rshallcount("hall_no") & " order by dtFMBooking" 'Response.Write strbooking1 set rsbooking1 = Server.CreateObject("ADODB.RECORDSET") rsbooking1.Open strbooking1,ObjConn '*********************************************************** if not rsbooking1.EOF then flag = "True" alttext = "View Exhibitor Information for " & monthname(request("monthly")) & " " & string(2-len(i2),"0")& i2 & ", " & request("yearly") Response.Write "" & alttext & "" end if if trim(flag) <> "True" then Response.Write "" end if flag = "" Response.Write "
" Response.Write string(2-len(i3),"0")& i3 Response.Write "
" b = request("monthly") & "/" & i4 & "/"& request("yearly") 'Response.Write trim(b) & "
" '*********************************************************** strbooking2 = "SELECT Exhib_Book_Proposed.BookingNo, exhib_book_halldetails.hall_no, dtFMBooking, status FROM Exhib_Book_Proposed, " &_ "exhib_book_halldetails WHERE Exhib_Book_Proposed.BookingNo = exhib_book_halldetails.BookingNo and status = 'ALL' " &_ "and '" & b & "' between dtFMBooking and dtToBooking and center_code = '" & request.form("excen") &_ "' and exhib_book_halldetails.hall_no=" & rshallcount("hall_no") & " order by dtFMBooking" 'Response.Write strbooking2 set rsbooking2 = Server.CreateObject("ADODB.RECORDSET") rsbooking2.Open strbooking2,ObjConn '*********************************************************** if not rsbooking2.EOF then flag = "True" alttext = "View Exhibitor Information for " & monthname(request("monthly")) & " " & string(2-len(i4),"0")& i4 & ", " & request("yearly") Response.Write "" & alttext & "" end if if trim(flag) <> "True" then Response.Write "" end if flag = "" Response.Write "
" Response.Write string(2-len(i5),"0")& i5 Response.Write "
" c = request("monthly") & "/" & i6 & "/"& request("yearly") 'Response.Write trim(c) & "
" '*********************************************************** strbooking3 = "SELECT Exhib_Book_Proposed.BookingNo, exhib_book_halldetails.hall_no, dtFMBooking, status FROM Exhib_Book_Proposed, " &_ "exhib_book_halldetails WHERE Exhib_Book_Proposed.BookingNo = exhib_book_halldetails.BookingNo and status = 'ALL' " &_ "and '" & c & "' between dtFMBooking and dtToBooking and center_code = '" & request.form("excen") &_ "' and exhib_book_halldetails.hall_no=" & rshallcount("hall_no") & " order by dtFMBooking" 'Response.Write strbooking3 set rsbooking3 = Server.CreateObject("ADODB.RECORDSET") rsbooking3.Open strbooking3,ObjConn '*********************************************************** if not rsbooking3.EOF then flag = "True" alttext = "View Exhibitor Information for " & monthname(request("monthly")) & " " & string(2-len(i6),"0")& i6 & ", " & request("yearly") Response.Write "" & alttext & "" end if if trim(flag) <> "True" then Response.Write "" end if flag = "" Response.Write "
" Response.Write string(2-len(i7),"0")& i7 Response.Write "
" d = request("monthly") & "/" & i8 & "/"& request("yearly") 'Response.Write trim(d) & "
" '*********************************************************** strbooking4 = "SELECT Exhib_Book_Proposed.BookingNo, exhib_book_halldetails.hall_no, dtFMBooking, status FROM Exhib_Book_Proposed, " &_ "exhib_book_halldetails WHERE Exhib_Book_Proposed.BookingNo = exhib_book_halldetails.BookingNo and status = 'ALL' " &_ "and '" & d & "' between dtFMBooking and dtToBooking and center_code = '" & request.form("excen") &_ "' and exhib_book_halldetails.hall_no=" & rshallcount("hall_no") & " order by dtFMBooking" 'Response.Write strbooking4 set rsbooking4 = Server.CreateObject("ADODB.RECORDSET") rsbooking4.Open strbooking4,ObjConn '*********************************************************** if not rsbooking4.EOF then flag = "True" alttext = "View Exhibitor Information for " & monthname(request("monthly")) & " " & string(2-len(i8),"0")& i8 & ", " & request("yearly") Response.Write "" & alttext & "" end if if trim(flag) <> "True" then Response.Write "" end if flag = "" Response.Write "
" Response.Write string(2-len(i5),"0")& i5 Response.Write "
" c = request("monthly") & "/" & i6 & "/"& request("yearly") 'Response.Write trim(c) & "
" '*********************************************************** strbooking3 = "SELECT Exhib_Book_Proposed.BookingNo, exhib_book_halldetails.hall_no, dtFMBooking, status FROM Exhib_Book_Proposed, " &_ "exhib_book_halldetails WHERE Exhib_Book_Proposed.BookingNo = exhib_book_halldetails.BookingNo and status = 'ALL' " &_ "and '" & c & "' between dtFMBooking and dtToBooking and center_code = '" & request.form("excen") &_ "' and exhib_book_halldetails.hall_no=" & rshallcount("hall_no") & " order by dtFMBooking" 'Response.Write strbooking3 set rsbooking3 = Server.CreateObject("ADODB.RECORDSET") rsbooking3.Open strbooking3,ObjConn '*********************************************************** if not rsbooking3.EOF then flag = "True" alttext = "View Exhibitor Information for " & monthname(request("monthly")) & " " & string(2-len(i6),"0")& i6 & ", " & request("yearly") Response.Write "" & alttext & "" end if if trim(flag) <> "True" then Response.Write "" end if flag = "" Response.Write "
   Available    Not Available
" rshallcount.MoveNext loop %>

<%end if '////////////////////////////////////// %>