<% '============================================================== ' TableEditoR 0.81 Beta ' http://www.2enetworx.com/dev/projects/tableeditor.asp '-------------------------------------------------------------- ' File: te_runquery.asp ' Description: Executes a query ' Initiated By Hakan Eskici on Nov 01, 2000 '-------------------------------------------------------------- ' 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: '-------------------------------------------------------------- ' Mar 31, 2001 by Hakan Eskici ' Added security check '============================================================== %> <% if not bSQLExec then response.redirect "index.asp" end if lConnID = request("cid") sSQL = request("txtSQL") 'Query returns records? if request("chkRec") = "" then bRecordReturn = False else bRecordReturn = True response.redirect TableViewerCompat & "?cid=" & lConnID & "&q=1&tablename=" & server.urlencode(sSQL) end if %>

Home ť Connections ť "><%=arrDesc(request("cid"))%> ť Run Query

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

<% response.write "

Executing Query:

" response.write "

" & sSQL & "

" on error resume next conn.Open arrConn(lConnID) set rs = conn.Execute (sSQL, lRecordsAffected) if Err <> 0 then response.write "

Error:

" response.write err.description end if if not bRecordReturn then 'If the query doesnt return records; response.write lRecordsAffected & " records affected." end if %>