<%@ Language=VBScript%> <% dim strpagecode, nmId strpagecode= "FAIRG05" session("usertype")="SUS" nmId=Request.QueryString("Id") %> View Space 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 Space" Proc_TO_Display_NavigationPath NavigArray, "A" %>
View Space Details
<%dim rsspace set rsspace=server.CreateObject("ADODB.Recordset") rsspace.ActiveConnection=objConn rsspace.CursorType=1 rsspace.Open "Select Description,minBookSpace,maxBookSpace,AvailforBook from SpaceMaster where SpaceId="& nmId &"" %> <%dim rsavail set rsavail=server.CreateObject("ADODB.Recordset") rsavail.ActiveConnection=objConn rsavail.CursorType=1 rsavail.Open "select a.Description from AvailableToCatgMaster a, SpaceAvailToDetails b where b.SpaceId="& Request.QueryString("Id")&" and a.CategoryId=b.CategoryId" %> <%if rsspace("AvailforBook")="Y" then check="Yes" else check="No" end if %>
Space Details
Space Name
<%=rsspace("Description")%>
Min Bookable Space ( Sq. mtr.)
<%=rsspace("minBookSpace")%>
Maximum Bookable Space ( Sq. mtr.)
<%=rsspace("maxBookSpace")%>
Exhibitor Category
<%if not rsavail.EOF then while not rsavail.EOF %>
<%=rsavail("Description")%> <%rsavail.MoveNext wend end if %>
Available For Booking
<%=check%>
<% rsspace.Close set rsspace=nothing rsavail.Close set rsavail=nothing %>