<% Set db = Server.CreateObject("ADODB.Connection") set rs = server.createObject("ADODB.Recordset") ' if request("action")="addartist" then if len(request("artist"))>0 then myArtist=replace(request("artist"),"'","þ") else myError="Please enter the artist name." if len(request("Description"))>0 then myDescription=replace(request("Description"),"'","þ") if len(myError)<1 then response.write "Adding Artist... " db.execute("INSERT into artists (artist,description) VALUES ('" & myArtist & "','" & myDescription & "')") response.write "Done." end if end if if request("action")="" OR len(myerror)>0 then if len(myerror)>0 then response.write "Error: " & myError & "

" %>

Artist Name:
Artist Description: <%=myDescription%>

<% end if set rs=nothing db.close set db=nothing %>