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"
%>
<%=langSPName%>
<%=langSPCode%>
<%=langSPActions%>
<%
for each item in dba.Views.Items
if sClass = "oddrow" then sClass = "evenrow" else sClass = "oddrow"
%>