<%@ Language=VBScript %> DBA:<%=langProcedures%> <% 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 langStoredProceduresList, "", "90%", "" if dba.HasError then DBA_WriteError dba.LastError Select Case action Case "create" dba.CreateProcedure Request.Form("pname").Item, Request.Form("pbody").Item if dba.HasError then DBA_WriteError dba.LastError EditName = Request.Form("pname").Item EditBody = Request.Form("pbody").Item end if Case "edit" if dba.Procedures.Exists(Request.QueryString("name").Item) then EditName = Request.QueryString("name").Item EditBody = dba.Procedures.Item(Request.QueryString("name").Item).Body action = "update" end if Case "update" set item = dba.Procedures.Item(Request.Form("origname").Item) item.Name = Request.Form("pname").Item item.Body = Request.Form("pbody").Item action = "" if dba.HasError then DBA_WriteError dba.LastError Case "delete" dba.DeleteProcedure 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.Procedures.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)%> ');"><%=langSPExecute%>  <%=langSPEdit%>  <%=langSPDelete%>
<%if action = "update" then Response.Write langUpdateProcedure else Response.Write langCreateProcedure%>
<%=langCreateProcedureNote%>
<%=langProcedureName%>
<%=langSQLStatement%>
<%=langParams1stWay%>
PARAMETERS Param1 LONG, Param2 TEXT(255);
SELECT * FROM Table1 WHERE Column1=Param1 OR Column2=Param2;
<%=langParams2ndWay%>
" class="button" id="Submit1">
<% call DBA_EndNewTable set dba = Nothing %>