<%@ 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) = "Modify Hall" Proc_TO_Display_NavigationPath NavigArray, "A" %>
Modify 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 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("Modify Hall details") 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("Modify Hall Details") ' 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