Here is the Code:
ID = Request("ID")
If ID <> "" then
sql="select TitleField,MessageField from test where id="&CInt(ID)&""
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,3
rs("TitleField") = TitleField
rs("MessageField") = MessageField
rs.update
rs.Close
Set rs = nothing
End If
Here are a few good ASP sites:
Best regards
asp.net Chat http://cutesoft.net/ASP.NET+Chat/default.aspx
Web Messenger: http://cutesoft.net/Web-Messenger/default.aspx
asp.net wysiwyg editor: http://cutesoft.net/ASP.NET+WYSIWYG+Editor/default.aspx
asp wysiwyg html editor: http://cutesoft.net/ASP
asp.net Image Gallery: http://cutesoft.net/ASP.NET+Image+Gallery/default.aspx
Live Support: http://cutesoft.net/live-support/default.aspx