<%
id = request.querystring("id")
if request.form = "" then
'No submit yet
if id <> "" then
'Get existing data
sqltext = "SELECT * FROM Legal_Assistants WHERE Id = " & 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 = trim(rs("Title"))
rs.close
end if
else
'Update/Insert
Message = "Error Processing request"
if id <> "" then
sqltext = "SELECT * FROM Legal_Assistants WHERE Id = " & id
rs.Open sqltext, Conn,2,2
else
sqltext = "SELECT * FROM Legal_Assistants"
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 - Admin
Morris Pickering & Sanner - Legal Assistant Creator
<%= Message %>