<%	Option Explicit %>
<%
dim strpagecode
strpagecode= "FAIRG02"
session("usertype")="SUS"
%>

<!-- #include virtual="/inc/commoninc/connection.asp"-->
<!-- #include virtual="/inc/admin/security.asp"-->
<%
	dim hid 
	hid = request("hid")
	dim strinsert
	dim rs
	
	dim nmId 
	dim strName
	dim strType
	dim nmMinbkbaresp
	dim nmMinbkshellsp
	dim strProductCodes
	dim strCategoryCodes
	dim strIsAvailable
	
	dim strCreateUserId
	dim strCreateDate
	dim strQry
	dim nmNextMaxHallId
	dim nmMaxBareSpace
	dim nmMaxShellSpace
	
	nmId = 0
	strName = ""
	strType = ""
	nmMinbkbaresp = 0
	nmMinbkshellsp = 0
	strProductCodes = ""
	strCategoryCodes = ""
	strIsAvailable = ""
	strCreateUserId = ""
	strCreateDate = ""
	strQry = ""
	nmNextMaxHallId = 0
	
	nmMaxBareSpace = 0
	nmMaxShellSpace = 0
	
	strName = trim(request.Form("halldesc"))
	strType = trim(request.Form("cboType"))
	nmMinbkbaresp = trim(request.Form("minbkbaresp"))
	nmMinbkshellsp = trim(request.Form("minbkshellsp"))
	strProductCodes = trim(request.Form("cboProducts"))
	strCategoryCodes = trim(request.Form("cboCategory"))
	strIsAvailable = trim(request.Form("cboAvailable"))
	
	if trim(request.Form("maxbkbaresp")) = "" then 
		nmMaxBareSpace = 0
	else
		nmMaxBareSpace = trim(request.Form("maxbkbaresp"))
	end if
	
	if trim(request.Form("maxbkshellsp")) = "" then 
		nmMaxShellSpace = 0
	else
		nmMaxShellSpace = trim(request.Form("maxbkshellsp"))
	end if
	
	strCreateUserId = trim(Session("userid"))
	strCreateDate = now()
	
	dim arrCatgs
	dim arrProds
	
	arrCatgs = split(strCategoryCodes,",",-1,1)
	arrProds = split(strProductCodes,",",-1,1)
	
	set rs = Server.CreateObject("ADODB.RECORDSET")
	
	'Before inserting the record for a Product Category, it has to be checked for duplicate
	'Product Id / code.


		'Inserting into the Hall Master.	
		if nmMaxBareSpace = 0 and nmMaxShellSpace = 0  then 
		
		strinsert = " Update HallMaster set Description = '" & strName & "',"&_
		" TypeCode = '" & strType & "',  MinBookBareSpaceId  = " & nmMinbkbaresp & ","&_
		" MinBookShellSpaceId = " & nmMinbkshellsp &", "&_
		" AvailforBook = '" & strIsAvailable &"',CreateUserId = '" & strCreateUserId & "', "&_
		" createDate = '" & strCreateDate & "',MaxBookBareSpaceId = NULL,MaxBookShellSpaceId = NULL "&_
		" where hallid = "&hid&""
		
		elseif nmMaxBareSpace = 0 and nmMaxShellSpace <> 0  then 
		
			strinsert = " Update HallMaster set Description = '" & strName & "',"&_
						" TypeCode = '" & strType & "',  MinBookBareSpaceId  = " & nmMinbkbaresp & ","&_
						" MinBookShellSpaceId = " & nmMinbkshellsp &", "&_
						" AvailforBook = '" & strIsAvailable &"',CreateUserId = '" & strCreateUserId & "', "&_
						" createDate = '" & strCreateDate & "',MaxBookBareSpaceId = NULL,MaxBookShellSpaceId = " & nmMaxShellSpace & " "&_
						" where hallid = "&hid&""
		
		elseif nmMaxBareSpace <> 0 and nmMaxShellSpace = 0  then 
			
			strinsert = " Update HallMaster set Description = '" & strName & "',"&_
						" TypeCode = '" & strType & "',  MinBookBareSpaceId  = " & nmMinbkbaresp & ","&_
						" MinBookShellSpaceId = " & nmMinbkshellsp &", "&_
						" AvailforBook = '" & strIsAvailable &"',CreateUserId = '" & strCreateUserId & "', "&_
						" createDate = '" & strCreateDate & "',MaxBookBareSpaceId = "&nmMaxBareSpace&",MaxBookShellSpaceId = null "&_
						" where hallid = "&hid&""
		elseif nmMaxBareSpace <> 0 and nmMaxShellSpace <> 0  then 
			
			strinsert = " Update HallMaster set Description = '" & strName & "',"&_
						" TypeCode = '" & strType & "',  MinBookBareSpaceId  = " & nmMinbkbaresp & ","&_
						" MinBookShellSpaceId = " & nmMinbkshellsp &", "&_
						" AvailforBook = '" & strIsAvailable &"',CreateUserId = '" & strCreateUserId & "', "&_
						" createDate = '" & strCreateDate & "',MaxBookBareSpaceId = "&nmMaxBareSpace&",MaxBookShellSpaceId = " & nmMaxShellSpace & " "&_
						" where hallid = "&hid&""
		end if 
		
		
		on error resume next
		
		ObjConn.Execute strinsert
		
		if err <> 0 then
			response.Redirect "/inc/admin/error.asp?errortype=err_record&section="&server.URLEncode("Hall Registration")
			Response.End
		end if

		on error goto 0
		
		'Inserting into HallAvailToCatgDetails
		dim i,sqldelete
		i = 0
		sqlDelete = "delete HallAvailToCatgDetails where hallid = "&hid
		objconn.execute(sqlDelete) 
		
		for i = 0 to ubound(arrCatgs)
		
		strinsert = "insert into HallAvailToCatgDetails(hallid,categoryid,CreateUserId,createDate) values("&hid&","&trim(arrCatgs(i))&",'" & strCreateUserId & "','" & strCreateDate & "')"
	'	strinsert = " update HallAvailToCatgDetails  set  "&_
	'	" categoryid = "&trim(arrCatgs(i))&",CreateUserId = '" & strCreateUserId & "', createDate = '" & strCreateDate & "' where hallid = "&hid&" "
	'	response.Write strinsert	
			
			on error resume next
			
			ObjConn.Execute strinsert
			
			if err <> 0 then
				response.Redirect "/inc/admin/error.asp?errortype=err_record&section="&server.URLEncode("Hall Registration")
				Response.End
			end if

			on error goto 0
		
		next 
		
		'Inserting into HallProdCatgDetails
		dim sqlDeleteHallProdCatg
		sqlDeleteHallProdCatg = "delete from HallProdCatgDetails where hallid ="&hid
		objconn.execute(sqlDeleteHallProdCatg)

		for i = 0 to ubound(arrProds)
			
						
			strinsert ="insert into HallProdCatgDetails(hallid,ProdID,CreateUserId,createDate) values("&hid&"," & trim(arrProds(i)) & ",'" & strCreateUserId & "','" & strCreateDate & "')"
			
			
			on error resume next
			
			ObjConn.Execute strinsert
			
		
			if err <> 0 then
'				objconn.RollbackTrans
				response.Redirect "/inc/admin/error.asp?errortype=err_record&section="&server.URLEncode("Hall Registration")
				Response.End
			end if
			on error goto 0
		
		next 
		
		if err <> 0 then
'			objconn.RollbackTrans
			response.Redirect "/inc/admin/error.asp?errortype=err_record&section="&server.URLEncode("Hall Registration")
			Response.End
		else
'			objconn.CommitTrans
			Response.redirect "/inc/admin/confirm.asp?message=1&section=" & Server.URLEncode("Hall Registration")& "&path=/fairregistration/admin"
		end if



%>