%
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 "