%@ Language=VBScript%> <% dim strpagecode strpagecode= "FAIRG02" session("usertype")="SUS" %> <% dim sqlHall,rsHall hid = request("ic") if isNumeric(hid) <> true then response.Redirect "/inc/admin/error.asp?errortype=err_record§ion="&server.URLEncode("Modify Hall Registration") end if sqlHall = " select * from HallMaster where hallid ="&hid 'on error resume next set rsHall = objconn.execute(sqlHall) if not(rshall.eof or rshall.bof) then varHallid = trim(rsHall("typecode")) else response.Redirect "/inc/admin/error.asp?errortype=err_record§ion="&server.URLEncode("Modify Hall Registration") end if if err > 0 then response.Redirect "/inc/admin/error.asp?errortype=err_record§ion="&server.URLEncode("Modify Hall Registration") response.End end if %>
|