Function AddParams(strProcName, intReportID, strErrDesc)
Dim lngRetVal
Dim objCmdParams
Dim objCn
Dim n

On Error Resume Next
Set objCmdParams = Server.CreateObject("ADODB.Command")
Set objCn = Server.CreateObject("ADODB.Connection")

objCn.open g_strConnect

If Err = 0 Then
' First delete any existing param info in tblReportParams

lngRetVal = Exec_asprep_del_tblReportParams(intReportID, strErrDesc)

If lngRetVal <> 0 Then 
Response.Redirect "Error.asp?ErrNum=" & lngRetVal & "&ErrDesc=" & strErrDesc
lngRetVal = 0
End If

' Now gather up parameter info.
With objCmdParams
.Commandtext = strProcName
.Commandtype = adCmdStoredProc
Set .ActiveConnection = objCn
.Parameters.Refresh

For n =1 to .Parameters.Count -1' we want to skip RETURN_VALUE

' Add to tblReportParams
lngRetVal = Exec_asprep_ins_tblReportParams(intReportID, Replace(objcmdparams.Parameters(n).name,"@",""), strErrDesc)

If lngRetVal <> 0 Then 
Response.Redirect "Error.asp?ErrNum=" & lngRetVal & "&ErrDesc=" & strErrDesc
lngRetVal = 0
End If
Next

End With
End If

If Err <> 0 Then
AddParams = Err.Number
strErrDesc = Err.description
End If
End Function