<%@ Language=VBScript%>
<%
dim strpagecode, IDD
strpagecode= "FAIRG03"
session("usertype")="SUS"
IDD=Request.QueryString("Id")
%>
<%
'The following statements will be used for inserting the values to the databases
if Trim(Request.Form("hdRequestAdd"))= "Y" then
Dim chdesc,strIsIndian,chquery1
Dim chModifiedId,chModifyDate
chdesc=Replace(trim(request.Form("description")),"'","''")
if trim(request.Form("chkIndian")) = "on" then
strIsIndian = "Y"
else
strIsIndian = "N"
end if
chquery1 = trim(request.Form("hdquery"))
chModifiedId = Session("userid")
chModifyDate = now()
strinsert="Update AvailableToCatgMaster set Description='"& chdesc &"',IsIndian='"& strIsIndian &"',ModifyUserId='"& chModifiedId &"',ModifyDate='" & chModifyDate & "' where CategoryId="& chquery1 &" "
Response.Write strinsert
'Response.End
ObjConn.Execute strinsert
if err.number<>0 then
Response.Redirect "/inc/admin/error.asp?errortype=err_record§ion="&server.URLEncode("Hall Registration")
Response.End
else
Response.Redirect "/inc/admin/confirm.asp?message=1§ion=" & Server.URLEncode("Hall Registration")& "&path=/fairregistration/admin"
Response.End
end if
end if
%>
Add Category Details - <%=Application("Title")%>