VMGN Administration

<% Dim oConn Dim oRcs Set oConn = Server.CreateObject("ADODB.connection") oConn.open Application("VMGN_ConnectionString") Set oRcs=oConn.execute("SELECT count(1) as Total FROM UserLog") %> <% Set oRcs = Nothing %> <% Set oRcs=oConn.execute("SELECT count(1) as Total FROM EmailLog") %>
Total User Count (registrant): <% Response.Write oRcs.Fields("total").Value %>
Total "Email to a friend" submissions:<% Response.Write oRcs.Fields("total").Value %>
<% oRcs.Close Set oRcs = Nothing %>