<%@ Language=VBScript%> <% dim strpagecode strpagecode= "FAIRG02" session("usertype")="SUS" %> Add 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) = "Add Hall" Proc_TO_Display_NavigationPath NavigArray, "A" %>
Add 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("Add Hall") Response.End end if on error goto 0 %> <% strQry = "" strQry = " select ProdId, ProductName from Products_Master 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 %> <% strQry = "" 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 %>
Hall Details
Hall Name
*
Type
*
Minimum Bookable Bare Space
*
Maximum Bookable Bare Space
Minimum Bookable Shell Scheme
*
Maximum Bookable Shell Scheme
Products Category
*
Exhibitor Category
*
Available For Booking
* Indicates required field