Gracias a todos por los aportes..
Al Zuwaga: Cree la variable con
Dim conn pero no hay diferencia
comente la línea "
On Error resume next"
y me da el siguiente error:
Microsoft OLE DB Provider for ODBC Drivers error '80040e21'
ODBC driver does not support the requested properties.
/monitor2/codigo.asp, line 22
La línea 22 es -->
Rs.Open sql, conn
Nota: u_goldman cuando descomento "
On Error resume next" me da error con las dos.
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_ccnpg_web;PWD=ucw531_l"
MM_Intranet_STRING = conn
'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_instituciones"
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
'END FUNCTION
response.write ver_objeto
%>
La idea es capturar el error que genera al tratar de buscar una tabla y no la consiga.. yo lo que hago es contar los registros..