<%
'==============================================================
' TableEditoR 0.81 Beta
' http://www.2enetworx.com/dev/projects/tableeditor.asp
'--------------------------------------------------------------
' File: te_procmanager.asp
' Description: View and modify stored procedures
' 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:
'--------------------------------------------------------------
'==============================================================
%>
<%
Const adClipString = 2
Function GetSPText(objConn, strSPName)
'On Error Resume Next
Dim sql
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "sp_helptext " & strSPName
Set rs = objConn.Execute(sql)
GetSPText = rs.GetString(adClipString,," "," ")
Set rs = Nothing
End Function
lConnID = request("cid")
sProcName = request("procname")
conn.Open arrConn(lConnID)
action = request("action")
if action="new" then
SPText=""
labelbutton="New"
header="Write new stored procedure"
else
if action="alter" then
SPText=GetSPText(Conn, sProcName)
labelbutton="Alter"
'button=""
button=""
newAction="te_doproc.asp?cid=" & lConnID & "&action=remove&procname="&sProcName
header="Modify stored procedure"
else
if action="remove" then
SPText=GetSPText(Conn, sProcName)
labelbutton="Remove"
'button=""
button=""
newAction="te_doproc.asp?cid=" & lConnID & "&action=alter&procname="&sProcName
header="Remove stored procedure"
end if
end if
end if
%>