Amigos creo que resolvimos el problema!!!
Aquí les dejo el código
Código:
<%
DIM conn
set conn=server.createObject("adodb.connection")
On Error resume next
servername = "ctsi-tech-sv001.cnu.gov.ve"
db = "ccnpg_test"
conn.open "DRIVER={SQL Server};SERVER="+servername+";DATABASE="+db+";UID=user;PWD=contrasena"
MM_Intranet_STRING = conn
FUNCTION ver_objeto()
Msg1= "<SPAN class=tAlertNorm >No se encontraron registros </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
On Error resume next '<-- agregado se salta la línea en caso de error
Rs.Open sql, conn,3,3
If Err.Number <> 0 Then '<-- agregado muestra el error en caso de no conectarse
Msg1= err.number&": "&err.description
End If
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
END FUNCTION
response.write ver_objeto
%>
Antes de la línea 22 coloque otro
On error Resume Next, le agregue la descripción del error al mensaje. Así que si no consigue la tabla o no tiene permisos te da el error. Si no, te da otro mensaje que dice que la tabla no tiene registros...
Gracias a todos, y esperemos que esto le sirva a otro..