- <%@ LANGUAGE=VBSCRIPT %>
- <!-- META TYPE="typelib" FILE="c:\program files\Fichiers communs\system\ado\msadox.dll" -->
- <%
- Dim strConn
- strConn = "dsn=test"
- %>
-
- <HTML>
- <HEAD>
- <TITLE>Lister les procédures stockées</TITLE>
- </HEAD>
-
- <BODY BGCOLOR="#FFFFFF">
- <%
- Set rsProc = Server.CreateObject("ADOX.Catalog")
-
- rsProc.ActiveConnection = strConn
-
- For Each proc In rsProc.Procedures
- Response.Write proc.Name & "<br>"
- Next
-
- Set proc = Nothing
- Set rsProc = Nothing
- %>
- </BODY>
- </HTML>
<%@ LANGUAGE=VBSCRIPT %>
<!-- META TYPE="typelib" FILE="c:\program files\Fichiers communs\system\ado\msadox.dll" -->
<%
Dim strConn
strConn = "dsn=test"
%>
<HTML>
<HEAD>
<TITLE>Lister les procédures stockées</TITLE>
</HEAD>
<BODY BGCOLOR="#FFFFFF">
<%
Set rsProc = Server.CreateObject("ADOX.Catalog")
rsProc.ActiveConnection = strConn
For Each proc In rsProc.Procedures
Response.Write proc.Name & "<br>"
Next
Set proc = Nothing
Set rsProc = Nothing
%>
</BODY>
</HTML>