aki hay otro ejemplito...ingresa parametros de entrada y te arroja un parametro de salida.
<pre>
Status="001"
Idtrx="105"
strConnectionString ="TU_DSN"
Set cn = server.createobject("ADODB.Connection")
Set cmd = server.createobject("ADODB.Command")
cn.ConnectionString = strConnectionString
cn.Open
With cmd
Set .ActiveConnection = cn
.CommandText = "Nombre_sp"
.CommandType = 4
Set params = .Parameters
End With
params.Append cmd.CreateParameter("@strStatus", adVarChar, adParamInput, 3)
params.Append cmd.CreateParameter("@Idtrx", adVarChar, adParamInput, 4)
params.Append cmd.CreateParameter("@strMsgUser", adVarChar, adParamOutput, 255)
params("@strStatus") = Status
params("@Idtrx") = Idtrx
cmd.Execute , , adExecuteNoRecords
StrRespuesta = params("@strMsgUser")
set cn= nothing
set cmd= nothing
</pre>
Espero te ayude :P