How Can I Process More Than One Row And Get A New Output Number For Each

I have the following stored procedure that first inserts a new receiptnumber into a numbercounter table and then uses that number in another insert for a payment. My problem is I'm only getting one new receiptnumber so if there are more than one payment in the second insert it fails because of a constraint on the payment table that will not let the same receiptnumber be used more than once.

I need to Insert a new receiptnumber for each row in the second insert.

How can I do this?

@ReceiptNumber int OUTPUT

AS

BEGIN

INSERT INTO tblNumberCounter (InsertDate)

Values (GETDATE())

SET @ReceiptNumber=SCOPE_IDENTITY()

INSERT INTO tblReceipts (pl_ID,client_ID,PaymentDate,Fund_ID,TenderTypeID,AmountPaid,ReceiptNumber,DateEntered,EnteredBy)

SELECT     PL.Pl_ID, RS.client_id, PL.pmtDate, RS.rec_fund_id, RS.rec_tendertypeid, RS.rec_amount,
                      @ReceiptNumber, RS.DateEntered, RS.EnteredBy
FROM         tblRec_setup AS RS INNER JOIN
                      tblPayments AS PL ON RS.rec_id = PL.rec_id


    Sub Post()
        Dim cmdInsert1 As SqlCommand
        Dim tr As SqlTransaction = Nothing

        Dim ConnectStr As String = _
        ConfigurationManager.ConnectionStrings("2ConnectionString").ConnectionString
        Dim conn As New SqlConnection(ConnectStr)

        cmdInsert1 = New SqlCommand
        cmdInsert1.CommandType = CommandType.StoredProcedure
        cmdInsert1.CommandText = "BatchMonthly"

        'Get a new receipt number and add it.
        Dim InsertedIntegerRN As New SqlParameter("@ReceiptNumber", SqlDbType.Int)
        InsertedIntegerRN.Direction = ParameterDirection.Output
        cmdInsert1.Parameters.Add(InsertedIntegerRN)


     Try
        conn.Open()
        tr = conn.BeginTransaction()
        cmdInsert1.Transaction = tr
        cmdInsert1.Connection = conn
        cmdInsert1.ExecuteScalar()

        tr.Commit()
    Catch objException As SqlException
        tr.Rollback()
       Dim ex As SqlError
       Response.Write(ex.Message)
    Finally
        conn.Close()
    End Try
End Sub



 So I thought I would add, What I'm doing here is this:

I insert a new receiptnumber into the tblNumberCounter table.

Then I use that number in the first row found based on the second Insert.

Then it needs to get another new receiptnumber for the next row of the second insert.

Anyway, I appeciate any help.