Converter un obxecto ADO Command na súa representación textual para invocar no SQL Server

command2text.asp

<%

' Converter un Comando ADO a súa representación textual para invocar no SSMS
' Parámetro: Obxecto ADO Command
' USO: 
'     Response.Write Command2Text(AdoCommand)
Function Command2Text(Cmd)
	Dim paramIdx, paramStr, re
	paramStr = "EXEC "
	
	Set re = New RegExp
	
	' { ? = call Paf_Reclamacion_Reclamaciones_Traslados(?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?) }
	re.Pattern = "^\{ \? = call (.*?)\(.*?\) \}$"
	re.IgnoreCase = True
	re.Global = False
	re.MultiLine = False

    paramStr = paramStr &  re.Replace(Cmd.CommandText, "$1 ")

	For paramIdx = 1 To Cmd.Parameters.Count - 1
		If paramIdx <> 1 Then
			paramStr = paramStr & "," & vbCrLf
		End If

		paramStr = paramStr & Cmd.Parameters.Item(paramIdx).Name & "=" & "'" & Cmd.Parameters.Item(paramIdx).Value & "'"
	Next

	Command2Text = paramStr
End Function 
%>