<%

set Command1 = Server.CreateObject("ADODB.Command")
Command1.ActiveConnection = MM_tp_STRING
Command1.CommandText = "UPDATE ic SET kit WHERE kit =" + Replace(Command1__dd, "'", "''") + "+1"
Command1.CommandType = 1
Command1.CommandTimeout = 0
Command1.Prepared = true
Command1.Execute()

%>