Amigos, estoy tratando que ingresar un código en una función, pero cuando lo pongo dentro de la función, no hace lo mismo..
Me explico mejor: La idea de este código es verificar los registros de unas tablas, y cuando no tenga registro o no consiga la tabla debe dar un error, en este caso también tiene un sonido. Pero al transformar el código en función, muestra los registros, lo único que no hace es que si no consigue los registros debería dar un error, pero esta parte no funciona.
Es más debería imprimir por lo menos "-->" osea la variable vacia pero no lo hace.
ayuda que en verdad tengo rato buscando el error y no lo consigo.
Código:
<!--#include virtual="Connections/ccnpg_web.asp"-->
<%
FUNCTION ver_objeto()
Msg1= "<SPAN class=tAlertNorm >No se encontro el objeto </SPAN>"
Msg2=" Registros fueron encontrados "
SoundAlerta = "<embed src=/sound/alerta.wav autostart=true hidden=true loop=4 >"
sql = "SELECT id FROM VwSys_areaconocimiento"
objeto = "Areas"
set Rs = Server.CreateObject("ADODB.Recordset")
Rs.CursorType=1
Msg ="-->"
Rs.Open sql, conn
if Rs.EOF then
Msg = SoundAlerta+Msg1 ' Mensaje error
ELSE
Msg="<b>"&Rs.RecordCount&"</b>"&Msg2 ' mensaje OK
end if
Rs.close
ver_objeto = "<br>"+objeto&": "+Msg
'response.write "<br>"+Icon+" "+objeto&": "+Msg
END FUNCTION
response.write ver_objeto
%>