<%@LANGUAGE="VBSCRIPT"%> <% '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Spd E-Letter v4 ' © 2001, 2002 PensaWorks, inc. ' For help with this program, please visit http://www.pensaworks.com '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Access = "User" : Nav3 = "5" %> <% on error goto 0 if (request("ID") <> "" AND IsNumeric(request("ID"))) then snipID = CInt(request("ID")) else snipID = 0 set getSnippet = mlConn.Execute("SELECT * FROM ML_Snippets WHERE snipID = " & snipID) if (getSnippet.EOF) then response.redirect "message.asp?msg=20" snipCode = getSnippet("snipCode") snipName = getSnippet("snipName") snipDescription = getSnippet("snipDescription") snipData = getSnippet("snipData") if request("action") = "go" then if (strDBType = "access") then delHeader = " *" else delHeader = "" del = delCommand("DELETE" & delHeader & " FROM ML_Snippets WHERE snipID = " & snipID, ELetter_String) response.redirect "snippets_view.asp?msg=3" end if %> <%=ListName%> - Spd E-Letter Administration

Delete Content Snippet

Are you sure you want to delete this snippet? Remember, this action cannot be undone.

Snippet Code:
Snippet Name:
Snippet Description:
Snippet Data: