<%@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" %> <% modName = trim(request("modName")) modLink = trim(request("modLink")) if request("action") = "go" then if modName = "" or modLink = "" then msg = 1 else set dupCheck = mlConn.Execute("SELECT * FROM ML_Modules WHERE modName = '" & replace(modName, "'", "''") & "'") if NOT dupCheck.EOF then msg = 2 else mlConn.Execute("INSERT INTO ML_Modules (modName, modAdded, modLink) VALUES ('" & replace(modName, "'", "''") & "'," & cfgDate & ",'" & replace(modLink, "'", "''") & "')") response.redirect "misc_modules.asp" end if end if end if %> <%=ListName%> - Spd E-Letter Administration

Add Module

To check for existing module setup files, click here

<% if msg = 1 then %>

You must complete all fields.

<% elseif msg = 2 then %>

A Module with that name already exists. Please choose another.

<% end if %>
Module Name:
Module Location:
Can be a full URL or relative link

<% 'Response.Write "" %>