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