<%@ Language=VBScript %> DBA:<%=langCaptionViews%> <% call DBA_WriteNavigation%> <% On Error Resume Next dim dba, item, sClass, action dim EditName, EditBody action = CStr(Request("action").Item) set dba = new DBAdmin dba.Connect Session(DBA_cfgSessionDBPathName), Session(DBA_cfgSessionDBPassword) DBA_BeginNewTable langViews, "", "90%", "" if dba.HasError then DBA_WriteError dba.LastError Select Case action Case "create" dba.CreateView Request.Form("vname").Item, Request.Form("vbody").Item action = "" if dba.HasError then DBA_WriteError dba.LastError EditName = Request.Form("vname").Item EditBody = Request.Form("vbody").Item end if Case "edit" if dba.Views.Exists(Request.QueryString("name").Item) then EditName = Request.QueryString("name").Item EditBody = dba.Views.Item(Request.QueryString("name").Item).Body action = "update" end if Case "update" set item = dba.Views.Item(Request.Form("origname").Item) item.Name = Request.Form("vname").Item item.Body = Request.Form("vbody").Item action = "" if dba.HasError then DBA_WriteError dba.LastError Case "delete" dba.DeleteView Request.QueryString("name").Item action = "" if dba.HasError then DBA_WriteError dba.LastError End Select if Len(action) = 0 then action = "create" %> <% for each item in dba.Views.Items if sClass = "oddrow" then sClass = "evenrow" else sClass = "oddrow" %> <% next%>
<%=langSPName%> <%=langSPCode%> <%=langSPActions%>
<%=item.Name%>
<%=langCreated & ": " & item.DateCreated%>
<%=langModified & ": " & item.DateModified%>
<%=HighlightSQL(item.Body)%> "><%=langRunViewAlt%>  <%=langEditView%>  <%=langDeleteViewAlt%>
<%if action = "update" then Response.Write langUpdateView else Response.Write langCreateNewView%>
<%=langViewName%>
<%=langSQLStatement%>
" class="button" id="Submit1">
<% call DBA_EndNewTable set dba = Nothing %>