[Pinguim]

No trampo novo, precisei recuperar algumas storedProcedures. Porém o Query Analyzer sempre dava erro ao mes mostrar o conteúdo da query. Então, tive que recuperá-las nas mão. Acabei montando um script simples. Ta aí o código pra que precisar:

[size=-1][font="Calibri"]  <%
  'Recuperar Stored Procedure
  
  Dim NomeProcedure, conexao, conexObj, recordSet
  NomeProcedure = Request.QueryString("procedure")
  conexao =  "Provider=SQLOLEDB.1;SERVER=ecw10;DATABASE=intranet;UID=sa;PWD=autodoc;"  'Não esqueçam de mudar essa linha para a linha de conexão do servidor  que você for utilizar.
  Set conexObj = Server.CreateObject("ADODB.Connection")
  Set recordSet = Server.CreateObject("ADODB.Recordset")
  conexObj.Open conexao
  
  if NomeProcedure&"." <> "." Then
  Dim counter
  do while counter < 4
      select case counter
      case 0
      sql = "select 'intranet' as db,  o.name,SUBSTRING(m.definition,0,255)  from intranet.sys.sql_modules m   inner join intranet..sysobjects o on m.object_id=o.id where [name] =  '"&nomeProcedure&"'"
      case 1
      sql = "select 'intranet' as db,  o.name,SUBSTRING(m.definition,255,255)  from intranet.sys.sql_modules  m  inner join intranet..sysobjects o on m.object_id=o.id where [name] =  '"&nomeProcedure&"'"
      case 2
      sql = "select 'intranet' as db,  o.name,SUBSTRING(m.definition,510,255)  from intranet.sys.sql_modules  m  inner join intranet..sysobjects o on m.object_id=o.id where [name] =  '"&nomeProcedure&"'"
      case 3
      sql = "select 'intranet' as db,  o.name,SUBSTRING(m.definition,765,255)  from intranet.sys.sql_modules  m  inner join intranet..sysobjects o on m.object_id=o.id where [name] =  '"&nomeProcedure&"'"
      case 4
      sql = "select 'intranet' as db,  o.name,SUBSTRING(m.definition,1020,255)  from intranet.sys.sql_modules  m  inner join intranet..sysobjects o on m.object_id=o.id where [name] =  '"&nomeProcedure&"'"
      end select
      Dim Result
      recordSet.Open sql, conexObj
      Result = recordSet.GetRows
      %>
      <%=Result(2,0)%>
      <%
      counter = counter + 1
      recordSet.Close
  Loop
  End If
      %>

[/font][/size]