<%
if trim(request.form("auname")) = "" then
%>
<%
dim oconn
set oconn = server.createobject("adodb.connection")
oconn.open("library2")
%>
<%
dim oset
set oset = oconn.execute("select * from authors order by auname")
oset.movefirst
%>
Add an Author - Plain HTML Page
<%
if trim(request.form("auname")) = "" then
%>
<%
dim oconn
set oconn = server.createobject("adodb.connection")
oconn.open("library2")
%>
<%
dim oset
set oset = oconn.execute("select * from authors order by auname")
oset.movefirst
%>
Filling out the form below will add an author to the authors table using ADO recordset methods addnew and update.
<% else %> <% dim oconn2, oset2 dim auname, auphone, auid auname = request.form("auname") auphone = request.form("auphone") auid = request.form("auid") set oconn2 = server.createobject("adodb.connection") oconn2.open "library2" set oset2 = server.createobject("adodb.recordset") oset2.open "Select * from authors", oconn2, adOpenStatic, adLockOptimistic oset2.addnew oset2("auname") = auname oset2("auphone") = auphone oset2("auid") = auid oset2.update %> <% end if %>
