%@ Language=VBScript%>
<%
dim strpagecode
strpagecode= "4SREX03"
%>
Add Hall Details - <%=Application("Title")%>
<%'if Request.form("excen")="" then
' Response.Redirect "/exhibitioncenter/halls"
'end if
%>
<%
if Request("flag")="S" then
if Request("activation")="" then
activation_flag = "N"
else
activation_flag = Request("activation")
end if
'Response.Write Request.form("excencode") & "IO"
if Request("hallarea") = "" then
testarea = "NULL"
else
testarea = Request("hallarea")
end if
strinsert = "insert into exhib_hall_master(center_code, hall_desc, hall_area, hall_area_unit, hall_category,hall_special_features,activate_flag) values('" &_
Request.form("excencode") & "','" & replace(Request("halldesc"),"'","''") & "'," & testarea & ", " &_
"'" & replace(Request("hallunit"),"'","''") & "', '" & Request("hallcat") & "', '" & Replace(Request("hall_spl_feat"),"'","''") & "', " &_
"'" & activation_flag & "')"
set rsupdate = Server.CreateObject("ADODB.RECORDSET")
//Response.write strinsert
//Response.End
'on error resume next
rsupdate.Open strinsert,ObjConn
if err <> 0 then
'Response.Write err.description
'Response.end
response.Redirect "/inc/admin/error.asp?errorno="&err&"§ion="&server.URLEncode("Season")
Response.End
else
Response.redirect "/inc/admin/confirm.asp?message=1§ion=" & Server.URLEncode("Hall Information")& "&path=/exhibitioncenter/halls/admin"
end if
on error goto 0
end if
%>