<% option explicit %> <%=maintitle%> <% dim mrs, sqlcode, firstname, lastname, queryid, edit, sql, cid, elastname, efirstname dim esql, eid 'If page is an edit then if request.querystring("edit") = 1 then eid = trim(request.querystring("id")) esql = "Select * from act where cID = " & eid & ";" set mrs = server.createobject("adodb.recordset") mrs.open esql, mconn, 1, 3 if mrs.recordcount = 1 then elastname = mrs("lastname") efirstname = mrs("firstname") else response.write("

error

") end if mrs.close set mrs = nothing end if 'add cast member if request.form("ispostback") = "1" then cid = trim(request.form("cid")) firstname = presubmit2(request.form("firstname")) lastname = presubmit2(request.form("lastname")) If lastname = "" then Response.Write("

Error: no lastname/group name was entered.

") %> <% closeconn() Response.End End If set mrs = server.createobject("adodb.recordset") if isnumeric(cid) then sql = "Select * from act where cID = " & cid & ";" else sql = "act" end if mrs.open sql, mconn,1,3 if not isnumeric(cid) then mrs.AddNew end if mrs("firstname") = firstname mrs("lastname") = lastname mrs("add_date") = date mrs.Update closemrs() End if %>

Add/Edit <%=talent_title%>

Last Name or Group Name
First Name (optional)
 

<%=talent_title%> list

<% dim fname, lname, id set mrs = server.createobject("adodb.recordset") sqlcode = "select * from act order by lastname" mrs.open sqlcode, mconn,1,3 if mrs.recordcount > 0 then %> <% While not mrs.EOF id = mrs("cid") fname = mrs("FirstName") lname = mrs("LastName") %> <% mrs.MoveNext Wend else response.write ("

no records found

") end if closemrs() closeconn() %>
Name Edit Delete
<%=lname%><% if fname <> "" then response.write (", " & fname) %> edit delete