<%@LANGUAGE="VBSCRIPT"%> <% '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Spd E-Letter v4 ' © 2001, 2002 PensaWorks, inc. ' For help with this program, please visit http://www.pensaworks.com '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Access = "Broadcast" : Nav3 = "5" %> <% if request("action") = "go" then snipCode = request("snipCode") snipName = request("snipName") snipDescription = request("snipDescription") snipData = request("snipData") if snipCode = "" or snipName = "" or snipData = "" then msg = 1 else set dupChk = mlConn.Execute("SELECT * FROM ML_Snippets WHERE snipCode = '" & replace(snipCode, "'", "''") & "'") if NOT dupChk.EOF then set dupChk = nothing msg = 2 else set dupChk = nothing mlConn.Execute("INSERT INTO ML_Snippets (snipCode, snipName, snipDescription, snipData, snipCreated) VALUES ('" & replace(snipCode, "'", "''") & "','" & replace(snipName, "'", "''") & "','" & replace(snipDescription, "'", "''") & "','" & replace(snipData, "'", "''") & "'," & cfgDate & ")") response.redirect "snippets_view.asp?msg=1" end if end if end if %> <%=ListName%> - Spd E-Letter Administration

Add Content Snippet

<% if msg = 1 then %>

Error: You must complete all fields.

<% elseif msg = 2 then %>

A snippet with that code already exists. Please use another

<% end if %>
Snippet Code:
Snippet Name:
Snippet Description:
Snippet Data: