<%@ Language = VBScript %>
<%
'Redirect if the user has not logged in
if session("Newsletter") = false then
response.redirect("index.asp")
end if
'Determine title/function
if request.queryString("function") = "edit" then
output = "Edit signature file"
'Print information from signature file into textarea field
set objFSO = server.createObject("Scripting.FileSystemObject")
set objTextStream = objFSO.openTextFile(server.mapPath("/newsletter/signature.txt"), 1)
do while not objTextStream.atEndOfStream
signInfo = signInfo & vbCrLf & objTextStream.readLine
loop
end if
'Run update function
if len(request.form("Signature")) <> 0 then
Signature = request.form("Signature")
set objFSO = server.createObject("Scripting.FileSystemObject")
set objTextStream = objFSO.openTextFile(server.mapPath("/newsletter/signature.txt"), 2)
objTextStream.write(Signature)
output = "Signature updated."
end if
%>
<%=CompanyName%> Newsletter Administrative Center
<%=CompanyName%> - Newsletter Administrative Center