<% msg = request.form("msg") status = request.form("status") '============================================== '======= including the HeaderTableStart '============================================== HeaderTableTitle = "Animated: Edit" %> <% ''''' HeaderTableEnd : must be added after including the HeaderTableStart '============================================== If status = "ok" then '''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''' In executing query: if there is Error Resume Next '''''''''''''''''''''''''''''''''''''''''''''''''''''''' On Error Resume Next addSQL= "UPDATE animated_text SET thetext = '"&msg&"' WHERE id = 1" ADO.execute(addSQL) if err.number = 0 then writeMSG "Updating done successufly." , "OkType" else writeMSG "Error : "& err.description & " from " & err.source &".", "ErrorType" end if End if %> <% '''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''' In executing query: if there is Error Resume Next '''''''''''''''''''''''''''''''''''''''''''''''''''''''' On Error Resume Next SelectSQL= "SELECT * FROM animated_text WHERE id = 1" set rs = ADO.execute(SelectSQL) %>
<% if Not rs.eof then response.write rs("thetext") end if %>


Editing Animated text

  Text

 
<% textareaname = "msg" textareawidth = "100%" textareaheight = "100px" %>


<% ADO.close Set ADO=Nothing Response.write HeaderTableEnd %>