THis is driving me nutso!

I am entering 7 emails into a DB. First table has the senders' emails and the second tables has the recipients' emails.

After I enter the senders' email I then enter in the recipients' emails but on first try ,with a new sender, the recipient emails get entered in fine but if I have the same sender send to additional recipients the data gets replicated twice!!!!!!!!!

THe problem area seems to be the ssql2 statement where I am doing a loop to enter in all the emails from the form.

THis is done in .asp VBscript.

Again the question is WHY are my emails duplicated into the DB for the recipient table only?

Is it because I use the variable frmEmail more than once on the same page?

Sorry this is SOOOOO long!!!

Code is below to debug:
Code:
<!-- #INCLUDE FILE="validate.asp" -->
<!-- #INCLUDE FILE="data.asp" -->
<%
	on error resume next
		
	Dim strAns
	
		strAns = "Please enter a valid e-mail"
		
	If Request.Form("Y1") = "" Then
		Session("Y1") = strAns 
		Response.Redirect "EmailFriend.asp"
	End If
			
	Dim MyEmail(5) 
	Dim frmEmail(5)
	Dim SenderEmail
	Dim chkOK
	Dim Count, frmCount, frmCount2
	Dim AllOK, objCDO, objCDO2, txtSubject, txtSubject2
	    
    SenderEmail = Request.form("Y1")
    MyEmail(0) = Request.form("A1")
    MyEmail(1) = Request.form("A2")
    MyEmail(2) = Request.form("A3")
    MyEmail(3) = Request.form("A4")
    MyEmail(4) = Request.form("A5")
    MyEmail(5) = Request.form("A6")
    chkOK = Request.form("C1")
    strOrigin = Request.ServerVariables("HTTP_REFERER")
        
    For Count = 0 to 5
		If chkEmail(MyEmail(Count)) = 1 Then
      		AllOK = AllOK + 1
      	End If
    Next
    
    If chkEmail(SenderEmail) = 1 Then
          AllOK = 1
    End If
    
    If AllOk = 1 Then
    	Response.Redirect "error.asp"
	 End If
    
    If chkOK <> "" Then
			chkOK = True
	 Else 
			chkOK = False
	 End If
    
'--get email addresses

	SenderEmail = Request.form("Y1")
	frmEmail(0) = Request.form("A1")
	frmEmail(1) = Request.form("A2")
	frmEmail(2) = Request.form("A3")
	frmEmail(3) = Request.form("A4")
	frmEmail(4) = Request.form("A5")
	frmEmail(5) = Request.form("A6")
	
'--Enter emails in DB

	Dim Dconn, sSQL, sSQL2, cmDC, SQL, Recordset, lrecAff
			
	Set Dconn = Server.CreateObject("ADODB.Connection")
		Dconn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & _
		               databasepath & ";"
		               
	Set cmdDC = Server.CreateObject("ADODB.Command")
		cmdDC.ActiveConnection = Dconn
		
	SQL = "Select Sender.Email, Sender.AID FROM Sender WHERE " & "Sender.Email ='" & SenderEmail & "'" 
			
	cmdDC.CommandText = SQL
	Set RecordSet = Server.CreateObject("ADODB.Recordset")

	RecordSet.Open cmdDC, , 3, 3
	
	If Recordset.EOF Then
		sSQL = "INSERT into Sender(Email, OK2Remind, Origin)VALUES('" & SenderEmail & "','" & chkOK & "','" & strOrigin & "')" 
			Dconn.Execute sSQL 
    End If
	
'--Use a For Next loop to enter in the 6 emails from the form and the SenderAID field into the Recipient SenderID field.

	For frmCount2 = 0 To 5
		If frmEmail(frmCount2) <> "" Then
			sSQL2 = "INSERT into Recipient(Email, SenderID)VALUES('" & frmEmail(frmCount2) & "'," & Recordset.fields("AID") & ")"     
				Dconn.BeginTrans
				Dconn.Execute sSQL2, lrecAff 
				If lrecAff = 1 Then 
					Dconn.RollbackTrans
				Else
					Dconn.CommitTrans
				End If
		End If
	Next
		
	set cmdDC = nothing
	Recordset.close
	set recordset = nothing

	Dconn.Close
	Set Dconn = Nothing
	
'--sends email to Client, cc to host
    	
   	For frmCount = 0 To 5 
   		
   		If frmEmail(frmCount) <> "" AND AllOk = 0 Then
   	
   			Set objCDO = Server.CreateObject("CDO.Message")
				objCDO.From = "[email protected]"
				objCDO.To =   frmEmail(frmCount)
				objCDO.bcc = "[email protected]"
		
				txtSubject = "recipient test"
				objCDO.Subject = "Testing" 
				objCDO.TextBody = txtSubject
				objCDO.Send
			Set objCDO = nothing
				
'--sends confirmation email to sender

			Set objCDO2 = Server.CreateObject("CDO.Message")
				objCDO2.From = "[email protected]"
				objCDO2.To = SenderEmail 
				objCDO2.bcc = "[email protected]"
				
				txtSubject = "sender test"
				objCDO2.Subject = "Testing" 
				objCDO2.TextBody = txtSubject
				objCDO2.Send
			Set objCDO2 = nothing    		
    	End If
	Next

	
   Response.Redirect "Form.asp"
      		
%>