<%@ Language=VBScript%> <% dim strpagecode strpagecode= "4EXSR03" %> <% 'Page/form name: HallRates.asp 'Purpose:User interface for entering his details 'Date Modified:17-09-2001 'Author:Gaurav Mittal %> <% 'Response.Write "hidden value" & Request.Form("hidd") & "exhib center" & Request.Form("exhibition") &"hallno" & Request.Form("hallno") %> Hall Rates - <%=application("title")%>
Home > Exhibition Centre > Hall Rates
<%if (trim(Request.Form("hallno"))="" or Request.Form("hallno")=0) then 'Response.Write "str 1 is " & "select * from exhib_hall_master where center_code='"& strexhib &"'" else 'Response.Write "strsql is " & "select * from exhib_hall_master where center_code='"& strexhib &"'" end if %> <% if Request.Form("hidd") <> "" then %> <% set RstDetails=objconn.execute("select hall_desc, hall_area,hall_area_unit,hall_special_features"&_ " from exhib_hall_master EHR "&_ " where hall_no="& Request.Form("hallno")) 'Response.Write "select hall_area,hall_area_unit,hall_no_of_floors"&_ ' " from exhib_hall_master EHR "&_ ' " where hall_no='"& Request.Form("hallno")&"'" %> <% if not (rstdetails.bof or rstdetails.eof) then %> <%if not isnull(rstdetails("hall_special_features")) then if trim(rstdetails("hall_special_features"))<>"" then%> <%end if end if%> <% end if %> <% set RstHDet=objconn.execute("select EHR.*,ESM.season_desc,convert(char(10),start_date,103) as startdate, "&_ "convert(char(10),end_date,103) enddate from exhib_hall_rates EHR,exhib_season_master ESM"&_ " where EHR.hall_no="& Request.Form("hallno") &" and EHR.center_code='"& Request.Form("exhibition") &"'"&_ " and EHR.season_code=ESM.season_code and EHR.center_code=ESM.center_code and ESM.Active='Y'"&_ " and datepart(yyyy,end_date)>=datepart(yyyy,getdate())Order by start_date") %> <%end if%>
Hall Rates
Exhibition Centre
Hall
<%if request.form("hidd")="" then %> <%end if%>
Hall Details
Hall
<%=rstdetails("hall_desc")%>
Category
<% if Request.Form("hidd")<>"" then set RstCat=objconn.execute("select code,codedesc from exhib_hall_master,itpo_code where hall_no='"& Request.Form("hallno") &"' and hall_category=code and codetype='HCT'") if not (RstCat.bof or RstCat.eof) then Response.Write rstcat("codedesc")%> <% end if%>
Area of the Hall
<%=rstdetails("hall_area") &" " & rstdetails("hall_area_unit")%>
Special Feature(s)
<%=rstdetails("hall_special_features")%>
<% if not (RstHdet.bof or RstHDet.eof) then %> <% do while not RstHDet.eof%> <% RstHDet.movenext loop else %> <% end if%>
Season
Duration
(dd/mm/yyyy)
Rates
(Rs.)
Rates
(US$)
<%=RstHDet("season_desc")%>
<%=RstHdet("startdate")&"-"& rsthdet("enddate")%>
<%if not (isnull(RstHDet("license_fee_rs")) or RstHDet("license_fee_rs")="") then Response.Write formatnumber(RstHDet("license_fee_rs"),2,,,0)%>
<%if not (isnull(RstHDet("license_fee_do")) or RstHDet("license_fee_do")) then Response.Write formatnumber(RstHDet("license_fee_do"),2,,,0)%>
No Hall Rates defined
<%if request.form("hidd")<>"" then%> <%end if%>