<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== ' EDIT Public 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_public_view.asp" ) '------------ ACCESS CONTROL ------------------ %> <% '------------ Variable Definition ------------- Dim parView_id Dim parViewName Dim parPkgInc '------------ Constants Declaration ----------- '------------ Variable Init ------------------- parView_id = QStrPar("FRview_id") parViewName = QStrPar("FRviewname") parPkgInc = QStrPar("FRpkginc") '---------------------------------------------- %> <% Sub Update_View ( NNview_id, SSViewName ) Dim rsTemp, Query_String Query_String = _ " SELECT *"&_ " FROM views"&_ " WHERE view_id = "& NNview_id Set rsTemp = OraDatabase.CreateDynaset( Query_String, cint(0)) 'update fields rsTemp.Edit rsTemp.Fields("view_name").Value = SSViewName rsTemp.Update rsTemp.Close Set rsTemp = nothing End Sub Sub Update_View_Definition ( NNview_id, SSPkgInc ) ' Remove current view definition On Error Resume Next objEH.TryORA ( OraSession ) OraDatabase.ExecuteSQL "DELETE FROM view_def WHERE view_id = "& NNview_id objEH.CatchORA ( OraSession ) If objEH.LastOraFailed = FALSE Then ' Set view definition If SSPkgInc <> "" Then objEH.TryORA ( OraSession ) OraDatabase.ExecuteSQL _ " INSERT INTO view_def"&_ " SELECT TO_NUMBER('"& NNview_id &"') AS view_id, pkg_id FROM packages WHERE pkg_id IN ("& SSPkgInc &")" objEH.CatchORA ( OraSession ) End If End If End Sub %> <% '----------------------- MAIN LINE --------------------------- '--- Process submition --- If (parView_id <> "") AND (parViewName <> "") Then ' All mandatory parameters FOUND 'COMPLETE THE REQUEST... Call Update_View ( parView_id, parViewName ) Call Update_View_Definition ( parView_id, parPkgInc ) Response.Redirect("members_public_view.asp") Else Response.write "Some mandatory parameters are missing!" & "
" 'TODO Response.write QSTR_All End If %>