'--- SET UP COMMAND Dim Set =Server.CreateObject("ADODB.Command") .ActiveConnection=[put connection object here] .CommandType=adCmdStoredProc .CommandText="" '--- SET UP PARAMETERS With .Parameters End With '--- FILL PARAMETER VALUES '[add necessary code to populate parameters] '--- EXECUTE COMMAND 'if you're not returning a recordset use... '.Execute ,,adExecuteNoRecords 'otherwise use... 'Dim oRec 'Set oRec=Server.CreateObject("ADODB.Recordset") 'oRec.open '--- CLEAN UP Set =Nothing .Append .CreateParameter("",,adParamInputOutputadParamInput) .Append .CreateParameter("",,adParamInputOutputadParamInput,) .Append .CreateParameter("",,adParamInputOutputadParamInput) .item("").Precision= .item("").NumericScale=