<% '============================================================== ' TableEditoR 0.81 Beta ' http://www.2enetworx.com/dev/projects/tableeditor.asp '-------------------------------------------------------------- ' File: te_doproc.asp ' Description: Makes changes to a stored procedure ' Initiated By raf on 31 Mar, 2002 '-------------------------------------------------------------- ' Copyright (c) 2002, 2eNetWorX/dev. ' ' TableEditoR is distributed with General Public License. ' Any derivatives of this software must remain OpenSource and ' must be distributed at no charge. ' (See license.txt for additional information) ' ' See Credits.txt for the list of contributors. ' ' Change Log: '-------------------------------------------------------------- '============================================================== %> <% Dim query Const adClipString = 2 lConnID = request("cid") sProcName = request("procname") action = request("action") if action="new" then query=trim(request("txtproc")) else if action="alter" then query=replace(trim(request("txtproc")),"CREATE", "ALTER") else if action="remove" then query="DROP PROCEDURE dbo." & sProcName end if end if end if conn.Open arrConn(lConnID) Conn.Execute(query) if action="new" then proctxtArray=split(query," ",-1,1) sProcName=trim(proctxtArray(2)) 'response.write sProcName query="SELECT CURRENT_USER as currUser" set RS=Conn.Execute(query) query="EXEC sp_changeobjectowner '" & trim(RS("currUser")) & "." & mid(sProcName,1,len(sProcName)-2) & "', 'dbo'" 'response.write query Conn.Execute(query) end if conn.close %>

Home » Connections » "><%=arrDesc(request("cid"))%> » execute procedure

<% if bProtected then response.write session("teFullName") response.write " (logout)" end if %>