<%
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 mods_news set " & _
"datestamp = getdate(), " & _
"news = '" & SQLsafe(session("news")) & "'"
'Response.Write("Query = [" & query & "]
")
tigCON.Execute(query)
tigCON.close
msg = "The mods news for LvL has been updated, thanx :]"
else
msg = "Some mods news is needed if you want to update it :], - how about you try again?"
end if
%>
 |
<%=msg%>
|
<%
if not error then
'clear the session vars
session.Abandon
end if
%>