<%
Dim Con
set con = Server.CreateObject("ADODB.Connection")
Con.Open "dsn", "user", "password"

Con.Execute "CREATE PROCEDURE CountProducts AS Select Count(1) from Products"
%>