recuperar un valor sumarlo y volver a subir

[mc_quake]

variable = request.Form("campoculto")

If Variable = "yes" Then

<%
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open MM_conn_STRING
oConn.Execute "UPDATE TABLA SET WHERE ColumnaClave = "& tu valor &" "
oConn.Close
Set oConn = Nothing
%>
End If

aca creas un recorset para rescatarel dato a sumar
<%
Set Rs = Server.CreateObject("ADODB.Recordset")
Call_Sql = "SELECT * FROM Tabla "
Rs.Open Call_Sql, MM_conn_STRING,1,2
Rs_total = Rs.RecordCount
%>

luego te creas el formualrio

y antes de boton enviarpones este campode forma ocualta

<input TYPE="hidden" VALUE="yes" NAME="campoculto">

Rs .Close
Set Rs = Nothing