<%

'include adoCon
Set rs = Server.CreateObject("ADODB.Recordset")		
sql = "SELECT * FROM TABLE WHERE ID='" & request.form("id") & "';"
rs.open SQL, adoCon, 2, 3
 		

if not rs.eof then 					
rs("ID") = request.form("id")	  
rs.Update 
end if

      
rs.Close
Set rs = Nothing

%>





<% 'another way:

'include adoCon
sql = "UPDATE TABLE SET ID = '" & replace(request.form("id"), "'", "''") & "' " &_
	"WHERE CaseID='" & cCaseID & "';"
adoCon.Execute(sql) 

%>