<%@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("modID") <> "" AND IsNumeric(request("modID"))) then modID = cint(request("modID")) else modID = 0 set getModule = mlConn.Execute("SELECT * FROM ML_Modules WHERE modID = " & modID) if (getModule.EOF) then response.redirect "message.asp?msg=20" if request("action") = "go" then if (strDBType = "access") then delHeader = " *" else delHeader = "" mlConn.Execute("DELETE" & delHeader & "FROM ML_Modules WHERE modID = " & modID) response.redirect "misc_modules.asp" end if %> <%=ListName%> - Spd E-Letter Administration

Delete Module

Are you sure you wish to delete this module? Remember, this action cannot be undone.

Module Name:
 <%=getModule("modName")%>
Module Added:
 <%=getDateFromNum(getModule("modAdded"))%>
Module Location:
 <%=getModule("modLink")%>

<% 'Response.Write "" %>