<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== ' REMOVE 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 '------------ Constants Declaration ----------- '------------ Variable Init ------------------- parView_id = QStrPar("FRview_id") '---------------------------------------------- %> <% Function Remove_View ( NNview_id ) On Error Resume Next ' Remove view_setting objEH.TryORA ( OraSession ) OraDatabase.ExecuteSQL " DELETE FROM view_settings WHERE view_id = "& NNview_id If Err.Number = 0 Then ' Remove view definition OraDatabase.ExecuteSQL " DELETE FROM view_def WHERE view_id = "& NNview_id If Err.Number = 0 Then ' Remove view OraDatabase.ExecuteSQL " DELETE FROM views WHERE view_id = "& NNview_id End If End If objEH.CatchORA ( OraSession ) End Function %> <% '----------------------- MAIN LINE --------------------------- '--- Process submition --- If (parView_id <> "") Then ' All mandatory parameters FOUND Call Remove_View ( parView_id ) Response.Redirect("members_public_view.asp") Else Response.write "Some mandatory parameters are missing!" & "
" 'TODO Response.write QSTR_All End If %>