<%@ Language=VBScript%> <% dim strpagecode strpagecode= "FAIRG02" session("usertype")="SUS" %> <% dim sqlHall,rsHall hid = request("ic") if isNumeric(hid) <> true then response.Redirect "/inc/admin/error.asp?errortype=err_record§ion="&server.URLEncode("Modify Hall Registration") end if sqlHall = " select * from HallMaster where hallid ="&hid 'on error resume next set rsHall = objconn.execute(sqlHall) if not(rshall.eof or rshall.bof) then varHallid = trim(rsHall("typecode")) else response.Redirect "/inc/admin/error.asp?errortype=err_record§ion="&server.URLEncode("Modify Hall Registration") end if if err > 0 then response.Redirect "/inc/admin/error.asp?errortype=err_record§ion="&server.URLEncode("Modify Hall Registration") response.End end if %> Modify Hall Details - <%=Application("Title")%>
<% 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) = "View Hall" Proc_TO_Display_NavigationPath NavigArray, "A" %>
View Hall Details
<% dim rs dim strQry set rs = server.CreateObject("adodb.recordset") %> <% strQry = "" strQry = " select Codetype, 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("Modify Hall Details") Response.End end if on error goto 0 %> <% strQry = "" strQry = " select distinct hpd.prodid,pm.ProductName from hallProdcatgdetails hpd,Products_Master pm where hpd.prodid = pm.prodid and hallid = "&hid 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("Modify Hall details") Response.End end if on error goto 0 %> <% strQry = "" 'strQry = " select CategoryId, Description from availableToCatgMaster where active = 'Y'" strQry = " select distinct hacd.CategoryId, acm.Description from availableToCatgMaster acm,hallavailtocatgdetails hacd where acm.CategoryId = hacd.CategoryId and hacd.hallid ="&hid&" and 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("Modify Hall Details") ' Response.End ' ' end if on error goto 0 %> <%do while not rs.EOF category = category & rs("Description")&"," rs.MoveNext loop %> <%category = mid(category,1,len(category)-1)%> <% dim availability availability = rsHall("availforbook") if availability = "Y" then availability = "Yes" else availability = "No" end if %>
Hall Details
Hall Name
<%=trim(rsHall("Description"))%>
Type
<%=rs("codedesc")%>
Minimum Bookable Bare Space
<%=trim(rsHall("MinBookBareSpaceId"))%>
Maximum Bookable Bare Space
<%=trim(rsHall("MaxBookBareSpaceId"))%>
Minimum Bookable Shell Scheme
<%=trim(rsHall("MinBookShellSpaceId"))%>
Maximum Bookable Shell Scheme
<%=trim(rsHall("MaxBookShellSpaceId"))%>
Products Category
<%do while not rs.EOF product = product & rs("ProductName")&"," rs.MoveNext loop %> <%product = mid(product,1,len(product)-1)%> <%=product%>
Exhibitor Category
<%=category%>
Available For Booking
<%=availability%>
* Indicates required field