<% session.Timeout = 40 'debug = true if debug then Response.Write("session.Timeout=[" & session.Timeout & "]
") Response.Write("from info passed is;
") Response.Write(Replace(Request.Form,"&","
")) Response.Write("session id =[" & session("id") & "]
") end if 'datestamp = SQLdate(now()) session("news") = Trim(Request.Form("news")) dim error, msg error = false msg = "" if session("news") = "" then error = true end if if not error then 'just make sure the reason ain't too long set tigCON = Server.CreateObject("ADODB.Connection") tigCON.Open(DSN) query = "update q3a_news set " 'query = query & "datestamp = '" & session("datestamp") & "', " query = query & "datestamp = getdate(), " query = query & "news = '" & SQLsafe(session("news")) & "'" 'Response.Write("Query = [" & query & "]
") tigCON.Execute(query) query = "SELECT " & _ "COUNT(id) AS number_levels, " & _ "MAX(datestamp) AS last_added " & _ "FROM q3a_levels" set tigRS = tigCON.Execute(query) dim levelcount, lastmapdate if not tigRS.eof then levelcount = tigRS("number_levels") lastmapdate = SQLdate(tigRS("last_added")) else levelcount = "000" lastmapdate = "1 Jan 1970" end if tigRS.close tigCON.close '========================================= 'now write out an XML feed for the main news const ForReading = 1, ForWriting = 2 dim f, fso Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile(current_ROOT & "xml\mainnews.xml", ForWriting, True) f.Writeline "" f.Writeline " " f.Writeline " " & SQLdate(now()) & "" f.Writeline " " & levelcount & "" f.Writeline " " & lastmapdate & "" f.Writeline " " & replace(replace(session("news"),"<","<"),">",">") & "" f.Writeline " " f.Writeline "" 'and update the application cache Application("lvlNewsCache") = "1 Jan 1970" 'finish XML feed for the main news '========================================= msg = "The news for LvL has been updated, thanx :]" else msg = "Some news is needed if you want to update it :], - how about you try again?" end if %> admin <%=msg%> <% if not error then 'clear the session vars session.Abandon end if %>