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