Go Premium for a chance to win a PS4. Enter to Win

x
?
Solved

Split issue with a for loop

Posted on 2011-03-17
2
Medium Priority
?
216 Views
Last Modified: 2012-05-11
I have a problem with a split taking in multiple email address parsed by semicolons. The for loop repeats the data from the previous email if I have back to back "::". How do I validate while space created by the split to eliminate duplicate emails going out.
If (Cstr(Request("Submit")) <>  "") then

SendtoEmail = Request.Form("email_Address")
additionalText = Request.Form("remarks")
cc = Request.Form("cc")
Response.Write(SendtoEmail) & "<br>"
Response.Write(additionalText) & "<br>"
Response.Write(cc) & "<br>"

    
    Dim strEmail
    Dim p
    Dim i
    Dim e
    Dim c
    SendtoEmail = Replace(SendtoEmail, "; ", ";")
    SendtoEmail = Replace(SendtoEmail, " ", ";")
    SendtoEmail = Replace(SendtoEmail, ",", ";")
    strEmail = split(SendtoEmail, ";")
    Response.Write(strEmail) & "<BR>"
    for i = lbound(strEmail) to Ubound(strEmail)
    p = strEmail(i)
    Response.Write(p) & "<BR>"
    lstrEmail = replace(split(p, "@")(0),"company.com", "")
    Response.Write(lstrEmail) & "<BR>"
    
    If Len(lstrEmail) <=0 Then
    bademail="Yes"
    else
    Response.Write(Len(lstrEmail)) & "<BR>"
    SendtoEmail = lstrEmail+"@company.com"
    Response.Write(SendtoEmail) & "<BR>"
    If cc ="Yes" then
	senderEmail = mail
	else
	senderEmail = ""
	end if
	'Response.Write(senderEmail) & "<br>"
	dateTime = Now
	'Response.Write(dateTime) & "<BR>"
	
	
	set emaildata = Server.CreateObject("ADODB.recordset")
	  emaildata.Open Opinion,dataConn, 2, 3
	  
	  emailData.addNew
	  emailData("NewsID")=NGUID
	  emailData("UGUID")=senderUGUID
	  emailData("DS1")=additionalText
	  emailData("DS2")=SendtoEmail
	  emailData("DateTime")=dateTime
	  emailData("PageID")=DGUID	
	  emailData.update
	  emailData.close
	  
	
	set sysMail = Server.CreateObject("CDO.Message")
	sysMail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.mail.company.com"
	sysMail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
	sysMail.Configuration.Fields.Update
	sysMail.From = "TechOps_Connection_noreply@company.com"
	sysMail.To = SendtoEmail
	sysMail.cc = senderEmail
	sysMail.Subject = "Your co-worker "&senderCN&" emailed you this story '"&title&".' "
	HTML = "<html>" & vbCrLF
	HTML = HTML & "<body>" & vbCrLf
	HTML = HTML & "<table  bordercolor='#cccccc' border='1' align='center' width='700px' cellpadding='8' cellspacing='0' style='font-family:verdana;font-size:11px;'>" & vbCrLf
	HTML = HTML & "<tr><td >" & vbCrLf
	HTML = HTML & " <img name='"&siteName&"' src='"&commonImages&logoPath&"' type='image' /><br ><hr><br>" & vbCrLf
	HTML = HTML & "<span style='font-family:verdana;font-size:14px; color:#663399;'>Your co-worker "&CN&" emailed you this story <b>'"&title&".'</b><br><br> To read the story <a href='http://subdomain.web.company.com/newsdetails.asp?DataID="&NGUID&"'> <b>Click Here</a></b></span><br/><br>" & vbCrLf& vbCrLf
	HTML = HTML & "<span style='font-family:verdana;font-size:14px; color:#663399;'><b>Remarks by sender:</b>"&additionalText&"</span>"
	HTML = HTML & "<table  bordercolor='#cccccc' align='center' width='100%' cellpadding='8' cellspacing='0' style='font-family:verdana;font-size:11px;' bgcolor='#f5f5f5'><tr><td>"
	HTML = HTML &"</td></tr></table>"
	HTML = HTML & "</td></tr></table>" & vbCrLf
	HTML = HTML & "</body>" & vbCrLf
	HTML = HTML & "</html>" & vbCrLf 
	sysMail.HTMLBody = HTML
	'sysMail.Send
	
    end if

Open in new window

0
Comment
Question by:glstephens08
2 Comments
 
LVL 34

Accepted Solution

by:
Big Monty earned 2000 total points
ID: 35159941
You could always replace :: with :

SendtoEmail = Replace(SendtoEmail, "::", ":")

otherwise you can write a if statement to check if strEmail(i) is blank

if p <> "" then
'-- continue processing code
0
 

Author Closing Comment

by:glstephens08
ID: 35160205
Thanks, If p <> "" Then seems obvious now, but I was drawing a blank.
0

Featured Post

Hire Technology Freelancers with Gigs

Work with freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely, and get projects done right.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

I recently decide that I needed a way to make my pages scream on the net.   While searching around how I can accomplish this I stumbled across a great article that stated "minimize the server requests." I got to thinking, hey, I use more than one…
This demonstration started out as a follow up to some recently posted questions on the subject of logging in: http://www.experts-exchange.com/Programming/Languages/Scripting/JavaScript/Q_28634665.html and http://www.experts-exchange.com/Programming/…
Despite its rising prevalence in the business world, "the cloud" is still misunderstood. Some companies still believe common misconceptions about lack of security in cloud solutions and many misuses of cloud storage options still occur every day. …
Screencast - Getting to Know the Pipeline
Suggested Courses

885 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question