Home > Fair Registration > Fair Booking Query

Search Hall Booking Details

<% dim sqlHall,rsHalll sqlHall = "select distinct hm.hallid,description from hallmaster hm,hallpreferancedetails hp where hp.hallid = hm.hallid order by description" set rsHall = objconn.execute(sqlHall) %> <%'response.Write trim(rsHall("HallId"))%> Hall ALL <%do while not (rsHall.eof or rsHall.bof) %> " <%if trim(request.Form("cmnHallName")) = trim(rsHall("HallId")) then %> selected <%end if%> ><%=trim(rsHall("Description"))%> <%rsHall.movenext loop %> Exhibitor <% dim rsExhibitor dim strQry set rs = server.CreateObject("adodb.recordset") %> <% strQry = "" strQryExhibitor = " select distinct hb.company_name from hallbooking hb,hallpreferancedetails hpd where hb.appid = hpd.appid " on error resume next set rsExhibitor = objconn.execute(strQryExhibitor) 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 (rsExhibitor.EOF and rsExhibitor.BOF) then %> ALL <%do while not rsExhibitor.EOF%> " <%if trim(request.Form("cmbType")) = trim(rsExhibitor("company_name")) then%>selected<%end if%>><%=trim(rsExhibitor("company_name"))%> <% rsExhibitor.MoveNext loop end if %> <%rsExhibitor.close%> Exhibitor Category <% dim rsCat dim strQryCat set rsCat = server.CreateObject("adodb.recordset") %> <% strQryCat = "" strQryCat = " select distinct hp.Categoryid,atcm.description from AvailableToCatgMaster atcm,hallbooking hp where atcm.categoryid = hp.categoryid order by atcm.description" 'response.Write strQryCat 'response.End on error resume next set rsCat = objconn.execute(strQryCat) 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 (rsCat.EOF and rsCat.BOF) then %> ALL <%do while not rsCat.EOF%> " <%if trim(request.Form("cmbCat")) = trim(rsCat("Categoryid")) then%>selected<%end if%>><%=rsCat("description")%> <% rsCat.MoveNext loop end if %> <%rsCat.Close%> Product Category <% ' dim rs ' dim strQry set rs = server.CreateObject("adodb.recordset") %> <% strQry = "" 'strQry = " select distinct hp.prodid,ProductName from Products_Master pm,hallbooking hp where pm.prodid = hp.prodid " strQry = " select distinct prodid,ProductName from Products_Master pm order by ProductName " 'response.Write strqry 'response.end 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("cmbProd")) = trim(rs("prodid")) then%>selected<%end if%>><%=rs("ProductName")%> <% rs.MoveNext loop end if %> ">

<%'-----Filtering of records-----%> <% if trim(request.Form("cmnHallName"))<> "" and trim(request.Form("cmnHallName"))<> "ALL" then strHallName = " and hpd.HallId = "&trim(request.Form("cmnHallName")) ' else ' strHallName = " and hpd.HallId LIKE '%' " end if if trim(request.Form("cmbType"))<> "" and trim(request.Form("cmbType"))<> "-1" then compName = replace(trim(request.Form("cmbType")),"'","''") strType = " and hp.company_name like '%"&compName&"%'" end if if trim(request.Form("cmbCat"))<> "" and trim(request.Form("cmbCat"))<> "-1" then strCat = " and hp.Categoryid = '"&trim(request.Form("cmbCat"))&"'" end if if trim(request.Form("cmbProd"))<> "" and trim(request.Form("cmbProd"))<> "-1" then strProd = " and hp.prodid = '"&trim(request.Form("cmbProd"))&"'" 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 distinct hp.appid,hallname = (select description from "&_ " hallmaster hm where hpd.hallid = hm.hallid),"&_ " company_name,categoryid = (select description from " &_ " AvailableToCatgMaster atcm where atcm.categoryid = hp.categoryid ),"&_ " countryName = (select country_name from country_master cm where "&_ " cm.country_code = hp.country_code),prodid = (select ProductName from "&_ " Products_Master pm where pm.prodid = hp.prodid ) from hallbooking hp,"&_ " hallpreferancedetails hpd where hp.appid = hpd.appid " sqlresultHall = sqlresultHall & strHallName & strType & strCat & strProd ' response.Write sqlresultHall ' response.End SetRecordset rsResultHall, sqlresultHall dim maxrecs maxrecs=0 dim maxpages maxpages = Cint(rsResultHall.Pagecount) maxrecs = Cint(rsResultHall.Pagesize) %>

<% ' ## 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,prod1,cat1 hall = trim(request.Form("hallname")) if hall = "" or hall = "ALL" then hall = "ALL" end if halltype = trim(request.Form("exhibitor")) if halltype = "" or halltype = "-1" then halltype = "ALL" end if prod1= trim(request.Form("product")) if prod1 = "" or prod1 = "-1" then prod1= "ALL" end if cat1 = trim(request.Form("category")) if cat1 = "" or cat1 = "-1" then cat1 = "ALL" end if %> Search Results For : <%=hall & ", "& halltype & ", "&cat1&", "&prod1%><%'=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 %> <% 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%>

Hall	Exhibitor	Country	Exhibition Category	Product category	View Application
<%=trim(rsResultHall("hallname"))%>	<%=trim(rsResultHall("company_name"))%>	<%=trim(rsResultHall("countryName"))%>	<%=trim(rsResultHall("categoryid"))%>	<%=trim(rsResultHall("prodid"))%>	"> View
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 %>