Crash Con Compilador De Sql En Asp! resulta que tengo tomé prestado un código por ahi y lo modifiqué un poco...
es un código de un compilador sql, que funciona bastante bien, incluso cuando uno pone cualquier cosa, gracias al on error resume next me tira un mensaje descriptivo del error...
pero hice una prueba y por suerte tengo el servidor en forma local sino
...lo q pasó es que puse esto:
select * from clientes where id = 4
siendo q en la tabla clientes no hay un "id" como atributo... (lo hice sólo para probar
)... resultado: se me reinició el pc!!imagínense lo corro en un servidor de webhosting o algo parecido y me equivoco en un caracter de atributo... boto el server!!
acá coloco el código por si alguien sabe que se puede agregar para que no pase este problema... gracias
<%
dim ssql
dim objecte
if request.QueryString("flag")=1 then
ssql=request.Form("ssql")
%>
<p align=center><font size=2>Sentencia sql:</font></p>
<p align=center><font size=2><b><%=ssql%></b></font></p>
<%
if ssql<>"" then
On Error Resume Next
set rs = bd.execute(ssql)
if Err <> 0 Then
%>
<p align=center><font size=2>Error: La consulta no es válida</font></p>
<%
end if
'---->rutina del select
if lcase(left(ssql,6))="select" then
if not rs.eof then
%>
<table border=1 cellspacing=0 cellpadding=5><tr>
<%
for each objecte in rs.Fields
response.Write("<td align=center><b> " & objecte.name & " </b>")
next
response.Write("</tr>")
do while not rs.EOF
%>
<tr>
<%
for each objecte in rs.Fields
if not isnull(objecte) then 'si no es null
if trim(objecte) = "" then 'si està en blanc (li trec tots els espais)
response.Write("<td align=center>[<i>" & chr(34) & chr(34) & "</i>]</td>")
else
response.Write("<td align=left>" & objecte & "</td>")
end if
else
response.Write("<td align=center>[<i>null</i>]</td>")
end if
next
response.Write("</tr>")
rs.MoveNext
loop
response.Write("</tr></table>")
else
%>
<p align=center><font size=2>No hay datos para mostrar</font></p>
<%
end if
end if
'<---------
%>
<p align=left><font size=3>Sql ejecutado</font></p>
<%
else
%>
<p align=center><font size=2>No hay una sentencia para ejecutar</font></p>
<%
end if
end if
%>
<form action="compilador.asp?flag=1" method="post" ID="Form1">
<textarea name="ssql" cols="60" rows="5" ID="Textarea1"></textarea>
<br>
<input type="submit" value="Enviar SQL" ID="Submit1" NAME="Submit1">
</form>
