<%@ Language=VBScript%>
<%Response.Buffer=true%>
<%
dim strPageCode
	strPageCode  = "32Pro01"
'dim strpagecode
'strpagecode= "FAIRG40"
session("usertype")="NUS"
%>
<!-- #include virtual="/inc/commoninc/connection.asp"-->
<!-- #include virtual="/inc/commoninc/security.asp"-->
<!-- #include virtual="/inc/commoninc/adovbs.inc"-->
<%
'if Request.Form("deleteflag")<>"N" then
	
	set objConnReg=server.CreateObject("adodb.connection")
	objConnReg.ConnectionString=objConn.connectionString
	objConnReg.Open
	dim sql4
	dim sql5
	dim sql6
	on error resume next
	objconnreg.BeginTrans 
	sql4="delete HallBookingTemp "&_
	     "where appid="&session("appid")
	
	response.write sql4
	objConnReg.execute sql4
	
	if err <> 0 then	
		objConnReg.rollbacktrans
		response.Redirect "/inc/commoninc/error.asp?errorno="&err&"&section="&server.URLEncode ("IITF Fair Halls Registration")	
	end if
						
	sql5="delete HallPreferancedetailsTemp "&_
		 "where appid="&session("appid")
	objConnReg.execute sql5
	if err <> 0 then	
		objConnReg.rollbacktrans
		response.Redirect "/inc/commoninc/error.asp?errorno="&err&"&section="&server.URLEncode ("IITF Fair Halls Registration")	
	end if
	sql6="delete HallBookOutdoorSpacedetailsTemp "&_
		" where appid="&session("appid")
	objConnReg.execute sql6
	if err <> 0 then	
		objConnReg.rollbacktrans
		response.Redirect "/inc/commoninc/error.asp?errorno="&err&"&section="&server.URLEncode ("IITF Fair Halls Registration")	
	end if
	on error goto 0
	objConnReg.committrans
	'session("appid")=""
	'session("name")=""
	'response.write " haan " 
	'response.end 
	Response.Redirect Session("httpreferer")
	
'end if
%>