<% id = request.querystring("id") if request.form = "" then 'No submit yet if id <> "" then 'Get existing data sqltext = "SELECT * FROM Attorneys WHERE AttorneyId = " & id rs.Open sqltext, Conn,2,2 FirstName = trim(rs("FirstName")) LastName = trim(rs("LastName")) Phone = trim(rs("Phone")) Fax = trim(rs("FAX")) Email = trim(rs("email")) Bio = rs("Bio") Title = abs(rs("Title") * 1) rs.close end if else 'Update/Insert Message = "Error Processing request" if id <> "" then sqltext = "SELECT * FROM Attorneys WHERE AttorneyId = " & id rs.Open sqltext, Conn,2,2 else sqltext = "SELECT * FROM Attorneys" rs.Open sqltext, Conn,2,2 rs.AddNew end if rs("FirstName") = request.form("firstname") rs("LastName") = request.form("lastname") rs("Phone") = request.form("Phone") rs("Fax") = request.form("fax") rs("Email") = request.form("email") rs("Bio") = request.form("Bio") rs("Title") = request.form("Title") rs.Update rs.close if id = "" then'Get new attorney id sqltext = "SELECT Max(AttorneyID) as newid FROM Attorneys" rs.open sqltext,conn if not rs.bof then id = rs("newid") end if rs.close end if response.redirect "index.asp" end if Conn.close %> Morris Pickering & Sanner - Attorney Creator

---

<%= Message %>

Firstname:
Lastname:
Title:	>Associate >Partner >Of Counsel >Law Clerk
Phone:
FAX:
Email:
Bio:	<%= Bio %>