aquí esta la conexión!! pero no entiendo que es lo que debo quitar?? podrían explicar mejor??
Código:
<%
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=usuario;PWD=contrasena"
MM_Intranet_STRING = conn
%>
Así funciona de maravilla!!! pero cuando des comento la función, y debería entrar en mensaje error, no lo hace.. ayuda ya no se que probar!!!
Código:
<%
'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
'response.write "<br>"+Icon+" "+objeto&": "+Msg
'END FUNCTION
response.write ver_objeto
%>