Como fazer para apresentar todas as triggers de um database?
O código abaixo utiliza um par de recordsets aninhados para capturar as triggers da tabela sysobjects e apresenta-las (através do uso da stored procedure sp_helptext):
dbname = "databasename"
ConnStr = "provider=SQLOLEDB;network=DBMSSOCN;"
ConnStr = ConnStr & "uid=;pwd=;server="
ConnStr = ConnStr & ";database=" & dbname
set Conn = CreateObject("ADODB.Connection")
Conn.Open ConnStr
set rs = Conn.Execute("SELECT name FROM sysobjects WHERE xtype='TR'")
do while not rs.eof
response.write("" & rs(0) & "")
set rs2 = Conn.Execute("EXEC sp_helptext '" & rs(0) & "'")
do while not rs2.eof
Response.Write(rs2(0) & "")
rs2.movenext
loop
rs.movenext
loop
rs.close: set rs = nothing
Conn.Close: set Conn = nothing