Set cmd = server.CreateObject("ADODB.Command") set Cmd.ActiveConnection = conn with Cmd .CommandText = "sp_user_remark" .CommandType = 4 .parameters.Refresh .parameters("@action") = action .parameters("@remark_id") = rid .parameters("@remark_title") = rremark_title .parameters("@error_info") = "" .execute Error_msg = .parameters("@error_info") end with