<%@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 snipCode = trim(request("snipCode")) snipName = request("snipName") snipDescription = request("snipDescription") snipData = request("snipData") if snipCode = "" or snipName = "" or snipData = "" then msg = 1 else strSQL = "SELECT * FROM ML_Snippets WHERE snipCode = '" & replace(snipCode, "'", "''") & "' AND snipID <> " & snipID set dupChk = mlConn.Execute(strSQL) if NOT dupChk.EOF then set dupChk = nothing msg = 2 else set dupChk = nothing mlConn.Execute("UPDATE ML_Snippets SET snipCode = '" & replace(snipCode, "'", "''") & "', snipName = '" & replace(snipName, "'", "''") & "', snipDescription = '" & replace(snipDescription, "'", "''") & "', snipData = '" & replace(snipData, "'", "''") & "' WHERE snipID = " & snipID) response.redirect "snippets_view.asp?msg=2" end if end if end if %> <%=ListName%> - Spd E-Letter Administration

Edit 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: