<%@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 = "1" %> <% if (request("msg") <> "" AND IsNumeric(request("msg"))) then msg = CInt(request("msg")) else msg = 0 modNum = 0 set getModules = mlConn.Execute("SELECT modID, modName, modLink, modAdded from ML_Modules") %> <%=ListName%> - Spd E-Letter Administration

Modules

Add Module

<% if msg = 1 then %>

The '<%=request("modName")%>' module was successfully installed.

<% elseif msg = 2 then %>

The '<%=request("modName")%>' module is already installed.

<% end if %>
<% if getModules.EOF then %> <% else while NOT getModules.EOF modNum = modNum + 1 %> <% getModules.MoveNext() wend end if %>
# Module Added Go

There are no modules installed at this time.

<%=modNum%> "><%=getModules("modName")%> <%=getDateFromNum(getModules("modAdded"))%>

<% 'Response.Write "" %>