<% response.buffer = true Response.Expires = 0 %> Administration <% if request.ServerVariables("REQUEST_METHOD") = "POST" then 'Make sure this page is not cached Response.Expires = -1 Response.ExpiresAbsolute = Now() - 2 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "No-Store" Dim strEditorContent 'Holds the content from the editors text area 'Read in the data posted from the editor strEditorContent = Request.Form("textarea") Dim myfso, myf Dim mytempdir Dim mymystring mytempfile = Trim(Server.MapPath (".")) & "\..\aluma.txt" Set myfso = CreateObject("Scripting.FileSystemObject") Set myf = myfso.OpenTextFile(mytempfile, 2, True) if len(trim(Request.Form("textarea"))) = 0 then mymystring = "
" end if mymystring = mymystring & myf.Write (strEditorContent) myf.Close response.redirect ("adminmenu.asp") 'If there is nothing to preview then say so If strEditorContent = "" OR IsNull(strEditorContent) OR (InStr(1, strEditorContent, "
", 1) = 1 AND Len(strEditorContent) = 8) Then strEditorContent = "

" & strTxtThereIsNothingToShow & "


" End If end if %>

MODIFY ALUMACAST PAGE

<% Dim strFormName Dim strTextAreaName strFormName = "myForm" strTextAreaName = "myTextarea" %>



Click here to return to the admin menu

<% '***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** If blnAbout Then Response.Write("
Powered by Web Wiz Rich Text Editor version " & strRTEversion) Response.Write("
Copyright ©2002-2005 Web Wiz Guide
") End If '***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** %>