<% dim NavigArray() Redim NavigArray(1,0) NavigArray(0,0) = "/fairregistration/admin/" NavigArray(1,0) = DIRECTORY_NAME Redim Preserve NavigArray(1,1) NavigArray(0,1) = RELATIVE_PATH NavigArray(1,1) = "Search Hall Rate Details" Proc_TO_Display_NavigationPath NavigArray, "A" %>

Search Hall Rate Details

<%'response.Write trim(rsHall("HallId"))%> Type <% ' dim rs ' dim strQry set rs = server.CreateObject("adodb.recordset") %> <% strQry = "" 'strQry = " select distinct Codetype, code, codedesc from itpo_code,hallratemaster hm where codetype = 'HTY' and hm.typecode = code " strQry = " select code, codedesc from itpo_code where codetype = 'HTY'" on error resume next set rs = objconn.execute(strQry) if err <> 0 then response.Redirect "/inc/admin/error.asp?errortype=err_record§ion="&server.URLEncode("Add Hall") Response.End end if on error goto 0 %> <% If not (rs.EOF and rs.BOF) then %> ALL <%do while not rs.EOF%> " <%if trim(request.Form("cmbType")) = trim(rs("code")) then%>selected<%end if%>><%=rs("codedesc")%> <% rs.MoveNext loop end if %> Category <% dim rs dim strQry set rs = server.CreateObject("adodb.recordset") %> <% strQry = "" ' strQry = "select distinct av.categoryid,description from hallratemaster hc,AvailableToCatgMaster av where hc.categoryid = av.categoryid " strQry = "select categoryid,description from AvailableToCatgMaster where active = 'Y' " on error resume next set rs = objconn.execute(strQry) if err <> 0 then response.Redirect "/inc/admin/error.asp?errortype=err_record§ion="&server.URLEncode("Add Hall") Response.End end if on error goto 0 %> <% If not (rs.EOF and rs.BOF) then %> ALL <%do while not rs.EOF%> " <%if trim(request.Form("cmbCategory")) = trim(rs("categoryid")) then%>selected<%end if%>><%=rs("description")%> <% rs.MoveNext loop end if %>   ">

<%'-----Filtering of records-----%> <% if trim(request.Form("cmbType"))<> "" and trim(request.Form("cmbType"))<> "-1" then strHallName = " where hm.typecode = '"&trim(request.Form("cmbType"))&"'" else strHallName = " where hm.typecode LIKE '%' " end if if trim(request.Form("cmbCategory"))<> "" and trim(request.Form("cmbCategory"))<> "-1" then strType = " and hm.categoryid = '"&trim(request.Form("cmbCategory"))&"'" end if ' if trim(request.Form("cmbProduct"))<> "" and trim(request.Form("cmbProduct"))<> "-1" then ' strType = " and hm.TypeCode = "&trim(request.Form("cmbProduct")) ' ' end if %> <%'---- End of Filtering of records---%> <% dim sqlResultHall,rsResultHall sqlresultHall = "select typecode,categoryid, categoryidName = (select description from AvailableToCatgMaster where categoryid = hm.categoryid),ratebarespace_INR,ratebarespace_USD,ratebareshell_INR,ratebareshell_USD from hallratemaster hm" sqlresultHall = sqlresultHall & strHallName & strType SetRecordset rsResultHall, sqlresultHall dim maxrecs maxrecs=0 dim maxpages maxpages = Cint(rsResultHall.Pagecount) maxrecs = Cint(rsResultHall.Pagesize) %>

<%'Values for search result %>	<% ' ## Display RecordNumbers from To Band BEGIN if not(rsResultHall.eof or rsResultHall.bof) then %> <%=startrecno%> - <%=endrecno%> of <%=totalrecords%> records <%'else%>   <%end if%>
<%'Values for search result dim hall,halltype,prod,cat hall = trim(request.Form("hallname")) if hall = "" or hall = "ALL" then hall = "ALL" end if halltype = trim(request.Form("category")) if halltype = "" or halltype = "-1" then halltype = "ALL" end if %> Search Results For : <%=hall & ", "& halltype %><%'=hall & ", "& halltype&", "&prod&", "&cat %>

<% Dim iRowCount, ClassVal iRowCount = 1 if not(rsResultHall.EOF and rsResultHall.BOF) then Do While NOT (rsResultHall.EOF and rsResultHall.BOF) and (cint(maxpagerecs) < cint(maxrecs)) if iRowCount Mod 2 = 0 then ClassVal = "greyrow" else ClassVal = "whiterow" end if %> <%'sqlProduct = "select prodid = (select productname from products_master"&_ ' " where prodid = hp.prodid )from hallProdcatgdetails hp where hallid = "&trim(rsResultHall("hallid"))&" " ' response.Write sqlProduct ' set rsProduct = objconn.execute(sqlProduct) %> <%' do while not(rsProduct.eof) 'products = products & ","&trim(rsProduct("prodid")) 'rsProduct.movenext 'loop 'if len(products)>0 then ' products = mid(products,2,len(products)-1) ' end if %> <%'products = ""%> <%'sqlCategory = "select categoryid = (select description from AvailableToCatgMaster"&_ ' " where categoryid = hp.categoryid )from hallavailtocatgdetails hp where hallid = "&trim(rsResultHall("hallid"))&" " ' response.Write sqlCategory 'set rsProduct = objconn.execute(sqlCategory) ' %> <% 'do while not(rsProduct.eof) 'category = category & ","&trim(rsProduct("categoryid")) 'rsProduct.movenext 'loop 'if len(category)>0 then ' category = mid(category,2,len(category)-1) 'end if %> <%'category = ""%> <% iRowCount = iRowCount + 1 maxpagerecs=cint(maxpagerecs) + 1 rsResultHall.MoveNext if rsResultHall.EOF then Exit Do loop %> <% else %> <%end if%> <%if rcount>rsResultHall.PageSize then%> <%end if%>

Type	Category	BareSpace Rate(INR)	BareSpace Rate(USD)	BareShell Rate(INR)	BareShell Rate(USD)	Action
<%=trim(rsResultHall("Typecode"))%>	<%'=products%><%=trim(rsResultHall("categoryidName"))%>	<% dim rate_INR rate_INR = trim(rsResultHall("ratebarespace_INR")) if rate_INR = 0 then rate_INR = "-" end if %>  <%'=category%><%=rate_INR%>	<% dim rate_USD rate_USD = trim(rsResultHall("ratebarespace_USD")) if rate_USD = 0 then rate_USD = "-" end if %>  <%=rate_USD%>	<% dim Barerate_INR Barerate_INR = trim(rsResultHall("ratebareshell_INR")) if Barerate_INR = 0 then Barerate_INR = "-" end if %>  <%=Barerate_INR%>	<% dim Barerate_USD Barerate_USD = trim(rsResultHall("ratebareshell_USD")) if Barerate_USD = 0 then Barerate_USD = "-" end if %>  <%=Barerate_USD%>	&tc=<%=trim(rsResultHall("Typecode"))%>">Modify
No Records Found.
	<% 'dim pagestring pagination rsResultHall.PageCount,pagestring,"frmsearch1" if err<>0 then response.Redirect "/inc/admin/error.asp?errortype=err_record§ion="&server.URLEncode("Add Hall") Response.end end if %>