<%=ListName%> - Spd E-Letter Administration

<%@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" %> <% response.buffer = true if (isNumeric(request("ListID"))) then listID = Cint(request("ListID")) else listID = 0 if (request("DLPerm") <> "") then DLPerm = true else DLPerm = false if lcase(request("action")) = "set_list" then if listID = 0 then if DLPerm then setPerm = noShow(0, 0) end if session("svList") = "No Default List Set" session("svListID") = 0 response.redirect "main.asp" else if allowedList(listID, allowedLists) then set getList = mlConn.Execute("SELECT ListID, Listname FROM ML_Lists WHERE ListID = " & listID) session("svList") = getList("Listname") session("svListID") = getList("ListID") if (DLPerm) then setPerm = noShow(session("svListID"), session("svList")) set getlist = nothing response.redirect "main.asp" else msg = 1 end if end if end if ignoreDefault = setDefault() function noShow(ListID, ListName) response.cookies("defautlListID") = ListID response.cookies("defaultListID").expires = dateAdd("d", 90, Now) response.cookies("defautlListName") = ListName response.cookies("defaultListName").expires = dateAdd("d", 90, Now) response.cookies("defautlListSet") = "Y" response.cookies("defaultListSet").expires = dateAdd("d", 90, Now) end function function setDefault() if request.cookies("defautlListSet") = "Y" then if ucase(request("ignore")) = "Y" then exit function end if if allowedList(defListID, allowedLists) then session("svList") = request.cookies("defautlListName") session("svListID") = request.cookies("defautlListID") response.redirect "main.asp" end if end if end function %> <%=ListName%> - Spd E-Letter Administration

Set Your Default List

<% if msg = 1 then %>

You do not have proper security permissions to access the list you requested.

<% end if %>

<% if session("svListID") = "0" or session("svListID") = "" then %> Please select a Default List below. <% else %>
Your current Default List is <%=session("svList")%>. If you wish to change it, please do so below. <% end if %>