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"
%>
