<%
dim id,sql,rs,topcolor
topcolor=Request.Form("topcolor")
Set rs=Server.CreateObject("adodb.recordset")
SQL="select topcolor from table"
rs.Open SQL,Conn,1,3
Do While Not rs.eof
rs("topcolor")=topcolor
rs.update
rs.MoveNext
Loop
rs.Close
Response.Redirect("aaa.asp")
%>