<%@LANGUAGE="VBSCRIPT"%> <% ' Spd E-Letter v4 ' © 2001, 2002 PensaWorks, inc. ' For help with this program, please visit: http://www.pensaworks.com Dim Access : Access = "User" Dim Nav3 : Nav3 = "6" %> <% if isnumeric(request("m")) then msgID = cint(request("m")) else msgID = 0 set msgRecord = mlConn.execute("SELECT * FROM ML_Broadcast WHERE MessageID = " & msgID) if (msgRecord.EOF) then response.redirect "message.asp?msg=20" if not allowedList(msgRecord("ListID"), allowedLists) then response.redirect "message.asp?msg=49" %> <%=ListName%> - Spd E-Letter Administration

URL Tracking Report for <% if msgRecord.eof then %> Unknown <% else %> <%=msgRecord("Subject")%> <% end if %>

<% set urlRecord = mlConn.execute("SELECT * FROM ML_URLs WHERE MessageID = " & msgID) if urlRecord.eof then %> <% else count = 0 do until urlRecord.eof count = count + 1 %> <% urlRecord.movenext loop end if %>
#  Target URL   Position In Email   Broadcasted To   Clicked On   Click-thru % 

There are no URLs associated with this email at this time.
<%=count%> "><%=urlRecord("urlRedirect")%> #<%=urlRecord("urlIndex")%> in <% if urlRecord("urlInside") = 1 then %> HTML <% else %> Text <% end if %> <%=urlRecord("urlSends")%> Subscribers <% if isnull(urlRecord("urlClicks")) then clkCount = 0 else clkCount = urlRecord("urlClicks") end if %><%=clkCount%> Times <% if not (isnull(urlRecord("urlSends")) or isnull(urlRecord("urlClicks"))) then clkRatio = round(urlRecord("urlClicks") / urlRecord("urlSends") * 100, 1) else clkRatio = "0.0" end if %><%=clkRatio%>%