Procs Function:

The Procs Function returns an array containing the names of all procedures in a database. There is one required argument, connstring which must be a valid OLE database connection string.

Syntax:
array = Procs(connstring)
Example Usage: 
<%
dim i, a, cn

cn = 	"Provider=Microsoft.Jet.OLEDB.4.0;" & _
	"Data Source=" & server.mappath("/aspemporium/mydata.mdb") & ";"

a = Procs(cn)

for i = 0 to ubound(a) - 1
	 ' write each procedure name to the browser
	response.write a(i) & "<BR>"
next
%>
ASP Source Code: 
<%
Private Function Procs(byval connstring)
	Dim adox, i, strProcs
	Set adox = Server.CreateObject("ADOX.Catalog")
	adox.ActiveConnection = connstring
	for i = 0 to adox.procedures.count - 1
		strProcs = strProcs & adox.procedures(i).name & vbCrLf
	next
	Set adox = nothing
	Procs = split( strProcs, vbCrLf )
End Function
%>