<%@LANGUAGE="VBSCRIPT"%> <% '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Spd E-Letter v4 ' © 2001, 2002 PensaWorks, inc. ' For help with this program, please visit http://www.pensaworks.com '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Dim Access : Access = "Broadcast" Dim Nav3 : Nav3 = "1" %> <% if (request("MessageID") <> "" AND IsNumeric(request("MessageID"))) then msgID = request("MessageID") else msgID = 0 if (msgID = 0) then response.redirect "message.asp?msg=20" set getNewsletter = server.createobject("ADODB.Recordset") getNewsletter.activeconnection = mlConn getNewsletter.source = "SELECT * FROM ML_Broadcast WHERE MessageID = " & msgID getNewsletter.cursortype = 3 getNewsletter.open() if (getNewsletter.EOF) then response.redirect "message.asp?msg=20" %> <%=ListName%> - Spd E-Letter Administration

Spd E-Letter Broadcast


<% If getNewsletter("Status") <> "Broadcasted" Then %>

The Email specified has not been broadcasted yet or has not been completed.

<% Else %>

Broadcast Completed Successfully!


Broadcast Began:
 <%=getDateFromNum(getNewsletter("msgBroadcastBegun"))%>
Broadcast Ended:
 <%=getDateFromNum(getNewsletter("msgBroadcastedDate"))%>
Time to Broadcast:
 <% msgBroadcastedDate = clng(getNewsletter("msgBroadcastedDate")) msgBroadcastBegun = clng(getNewsletter("msgBroadcastBegun")) NumSeconds = msgBroadcastedDate - msgBroadcastBegun if NumSeconds < 1 then NumSeconds = 1 NumMinutes = round(NumSeconds / 60) %> ~<%=NumMinutes%> min <% if NumMinutes <> 1 then response.write "s" %> (<%=NumSeconds%> sec <% if NumSeconds <> 1 then response.write "s" %> )
Average Speed:
 <%=round(getNewsletter("BroadcastSubscribers") / NumSeconds, 1)%> emails/sec
Total Subscribers Found:
 <%=getNewsletter("BroadcastSubscribers")%>
Total Emails Sent:
 <%=getNewsletter("msgActualRecipients")%>
Total URLs to Be Tracked:
 <%=getNewsletter("BroadcastURLs")%>
Broadcasted By:
 <%=getNewsletter("BroadcastedBy")%>

 

<% end if %>