<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== ' ADD NEW Personal View ' --- PROCESS FORM --- '===================================================== %> <% Option explicit ' Good idea to set when using redirect Response.Expires = 0 ' always load the page, dont store %> <% ' Set rfile parameter. This is a return page after Login Call objPMod.StoreParameter ( "rfile", "members_personal_view.asp" ) '------------ ACCESS CONTROL ------------------ %> <% '------------ Variable Definition ------------- Dim parViewName Dim parPkgInc Dim parPubread '------------ Constants Declaration ----------- '------------ Variable Init ------------------- parViewName = QStrPar("FRviewname") parPkgInc = QStrPar("FRpkginc") parPubread = QStrPar("FRpubread") '---------------------------------------------- %> <% Function Create_New_View ( SSviewname, SSPkgInc, NNpubread ) Dim SEQ_view_id If NNpubread = "" Then NNpubread = "N" SEQ_view_id = Get_From_DUAL("SEQ_VIEW_ID.nextval") ' Create new view On Error Resume Next objEH.TryORA ( OraSession ) OraDatabase.ExecuteSQL _ " INSERT INTO views (view_id, view_name, owner_id, base_view, public_read)"&_ " VALUES ("& SEQ_view_id &", '"& SSviewname &"', "& objAccessControl.UserId &", 'N', '"& NNpubread &"')" objEH.CatchORA ( OraSession ) If objEH.LastOraFailed = FALSE Then objEH.TryORA ( OraSession ) ' Set view_setting to SHOW new view OraDatabase.ExecuteSQL _ " INSERT INTO view_settings (user_id, view_id)"&_ " VALUES ("& objAccessControl.UserId &", "& SEQ_view_id &")" ' Set view definition If SSPkgInc <> "" Then OraDatabase.ExecuteSQL _ " INSERT INTO view_def"&_ " SELECT TO_NUMBER('"& SEQ_view_id &"') AS view_id, pkg_id FROM packages WHERE pkg_id IN ("& SSPkgInc &")" End If objEH.CatchORA ( OraSession ) End If End Function %> <% '----------------------- MAIN LINE --------------------------- '--- Process submition --- If (parViewName <> "") Then ' All mandatory parameters FOUND ' report errors if found If View_Name_Exists( parViewName, objAccessControl.UserId ) Then Session("reqParam") = "" Session("ERRlog") = "" Session("ERRlogFULL") = "" Session("AdditionalParams") = "$PERSONALVIEWNAME$,"& parViewName Response.Redirect("message.asp?msg=202-9") End If 'COMPLETE THE REQUEST... Call Create_New_View ( parViewName, parPkgInc, parPubread ) Response.Redirect("members_personal_view.asp") Else Response.write "Some mandatory parameters are missing!" & "
" 'TODO Response.write QSTR_All End If %>