<%
'==============================================================
' TableEditoR 0.81 Beta
' http://www.2enetworx.com/dev/projects/tableeditor.asp
'--------------------------------------------------------------
' File: te_queryedit.asp
' Description: Edits or creates a query
' Initiated By Hakan Eskici on Nov 22, 2000
'--------------------------------------------------------------
' Copyright (c) 2001, 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:
'-------------------------------------------------------------
' Nov 23, 2000 by Hakan Eskici
' Changed the query name assignment which caused a bug in
' creating and editing queries.
'==============================================================
%>
<%
sub ShowForm
%>
<%
if bProtected then
response.write session("teFullName")
response.write " (logout)"
end if
%>
<%=sAction%>
<%=sErr%>
<%
end sub
lConnID = request("cid")
sQueryName = request("txtQueryName")
sSQL = request("txtSQL")
sQueryName = request("queryname")
sNewQueryName = request("txtQueryName")
'on error resume next
if request("add") <> "" then
bAdd = True
sAdd = "&add=1"
sAction = "Create new Stored Procedure"
else
bAdd = False
sAction = "Edit Stored Procedure"
if request("cmdSave") <> "" then
sSQL = request("txtSQL")
else
OpenRS arrConn(lConnID)
set cmd = server.createobject("adodb.command")
set cat = server.createobject("adox.catalog")
set cat.ActiveConnection = conn
set cmd.ActiveConnection = conn
set views = cat.procedures
set cmd = views(sQueryName).Command
sSQL = cmd.CommandText
conn.close
set conn=nothing
set rs=nothing
set cmd=nothing
set cat=nothing
end if
end if
if request("cmdSave") <> "" then
OpenRS arrConn(lConnID)
set cmd = server.createobject("adodb.command")
set cat = server.createobject("adox.catalog")
set cat.ActiveConnection = conn
set cmd.ActiveConnection = conn
cmd.CommandText = sSQL
set views = cat.procedures
if bAdd then
if sQueryName = "" then
sQueryName = sNewQueryName
end if
views.append sQueryName, cmd
else
views(sQueryName).Command = cmd
'Cannot rename
'views(sQueryName).Name = sNewQueryName
end if
if err <> 0 then
sErr = "Error : " & err.description
bErr = True'
conn.close
set conn=nothing
set rs=nothing
set cmd=nothing
set cat=nothing
ShowForm
else
conn.close
set conn=nothing
set rs=nothing
response.redirect "te_listtables.asp?cid=" & lConnID
end if
else
ShowForm
end if
%>