<%
if request.form = "" then
'No submit yet
'Get existing data
sqltext = "SELECT * FROM Events"
rs.Open sqltext, Conn,2,2
EventContent = trim(rs("EventContent"))
rs.close
else
'Update/Insert
Message = "Error Processing request"
sqltext = "SELECT * FROM Events"
rs.Open sqltext, Conn,2,2
rs("EventContent") = request("EventContent")
rs.Update
rs.close
response.redirect "index.asp"
end if
Conn.close
%>
Morris Pickering & Sanner - Admin
Morris Pickering & Sanner - Event Section Updater
<%= Message %>