<!-- #include file="includes/conexion.inc"-->
<%
On error Resume Next
Server.ScriptTimeout = 86400
%>
<script language="javascript">
function areaTexto(tipo){
if (tipo == "+"){
document.getElementById('Sql').rows += 5;
}
else{
if (document.getElementById('Sql').rows > 5){
document.getElementById('Sql').rows -= 5;
}
}
}
</script>
<form action="adm_sql.asp" method="post">
<input type="hidden" name="mode" value="query">
<table border="1">
<tr>
<td colspan="2"><textarea name="Sql" rows="5" cols="80"><%=rtrim(Request("Sql"))%></textarea></td>
</tr>
<tr>
<td><input type="submit" value="Ejecutar"></td>
<td align="right"><a href="#" onclick="areaTexto('+');">+</a> <a href="#" onclick="areaTexto('-');">-</a></td>
</tr>
</table>
</form>
<%
if (Request("mode")="query" and rtrim(Request("Sql"))<>"") then
Dim total_registros
total_registros = 0
Sql = Replace(lcase(Request("Sql")),"print","select")
Set Rs = con.Execute(Sql)
if err.number <> 0 then
response.write "<tt><b>Error:</b> " + err.description + "</tt>"
On Error GoTo 0
else
if not Rs.EOF then
response.Write "<table border=1>"
response.Write "<tr>"
for i=0 to rs.fields.count-1
response.write "<td>" & rs(i).name & "</td>"
next
response.write "</tr>"
while not Rs.EOF
response.write "</tr>"
for i=0 to rs.fields.count-1
response.write "<td>"
if (isnull(rs(i)) = false or rtrim(rs(i))="") then
response.write rs(i)
else
response.write " "
end if
response.write "</td>"
next
total_registros = total_registros + 1
response.Write "</tr>"
rs.Movenext
wend
response.write "</table>"
end if
Set Rs = nothing
response.write "(" & total_registros & " filas afectadas)"
end if
end if
%>