")
History = replace(History, vbcrlf, "
")
PracticeAreas = request.form("PracticeAreas")
PracticeAreas = replace(PracticeAreas, vbcrlf & vbcrlf, "
")
PracticeAreas = replace(PracticeAreas, vbcrlf, "
")
Technology = request.form("Technology")
Technology = replace(Technology, vbcrlf & vbcrlf, "
")
Technology = replace(Technology, vbcrlf, "
")
SupportStaff = request.form("SupportStaff")
SupportStaff = replace(SupportStaff, vbcrlf & vbcrlf, "
")
SupportStaff = replace(SupportStaff, vbcrlf, "
")
'Update/Insert
Message = "Error Processing request"
sqltext = "SELECT * FROM About"
rs.Open sqltext, Conn,2,2
rs("History") = History
rs("PracticeAreas") = PracticeAreas
rs("Technology") = Technology
rs("SupportStaff") = SupportStaff
rs.Update
rs.close
response.redirect "index.asp"
end if
Conn.close
%>