Comman.Parameters

Hi, Please i need to insert datas into two tables (Mail & MailDetails). Actually the code i have inserts the records but not the way i wanted. My Stored Procedure is as follows :


ALTER Proc InsertNewMail
@OutMailDate datetime,
@CourierID Int,
@EnclosureListNo Int,
@From Uniqueidentifier,
@To Int,
@CourierWayBillNo Int,
@MailBy nvarchar(100),
@MailDescription nvarchar(200),
@MailFor nvarchar(100)

As

Declare @Ident Int
Insert Into OutMail (OutMailDate,CourierID,EnclosureListNo,[From],[To],CourierWayBillNo)
Values
(@OutMailDate,@CourierID,@EnclosureListNo,@From,@To,@CourierWayBillNo)

Select @Ident = scope_identity()

Insert Into OutMailDetails (OutMailID,MailBy,MailDescription,MailFor)
Values
(@Ident,@MailBy,@MailDescription,@MailFor)


In My Button_Click (s As Object, e As EventArgs) I have this :
Dim StrCon As String = ConfigurationManager.ConnectionStrings("MailRunner").ConnectionString
        Dim ObjCon As New SqlConnection(StrCon)
        Dim StrInsert As String = "InsertNewMail"
        Dim ObjCom As New SqlCommand(StrInsert, ObjCon)
        ObjCom.CommandType = CommandType.StoredProcedure
        ObjCom.Parameters.Add("@OutMailDate", SqlDbType.DateTime).Value = lblDate.Text
        ObjCom.Parameters.Add("@CourierID", SqlDbType.Int, 4).Value = DrpCourier.SelectedValue
        ObjCom.Parameters.Add("@EnclosureListNo", SqlDbType.Int, 4).Value = txtEnclosureNo.Text
        ObjCom.Parameters.Add("@From", SqlDbType.UniqueIdentifier, 16).Value = New Guid(DrpFrom.SelectedValue)
        ObjCom.Parameters.Add("@To", SqlDbType.Int, 4).Value = DrpTo.SelectedValue
        ObjCom.Parameters.Add("@CourierWayBillNo", SqlDbType.Int, 4).Value = txtWayBillNo.Text

        ObjCom.Parameters.Add("@MailBy", SqlDbType.NVarChar, 100)
        ObjCom.Parameters.Add("@MailDescription", SqlDbType.NVarChar, 200)
        ObjCom.Parameters.Add("@MailFor", SqlDbType.NVarChar, 100)


        For Me.IntCount = 1 To ViewState("MailField")
            Dim txtMailer As TextBox = CType(tblControls.FindControl("txtMailer" & IntCount), TextBox)
            Dim txtDescription As TextBox = CType(tblControls.FindControl("txtDescription" & IntCount), TextBox)
            Dim txtFor As TextBox = CType(tblControls.FindControl("txtFor" & IntCount), TextBox)

            ObjCom.Parameters("@MailBy").Value = txtMailer.Text
            ObjCom.Parameters("@MailDescription").Value = txtDescription.Text
            ObjCom.Parameters("@MailFor").Value = txtFor.Text
        Next
        ObjCon.Open()
        ObjCom.ExecuteNonQuery()
        ObjCon.Close()

Im using Dynamic Controls with each click, i increase the input fields. If i have one field and click insert button, i get ID ( 1 ) in the Mail Table and the same ID is inserted in the MailDetail Table but when i have say 3 input fields and i click the Insert Button, i get ID (2, 3, 4) and the same ID's are inserted into the MailDetails Table. This is wrong. What i want is when the ID just inserted into Mail is 3, then the same IDs ( 3 ) should be in MailDetails.

Please Help