<%=ListName%> - Spd E-Letter Administration

<%@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" %> <% modCount = 0 basePath = request.servervariables("PATH_TRANSLATED") basePath = replace(basePath, "\misc_modules_check.asp", "") set objFSO = Server.CreateObject("Scripting.FileSystemObject") set objFiles = objFSO.GetFolder(basePath) %> <%=ListName%> - Spd E-Letter Administration

Automated Module Install

<% for each objFile in objFiles.Files if lcase(left(objFile.name, 12)) = "module_setup" then modCount = modCount + 1 modName = objFile.name %> <% end if next if modCOunt = 0 then %> <% end if %>

#	Module Setup File	Action
<%=modCount%>	<%=modName%>	Install Module
No Module Setup Files Found

<% set objFSO = nothing set objFiles = nothing %>