<%@ Language=VBScript%> <% dim strpagecode, SIDD,CIDD strpagecode= "FAIRG05" session("usertype")="SUS" SIDD=Request.QueryString("SID") CIDD=Request.QueryString("CID") %> Modify Space Rate 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 Rate Details" Proc_TO_Display_NavigationPath NavigArray, "A" %>
View Space Rate Details
<%dim rsspace set rsspace=server.CreateObject("ADODB.Recordset") rsspace.ActiveConnection=objConn rsspace.CursorType=1 rsspace.Open "SELECT Description FROM SpaceMaster where SpaceId = "& SIDD &"" %> <%dim rscategory set rscategory=server.CreateObject("ADODB.Recordset") rscategory.ActiveConnection=objConn rscategory.CursorType=1 rscategory.Open "SELECT CategoryId, Description, Isindian FROM AvailableToCatgMaster where CategoryId = "& CIDD &"" %> <%dim rsrate,inrate,usrate set rsrate=server.CreateObject("ADODB.Recordset") rsrate.ActiveConnection=objConn rsrate.CursorType=1 rsrate.Open "SELECT Rate_INR,Rate_USD FROM SpaceRateMaster where SpaceId="& SIDD &" and CategoryId = "& CIDD &"" %> <% if rsrate("Rate_INR")="0" then inrate="-" else inrate=rsrate("Rate_INR") end if if rsrate("Rate_USD")="0" then usrate="-" else usrate=rsrate("Rate_USD") end if %>
Space Rate Details
Space
<%=rsspace("Description")%>
Category
<%=rscategory("Description")%>
Rate
<%=inrate%> (Indian Rs.) <%=usrate%> (US $)
"> ">
<% rsspace.Close set rsspace=nothing rscategory.Close set rscategory=nothing rsrate.Close set rsrate=nothing %>