<% if Request("submit") = "Update" then cheader1=Request("cheader1") cheader2=Request("cheader2") cheader3=Request("cheader3") cbody1=Request("cbody1") cbody2=Request("cbody2") cbody3=Request("cbody3") rsSQL="Update content set " rsSQL = rsSQL & "cheader1 = " & dt(cheader1) & "," rsSQL = rsSQL & "cheader2 = " & dt(cheader2) & "," rsSQL = rsSQL & "cheader3 = " & dt(cheader3) & "," rsSQL = rsSQL & "cbody1 = " & dt(cbody1) & "," rsSQL = rsSQL & "cbody2 = " & dt(cbody2) & "," rsSQL = rsSQL & "cbody3 = " & dt(cbody3) & "" rsSQL = rsSQL & "where ID = 1" Conn.execute (rsSQL) end if Dim rs Set rs=Server.CreateObject("ADODB.Recordset") sql="Select * from content" rs.open sql, conn %> Flagship Properties Backend
" id="Text1" onclick="return Text1_onclick()"> Back to aboutus
">
">

<%if request("submit")= "update" then %>

Your page has been updated

<%end if %>