Solved

replacing several links in an (html) string

Posted on 2004-10-20
4
226 Views
Last Modified: 2010-04-23
Hi!

I am trying to create tracking capability for bulk email that my application sends out to subscribers. The emails are event invitations with links mostly leading to the organizers' websites. There are txt and html invites, and I would like to track who of our subscribers clicked on which link. I know how to do this in general:

Replace all outbound links with lokal links. Global.asax will recognize a pattern in those local links, look up the real link from the database for a redirect and also write some tracking info to the database.

Unfortunately, I am not even past the first step, which I tried to accomplish this way:

   Dim colLinks As ArrayList = New ArrayList

'colLinks is supposed to hold all the different links (case insensitive)
'after the link replacement, colLinks' links will then be written to the database
'along with their array index
'and the id of this particular promotion (which is available here as Request.QueryString("Promotion")
'inviteTxt is the text invitation
'inviteHtml is the html invitation

   Dim linkStart As String = "http://"
   For Each linkStart In inviteTxt
       Dim link As String = (inviteTxt.Substring(inviteTxt.IndexOf(linkStart), inviteTxt.IndexOf(" ") - 1))
       If Not link.IndexOf("MySite.com/Link/") > -1 Then
           colLinks.Add(link)

'running the replacement of a found link in the txt invite first:
           inviteTxt.Replace(link.ToLower, "http://www.MySite.com/Link/" & encryptQueryString(Request.QueryString("Promotion")) & "/" & colLinks.IndexOf(link) & "/Link123.aspx")

'also running the replacement of a found link in the html invite, too:
           inviteHtml.Replace("href=""" & link.ToLower, "href=""http://www.MySite.com/Link/" & encryptQueryString(Request.QueryString("Promotion")) & "/" & colLinks.IndexOf(link) & "/Link123.aspx")
       End If
   Next

'running the replacement on all links found in the html invite only:
   linkStart = "href="""
   For Each linkStart In inviteHtml
       Dim link As String = (inviteHtml.Substring(inviteHtml.IndexOf(linkStart) + 5, inviteHtml.IndexOf(""">") - 1))
       If Not link.IndexOf("MySite.com/Link/") > -1 Then
           colLinks.Add(link)
           inviteHtml.Replace(link.ToLower, "http://www.MySite.com/Link/" & encryptQueryString(Request.QueryString("Promotion")) & "/" & colLinks.IndexOf(link) & "/Link123.aspx")
       End If
   Next

The problem is that nothing happens - no error, no replacing of links. I guess I am just not good enough with looping through a string. Right?
0
Comment
Question by:ddetering
  • 2
  • 2
4 Comments
 
LVL 1

Author Comment

by:ddetering
ID: 12366290
Been trying it with a new loop (I think the loop part is working now):

Dim stringIndex As Integer
Dim linkStart As String = "http://"
Dim link As String
For stringIndex = 0 To inviteTxt.Length - 8
    If inviteTxt.Substring(stringIndex, 7) = linkStart Then
        link = (inviteTxt.Substring(stringIndex, inviteTxt.Remove(0, stringIndex).IndexOf(" ")))

        If Not link.IndexOf("MySite.com/Link/") > -1 Then
            colLinks.Add(link)

            inviteTxt.Replace(link.ToLower, "http://www.MySite.com/Link/" & encryptQueryString(Request.QueryString("Promotion")) & "/" & colLinks.IndexOf(link) & "/Link123.aspx")

            inviteHtml.Replace("href=""" & link.ToLower, "href=""http://www.MySite.com/Link/" & encryptQueryString(Request.QueryString("Promotion")) & "/" & colLinks.IndexOf(link) & "/Link123.aspx")
        End If
    End If
Next

But again, nothing happens. No error, but no change to the links either. Also, looping characterwise through a long string with thousands of characters seems very inefficient to me, even though it will happen only a few times per hour. Any improvement ideas will be appreciated.
0
 
LVL 10

Accepted Solution

by:
james-ct16 earned 280 total points
ID: 12369343
Hi

I might be missing something here but surely the following is far simpler

when registering a new subscriber they probably have an id of some description, so simply generate a key based on that id.
so then on your email send out a href to eg index.aspx?sub=[key]

on the index.aspx page or whatever entry page you read in the sub querystring and then tick it off as a subscriber who visited. so simply read this in as you execute the on page load event

as a note you can apply this same technic to the emails you send out, if you include html elements eg an aspx page sending jpegs can except query string and you would then detect the email being opened. hence why i have html mail turned off

hope that is of some help, it is certainly more effecient than your method above

btw i think the code problem above is due to the [string].replace method not being assign to a variable might work if you do [string]=[string].replace


regards

James
0
 
LVL 1

Author Comment

by:ddetering
ID: 12370216
James! It seems like you were right! I've got it to work! It must have been because of me failing to assign the worked-on string to itself again...

The reason I want to use query strings as little as possible is that some email clients choke on it and for some tracking methods it exposes you to the risk of having them stripped by some ISPs. Yes, you are right: We can't see whether you are opening our emails if you get them as txt, but with my method it is very hard for you to respond (click on a link) without us noticing it. It's not all bad, though, because we use that information to provide you with a better service (and to ensure that we keep making enough money to provide that service at all!).

Cheers,
Dietmar
0
 
LVL 10

Expert Comment

by:james-ct16
ID: 12373768
Glad i could help
0

Featured Post

IT, Stop Being Called Into Every Meeting

Highfive is so simple that setting up every meeting room takes just minutes and every employee will be able to start or join a call from any room with ease. Never be called into a meeting just to get it started again. This is how video conferencing should work!

Join & Write a Comment

A while ago, I was working on a Windows Forms application and I needed a special label control with reflection (glass) effect to show some titles in a stylish way. I've always enjoyed working with graphics, but it's never too clever to re-invent …
It’s quite interesting for me as I worked with Excel using vb.net for some time. Here are some topics which I know want to share with others whom this might help. First of all if you are working with Excel then you need to Download the Following …
Excel styles will make formatting consistent and let you apply and change formatting faster. In this tutorial, you'll learn how to use Excel's built-in styles, how to modify styles, and how to create your own. You'll also learn how to use your custo…
This video gives you a great overview about bandwidth monitoring with SNMP and WMI with our network monitoring solution PRTG Network Monitor (https://www.paessler.com/prtg). If you're looking for how to monitor bandwidth using netflow or packet s…

705 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

Need Help in Real-Time?

Connect with top rated Experts

19 Experts available now in Live!

Get 1:1 Help Now